Speciale første analyse

Pakker og data

Installer pakker

library(tidyverse)
## -- Attaching packages ----------------------------------------------------------------------------------------------------------------------------------------------------------------------- tidyverse 1.2.1 --
## v ggplot2 3.2.1     v purrr   0.3.3
## v tibble  2.1.3     v dplyr   0.8.3
## v tidyr   1.0.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.4.0
## -- Conflicts -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(lmtest)
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
library(sandwich)
library(ameco)
library(readxl)
library(stargazer)
## 
## Please cite as:
##  Hlavac, Marek (2018). stargazer: Well-Formatted Regression and Summary Statistics Tables.
##  R package version 5.2.2. https://CRAN.R-project.org/package=stargazer
library(urca)
library(tseries)
library(dynlm)
library(reshape)
## 
## Attaching package: 'reshape'
## The following object is masked from 'package:dplyr':
## 
##     rename
## The following objects are masked from 'package:tidyr':
## 
##     expand, smiths
library(pdfetch)
library(reshape)
library(ecm)
library(factoextra)
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa

Ameco database-pull

Data target specification

Lande <- c("AUT","BEL","DNK","FIN","FRA","GRC","IRL","ITA","LUX","NLD","PRT","ESP","SWE","GBR","USA", "DEU")
Koder <- c(".1.0.0.0.ALCD2",".1.1.0.0.ILRV",".1.1.0.0.OCPH",".1.1.0.0.OIGT",".1.1.0.0.OMGS",".1.1.0.0.OVGD",".1.1.0.0.OXGS",".3.1.0.0.PMGS",".3.1.0.0.PVGD",".3.1.0.0.PXGS",".1.0.0.0.UIGP",".1.0.0.0.UIGT",".1.0.0.0.UTVT",".1.0.0.0.UYVT",".3.0.0.0.ZVGDF")
Variabler <- c("_WS","_r","_C","_It","_M","_GDP","_X","_Pm","_P","_Px","_Ipr","_Itcurr","_Tax","_Subsidier","_Tau")
Codelist <- NULL
#print(c(Lande , Koder, Variabler))

i <- NULL
j <- NULL 
i <- length(Lande)
i_c <- 0
j <- length(Koder)
k <- length(Variabler)
ifelse(j == k, j_c <- 0,  j_c <- ("NOPE! Length mismatch"))
## [1] 0
# Last two must be zeroes

# print(c(i,j,k,i_c,j_c))

# Outer country loop
while(i_c < i) {
i_c <- i_c + 1
#Inner data loop
while(j_c < j) {
j_c <- j_c +1
Codelist <- c(Codelist, paste(Lande[[i_c]],Koder[[j_c]],sep=""))
}
#inner loop reset
j_c <- 0
}

#StartYear <- 1960

DataFrame <- DataFrame_big[,c(Codelist)]
DataFrame <- data.frame(sapply(DataFrame, as.numeric))
#head(DataFrame)

World Bank Data Pull

WLDgdp <- NULL
W_Lande <- c(Lande,"WLD")
Worldgdp <- pdfetch_WB("NY.GDP.MKTP.KD", W_Lande)
names(Worldgdp) <- c("WLD", Lande)
Worldgdp %>% head(20)
##                       WLD          AUT          BEL           DNK
## 1960-12-31 11359208453313  91836704604 119183391159            NA
## 1961-12-31 11847693064715  96922602310 125116844592            NA
## 1962-12-31 12505663899207  99489767156 131637938923            NA
## 1963-12-31 13175144802349 103606919937 137366274782            NA
## 1964-12-31 14059827712347 109952174211 146922413448            NA
## 1965-12-31 14835856628919 113778702200 152153820820            NA
## 1966-12-31 15691808087041 120199076680 156955635616            NA
## 1967-12-31 16395859345414 123814722359 163026910243            NA
## 1968-12-31 17431252308721 129352104014 169864470182            NA
## 1969-12-31 18497428030928 137470070238 181126144478            NA
## 1970-12-31 19151474826584 146159749335 191254395232 1538335372710
## 1971-12-31 19983133841383 153635774723 198877465128 1586526801039
## 1972-12-31 21127383893209 163173269957 209409229018 1654752868268
## 1973-12-31 22501796636148 171153153431 222773102104 1733808470024
## 1974-12-31 22951071549053 177900247172 232943269121 1749240556676
## 1975-12-31 23089421224007 177253160456 228363740642 1734079208363
## 1976-12-31 24306751175798 185368599583 241272562495 1819903269076
## 1977-12-31 25263142970172 194785288854 242783302276 1880819400548
## 1978-12-31 26245718827328 194374966805 249682952636 1937403718233
## 1979-12-31 27328150669407 204787050325 255528212921 2017813011683
##                     FIN          FRA          GRC           IRL
## 1960-12-31  94053807816 224627031934  53950253371  594143057799
## 1961-12-31 100053342653 251219894398  58052992362  623732046622
## 1962-12-31 105723187659 276224911089  59784100977  666416962021
## 1963-12-31 106396666814 302732831572  61748068260  707959262579
## 1964-12-31 116259572090 318803434953  64982856036  755053417199
## 1965-12-31 121555491844 338738643803  68428804488  791760397184
## 1966-12-31 124887218608 363283850225  70052498910  833342363036
## 1967-12-31 131793943890 379051598739  71571817739  874352381695
## 1968-12-31 139112562517 404057709040  73220324248  913622247908
## 1969-12-31 148167744746 440047192036  80244560670  978575996368
## 1970-12-31 150533749285 458928030182  84524731544 1038354070711
## 1971-12-31 155057281771 480265767125  86516911992 1093560406402
## 1972-12-31 161150079802 519406206674  93209415272 1142895007224
## 1973-12-31 167745865765 559859978747  99719000501 1215406902953
## 1974-12-31 165863095711 591317311558 102946439507 1267680569948
## 1975-12-31 163447059292 594523453555 104804517401 1255512298279
## 1976-12-31 173130654020 614165269035 105165446300 1310211942484
## 1977-12-31 176368700994 631598806490 105417328479 1355601771312
## 1978-12-31 180295212466 640839118402 108495206708 1409534980874
## 1979-12-31 187271035321 641105364689 116222155466 1459573319724
##                      ITA          LUX         NLD           PRT
## 1960-12-31  730143163141  52154874969          NA  546121684551
## 1961-12-31  749689964075  59041321835          NA  590943234191
## 1962-12-31  757958367028  59256710799          NA  627603286844
## 1963-12-31  794904168380  66275589781          NA  662810124018
## 1964-12-31  838891457503  72511908470          NA  681353577964
## 1965-12-31  856861993532  80319998391          NA  703620374507
## 1966-12-31  870341293100  85536382572          NA  745730606048
## 1967-12-31  894593132528  90385855351          NA  799263716293
## 1968-12-31  943268691296  96896998296          NA  851571967041
## 1969-12-31  961418094328 108101844794          NA  903501336497
## 1970-12-31  987472576976 117755967345 37691202577  951104047855
## 1971-12-31 1021879306390 126989421095 38999045050  968396146507
## 1972-12-31 1065840044908 139891738290 41530008362 1004134668260
## 1973-12-31 1135211065594 151212307385 43490817890 1075687921973
## 1974-12-31 1107246340116 141476895307 45343626537 1134852275893
## 1975-12-31 1090856260992 150484458469 47908554776 1111132014475
## 1976-12-31 1122592563204 160795500110 48576787086 1190304450022
## 1977-12-31 1150016495673 165524498489 52565573026 1220782205022
## 1978-12-31 1198342705001 177519832683 56343318029 1260337255045
## 1979-12-31 1243181009260 183346175954 58074768667 1335442761630
##                    ESP          SWE          GBR          USA
## 1960-12-31  8504063008 188226201393  39866242695 135098930702
## 1961-12-31  8829767186 188782497668  42072800748 142774296538
## 1962-12-31  8949735261 201701841717  44855684178 148855121257
## 1963-12-31  9257526370 209012770099  47490373449 156786023558
## 1964-12-31  9985707548 226308376028  50487370948 167480656139
## 1965-12-31  9912319227 245868423815  54258266893 173880942118
## 1966-12-31 10021939973 252607933838  56470869878 177516521866
## 1967-12-31 10043660605 265945669996  60731304790 183490642626
## 1968-12-31 10463874552 283009100657  66121517354 190166960051
## 1969-12-31 11507421896 301205026668  67523783589 199692566114
## 1970-12-31 12026066085 319699562057  76040291880 212620011683
## 1971-12-31 12346829678 333500929395  81083019678 214628518640
## 1972-12-31 13161497281 345286433662  87582388232 219540804817
## 1973-12-31 14255570084 364084597563  97392203544 228252142515
## 1974-12-31 14856081313 376604439635  98505260451 235552092558
## 1975-12-31 13879833147 376612079911  94222615151 241565414012
## 1976-12-31 14231594161 393395080128 100724193241 244121429415
## 1977-12-31 14454998350 403310368830 106367364186 240224620145
## 1978-12-31 15044035450 414184611633 109362633032 244432269767
## 1979-12-31 15396909622 422526978053 115529523409 253818477524
##                      DEU
## 1960-12-31 3170879604151
## 1961-12-31 3243809835046
## 1962-12-31 3441682234984
## 1963-12-31 3593116253323
## 1964-12-31 3801516996016
## 1965-12-31 4044814083761
## 1966-12-31 4307726999206
## 1967-12-31 4415420174186
## 1968-12-31 4627360342547
## 1969-12-31 4770808513165
## 1970-12-31 4758686862324
## 1971-12-31 4915407665123
## 1972-12-31 5173903810640
## 1973-12-31 5466007905455
## 1974-12-31 5436461589444
## 1975-12-31 5425291617344
## 1976-12-31 5717613883134
## 1977-12-31 5982005451922
## 1978-12-31 6313127560815
## 1979-12-31 6513010666187
Worldgdp %>% tail(20)
##                       WLD          AUT          BEL           DNK
## 1999-12-31 47819268922998 325507251811 391289642724 3030581471655
## 2000-12-31             NA 336495472200 405832615319 3118322470844
## 2001-12-31             NA 340759435782 410295216338 3171263240548
## 2002-12-31             NA 346387261608 417298500905 3164969581244
## 2003-12-31             NA 349648396949 421629863437 3142386463737
## 2004-12-31             NA 359211700962 436687079148 3179778188496
## 2005-12-31             NA 367272646185 446825806298 3202731537067
## 2006-12-31             NA 379958397037 458230381597 3324902546895
## 2007-12-31             NA 394121024465 475079138083 3424120208152
## 2008-12-31             NA 399876861218 477202345355 3457069367840
## 2009-12-31             NA 384823184162 467559394366 3260114884059
## 2010-12-31             NA 391892746545 480951629493 3396354075664
## 2011-12-31             NA 403346977096 489101342572 3529631540931
## 2012-12-31             NA 406091533761 492716925962 3544440148183
## 2013-12-31             NA 406195106237 494979620294 3559618974281
## 2014-12-31             NA 408881164188 502792988582 3638845013304
## 2015-12-31             NA 413029270084 513013709008 3702151812972
## 2016-12-31             NA 421631052474 520765890122 3784709797179
## 2017-12-31             NA 432072509043 530994736008 3878004030197
## 2018-12-31             NA 442527642505 538738791661 3937238459204
##                     FIN           FRA          GRC           IRL
## 1999-12-31 287450544676 1095038925602 197722002676 2245421037201
## 2000-12-31 298220921668 1152484609387 209137217062 2333523930935
## 2001-12-31 300675736193 1197811239502 214595170247 2379814544584
## 2002-12-31 302077924106 1230523730745 218258528240 2406838088087
## 2003-12-31 303256204812 1267216654328 222631777857 2426650235214
## 2004-12-31 311347745369 1306789235709 231519990363 2495318441311
## 2005-12-31 318622825451 1354513605582 237955368835 2536821076703
## 2006-12-31 331090561914 1410085602560 247538904165 2598956034037
## 2007-12-31 334100966293 1460914788660 260656004026 2661973862802
## 2008-12-31 332390313434 1473875223828 262699590890 2668760457244
## 2009-12-31 316081424058 1418409880842 241487608810 2592078593348
## 2010-12-31 321995279402 1420722034063 249181190476 2642609548930
## 2011-12-31 326299640742 1409152050946 255529156858 2700554065740
## 2012-12-31 327038708766 1367449023146 251958508582 2709010438738
## 2013-12-31 330091094980 1347820738371 249685796238 2724623188645
## 2014-12-31 335436569762 1366473336622 248774592178 2750675573688
## 2015-12-31 343294474743 1418879948439 250169211136 2781288181597
## 2016-12-31 354437668061 1461890475184 256743654125 2811756203338
## 2017-12-31 361654604535 1504164957710 264577624745 2875307593549
## 2018-12-31 370302958452 1539527998175 268999878035 2924903217201
##                      ITA          LUX          NLD           PRT
## 1999-12-31 2031050676959 242023226600 153329285307 1993183067822
## 2000-12-31 2100867467607 251509982263 167812387197 2068664016523
## 2001-12-31 2163354906535 261901399075 176670248837 2109031337731
## 2002-12-31 2213638870146 272175455238 187128802584 2114387075160
## 2003-12-31 2286387401482 287946747016 192780034502 2117318184221
## 2004-12-31 2340665128141 302519710603 205737461753 2147460202202
## 2005-12-31 2415091934236 304332233491 217464680666 2165023183425
## 2006-12-31 2482432535772 321534411122 228492099413 2203790947646
## 2007-12-31 2542769379517 332060633951 240657629409 2236562927372
## 2008-12-31 2535620292133 330947657768 229875245087 2215046904823
## 2009-12-31 2427911661952 316714480450 218199392507 2098071668645
## 2010-12-31 2475244321361 299361576558 222148757313 2134017843247
## 2011-12-31 2513366731633 272022398152 222911706772 2149112463084
## 2012-12-31 2550537514107 252163419403 223414851581 2085049445706
## 2013-12-31 2605105899522 243989731145 226434602685 2046662320727
## 2014-12-31 2673033408186 245794711396 245809905127 2046569247891
## 2015-12-31 2735997359822 244718538732 307661903751 2062497785388
## 2016-12-31 2788478032879 244251243064 318977141892 2088890974062
## 2017-12-31 2841238185459 247927466910 344958774769 2124739839581
## 2018-12-31 2880608472044 252723303503 373141461440 2141192550333
##                    ESP          SWE          GBR          USA
## 1999-12-31 37673641691 709727004594 213075736312 378103093862
## 2000-12-31 40777874096 739504612306 221207085356 396533825052
## 2001-12-31 41810359729 756712552640 225506626603 402354614827
## 2002-12-31 43407293733 758356688953 227245111627 411190560754
## 2003-12-31 44114523107 759537041306 225130547822 420420170774
## 2004-12-31 45708017663 774613439115 229157538404 438608099276
## 2005-12-31 47158078370 790499800803 230949201013 451309722987
## 2006-12-31 49600152792 817858911965 234702205004 472081201584
## 2007-12-31 53744023982 848715440731 240585203508 488277759560
## 2008-12-31 53056323200 867135322335 241353265766 487094695370
## 2009-12-31 50743806609 835338475726 233818025950 466459315772
## 2010-12-31 53212476812 846554894931 237880908318 495328620126
## 2011-12-31 54563666585 859686563472 233846053840 510447652146
## 2012-12-31 54371319169 850828748521 224358232357 507226858303
## 2013-12-31 56358248486 849721180252 222288203808 512744630322
## 2014-12-31 58779842014 861816072529 224049151195 526831200566
## 2015-12-31 61311156256 878700511813 228064215666 550121352380
## 2016-12-31 64115896583 897959111482 232669938560 563395990435
## 2017-12-31 65270740382 924097826462 240828150382 576984264815
## 2018-12-31 67301206244 948100838892 246707408374 589823541463
##                       DEU
## 1999-12-31 12120016643946
## 2000-12-31 12620268393365
## 2001-12-31 12746261681131
## 2002-12-31 12968262715350
## 2003-12-31 13339312044507
## 2004-12-31 13846057986119
## 2005-12-31 14332499605580
## 2006-12-31 14741688498027
## 2007-12-31 15018267850123
## 2008-12-31 14997755929110
## 2009-12-31 14617299295858
## 2010-12-31 14992052727000
## 2011-12-31 15224554803721
## 2012-12-31 15567038144850
## 2013-12-31 15853795607833
## 2014-12-31 16242526401218
## 2015-12-31 16710459044262
## 2016-12-31 16972347893377
## 2017-12-31 17348626599471
## 2018-12-31 17856476888950
WLDgdp <- pdfetch_WB("NY.GDP.MKTP.KD")
typeof(WLDgdp)
## [1] "double"
length(WLDgdp)
## [1] 1003
attributes(WLDgdp)
## $class
## [1] "xts" "zoo"
## 
## $.indexCLASS
## [1] "Date"
## 
## $tclass
## [1] "Date"
## 
## $.indexTZ
## [1] "UTC"
## 
## $tzone
## [1] "UTC"
## 
## $index
##  [1] -284083200 -252547200 -221011200 -189475200 -157852800 -126316800
##  [7]  -94780800  -63244800  -31622400     -86400   31449600   62985600
## [13]   94608000  126144000  157680000  189216000  220838400  252374400
## [19]  283910400  315446400  347068800  378604800  410140800  441676800
## [25]  473299200  504835200  536371200  567907200  599529600  631065600
## [31]  662601600  694137600  725760000  757296000  788832000  820368000
## [37]  851990400  883526400  915062400  946598400  978220800 1009756800
## [43] 1041292800 1072828800 1104451200 1135987200 1167523200 1199059200
## [49] 1230681600 1262217600 1293753600 1325289600 1356912000 1388448000
## [55] 1419984000 1451520000 1483142400 1514678400 1546214400
## attr(,"tzone")
## [1] "UTC"
## attr(,"tclass")
## [1] "Date"
## 
## $dim
## [1] 59 17
## 
## $dimnames
## $dimnames[[1]]
## NULL
## 
## $dimnames[[2]]
##  [1] "NY.GDP.MKTP.KD.1A" "NY.GDP.MKTP.KD.4E" "NY.GDP.MKTP.KD.7E"
##  [4] "NY.GDP.MKTP.KD.B8" "NY.GDP.MKTP.KD.EU" "NY.GDP.MKTP.KD.F1"
##  [7] "NY.GDP.MKTP.KD.S3" "NY.GDP.MKTP.KD.T4" "NY.GDP.MKTP.KD.T7"
## [10] "NY.GDP.MKTP.KD.V2" "NY.GDP.MKTP.KD.XC" "NY.GDP.MKTP.KD.XD"
## [13] "NY.GDP.MKTP.KD.XE" "NY.GDP.MKTP.KD.XF" "NY.GDP.MKTP.KD.Z4"
## [16] "NY.GDP.MKTP.KD.Z7" "NY.GDP.MKTP.KD.ZT"
names(WLDgdp)
##  [1] "NY.GDP.MKTP.KD.1A" "NY.GDP.MKTP.KD.4E" "NY.GDP.MKTP.KD.7E"
##  [4] "NY.GDP.MKTP.KD.B8" "NY.GDP.MKTP.KD.EU" "NY.GDP.MKTP.KD.F1"
##  [7] "NY.GDP.MKTP.KD.S3" "NY.GDP.MKTP.KD.T4" "NY.GDP.MKTP.KD.T7"
## [10] "NY.GDP.MKTP.KD.V2" "NY.GDP.MKTP.KD.XC" "NY.GDP.MKTP.KD.XD"
## [13] "NY.GDP.MKTP.KD.XE" "NY.GDP.MKTP.KD.XF" "NY.GDP.MKTP.KD.Z4"
## [16] "NY.GDP.MKTP.KD.Z7" "NY.GDP.MKTP.KD.ZT"
is.atomic(WLDgdp)
## [1] TRUE
WLDgdp <- WLDgdp$NY.GDP.MKTP.KD.XD
WLDgdp <- as.numeric(WLDgdp$NY.GDP.MKTP.KD.XD)
WLDgdp %>% head()
## [1]  9025109173170  9451201416390 10006840672916 10554139918847
## [5] 11244185136607 11863589239650
WLDgdp %>% glimpse()
##  num [1:59] 9025109173170 9451201416390 10006840672916 10554139918847 11244185136607 ...
length(WLDgdp)
## [1] 59
WLDgdp <- ts(WLDgdp, start=1960, frequency = 1)
Worldgdp$WLD <- WLDgdp

Variable loop

#Koder <- c(".1.0.0.0.ALCD2",".1.1.0.0.ILRV",".1.1.0.0.OCPH",".1.1.0.0.OIGT",".1.1.0.0.OMGS",".1.1.0.0.OVGD",".1.1.0.0.OXGS",".3.1.0.0.PMGS",".3.1.0.0.PVGD",".3.1.0.0.PXGS",".1.0.0.0.UIGP",".1.0.0.0.UIGT",".1.0.0.0.UTVT",".1.0.0.0.UYVT",".3.0.0.0.ZVGDF")
#Variabler <- c("_WS","_r","_C","_It","_M","_GDP","_X","_Pm","_P","_Px","_Ipr","_Itcurr","_Tax","_Subsidier","_Tau")


Bulk_Names <- c("WS", "lWS", "dWS", "PS", "lPS", "dPS", "Y", "lY", "dY", "Yrw", "lYrw", "dYrw", "Tax", "Yf", "lYf", "dYf", "C", "lC", "dC", "W", "lW", "dW", "R", "lR", "dR", "It", "lIt", "dIt", "Itcurr", "lItcurr", "dItcurr", "Ipr", "lIpr", "dIpr", "Ips", "lIps", "dIps", "I", "lI", "dI", "r", "lr", "dr", "P", "lP", "dP", "Pm", "lPm", "dPm", "Px", "lPx", "dPx", "X", "lX", "dX", "M", "lM", "dM", "rulc", "lrulc", "drulc", "ulc", "lulc", "dulc", "Tau", "lTau", "dTau", "dPxdPm", "dPdPm")
Arne_Names <- c("WS", "WS_l", "WS_dl", "PS", "PS_l", "PS_dl", "Y", "Y_l", "Y_dl", "Yrw", "Yrw_l", "Yrw_dl", "Tax", "Yf", "Yf_l", "Yf_dl", "C", "C_l", "C_dl", "W", "W_l", "W_dl", "R", "R_l", "R_dl", "It", "It_l", "It_dl", "Itcurr", "Itcurr_l", "Itcurr_dl", "Ipr", "Ipr_l", "Ipr_dl", "Ips", "Ips_l", "Ips_dl", "I", "I_l", "I_dl", "r", "r_l", "r_dl", "P", "P_l", "P_dl", "Pm", "Pm_l", "Pm_dl", "Px", "Px_l", "Px_dl", "X", "X_l", "X_dl", "M", "M_l", "M_dl", "rulc", "rulc_l", "rulc_dl", "ulc", "ulc_l", "ulc_dl", "Tau", "Tau_l", "Tau_dl", "dPxdPm", "dPdPm")
RowCount <- nrow(DataFrame)
ColCount <- length(Bulk_Names)
Arne_df <- data.frame(matrix(ncol = ColCount, nrow = RowCount))
colnames(Arne_df) <- Arne_Names
rownames(Arne_df) <- c(1960:sum(1959+63))
Frame <- NULL

i <- NULL
j <- NULL 
i <- length(Lande)
i_c <- 0
j <- length(Koder)
k <- length(Variabler)
ifelse(j == k, j_c <- 0,  j_c <- ("NOPE! Length mismatch"))
## [1] 0
# Outer country loop
while(i_c < i) {
i_c <- i_c + 1

Frame <- NULL
Frame <- Arne_df

#WS
WS <- ts(get(paste(Lande[i_c],".1.0.0.0.ALCD2",sep=""), DataFrame), frequency = 1)
WS <- WS/100
lWS <- log(WS)
dWS <- diff(lWS)
Frame$WS <- WS
Frame$WS_l <- lWS
Frame$WS_dl[2:63] <- dWS
#Frame$WS_ddl[3:63] <- diff(dWS)

#PS
PS <- ts(1-WS)
lPS <- log(PS)
dPS <- diff(lPS)
Frame$PS <- PS
Frame$PS_l <- lPS
Frame$PS_dl[2:63] <- dPS
#Frame$PS_ddl[3:63] <- diff(dPS)

#Y
Y <- ts(get(paste(Lande[i_c],".1.1.0.0.OVGD",sep=""), DataFrame), frequency = 1) 
lY <- log(Y)
dY <- diff(lY)
Frame$Y <- Y
Frame$Y_l <- lY
Frame$Y_dl[2:63] <- dY
#Frame$Y_ddl[3:63] <- diff(dY)

#Yrw
Yrw <- WLDgdp - ts(get(paste(Lande[i_c],sep=""), Worldgdp), start=1960, frequency = 1)
lYrw <- log(Yrw)
dYrw <- diff(lYrw)
Frame$Yrw[1:59] <- Yrw
Frame$Yrw_l[1:59] <- lYrw
Frame$Yrw_dl[2:59] <- dYrw
#Frame$Yrw_ddl[3:63] <- diff(dYrw)

#Tax
Tax <- ts(get(paste(Lande[i_c],".1.0.0.0.UTVT",sep=""), DataFrame), frequency = 1) 
Frame$Tax <- Tax

#Yf
Yf <- ts(Y-Tax)
lYf <- log(Yf)
dYf <- diff(lYf)
Frame$Yf <- Yf
Frame$Yf_l <- lYf
Frame$Yf_dl[2:63] <- dYf
#Frame$Yf_ddl[3:63] <- diff(dYf)

#C
C <- ts(get(paste(Lande[i_c],".1.1.0.0.OCPH",sep=""), DataFrame), frequency = 1)
lC <- log(C)
dC <- diff(lC)
Frame$C <- C
Frame$C_l <- lC
Frame$C_dl[2:63] <- dC
#Frame$C_ddl[3:63] <- diff(dC)

#W
W <- ts(WS*Yf)
lW <- log(W)
dW <- diff(lW)
Frame$W <- W
Frame$W_l <- lW
Frame$W_dl[2:63] <- dW
#Frame$W_ddl[3:63] <- diff(dW)

#R
R <- ts(PS*Yf)
lR <- log(R)
dR <- diff(lR)
Frame$R <- R
Frame$R_l <- lR
Frame$R_dl[2:63] <- dR
#Frame$R_ddl[3:63] <- diff(dR)

#It
It <- ts(get(paste(Lande[i_c],".1.1.0.0.OIGT",sep=""), DataFrame), frequency = 1) 
lIt <- log(It)
dIt <- diff(lIt)
Frame$It <- It
Frame$It_l <- lIt
Frame$It_dl[2:63] <- dIt
#Frame$It_ddl[3:63] <- diff(dIt)

#Itcurr
Itcurr <- ts(get(paste(Lande[i_c],".1.0.0.0.UIGT",sep=""), DataFrame), frequency = 1)  
lItcurr <- log(Itcurr)
dItcurr <- diff(lItcurr)
Frame$Itcurr <- Itcurr
Frame$Itcurr_l <- lItcurr
Frame$Itcurr_dl[2:63] <- dItcurr
#Frame$Itcurr_ddl[3:63] <- diff(dItcurr)

#Ipr
Ipr <- ts(get(paste(Lande[i_c],".1.0.0.0.UIGP",sep=""), DataFrame), frequency = 1) 
Ipr <- as.numeric(Ipr)
lIpr <- log(Ipr)
dIpr <- diff(lIpr)
Frame$Ipr <- Ipr
Frame$Ipr_l <- lIpr
Frame$Ipr_dl[2:63] <- dIpr
#Frame$Ipr_ddl[3:63] <- diff(dIpr)

#Ips
Ips <- ts(Ipr/Itcurr)
lIps <- log(Ips)
dIps <- diff(lIps)
Frame$Ips <- Ips
Frame$Ips_l <- lIps
Frame$Ips_dl[2:63] <- dIps
#Frame$Ips_ddl[3:63] <- diff(dIps)

#I
I <- ts(It*Ips)
lI <- log(I)
dI <- diff(lI)
Frame$I <- I
Frame$I_l <- lI
Frame$I_dl[2:63] <- dI
#Frame$I_ddl[3:63] <- diff(dI)

#r
r <- ts(get(paste(Lande[i_c],".1.1.0.0.ILRV",sep=""), DataFrame), frequency = 1) 
r <- as.numeric(r)
lr <- log(r+1-min(r, na.rm=T))
dr <- diff(lr)
Frame$r <- r
Frame$r_l <- lr
Frame$r_dl[2:63] <- dr
#Frame$r_ddl[3:63] <- diff(dr)

#P
P <- ts(get(paste(Lande[i_c],".3.1.0.0.PVGD",sep=""), DataFrame), frequency = 1)  
lP <- log(P)
dP <- diff(lP)
Frame$P <- P
Frame$P_l <- lP
Frame$P_dl[2:63] <- dP
#Frame$P_ddl[3:63] <- diff(dP)

#Pm
Pm <- ts(get(paste(Lande[i_c],".3.1.0.0.PMGS",sep=""), DataFrame), frequency = 1) 
lPm <- log(Pm)
dPm <- diff(lPm)
Frame$Pm <- Pm
Frame$Pm_l <- lPm
Frame$Pm_dl[2:63] <- dPm
#Frame$Pm_ddl[3:63] <- diff(dPm)


#Px
Px <- ts(get(paste(Lande[i_c],".3.1.0.0.PXGS",sep=""), DataFrame), frequency = 1)
lPx <- log(Px)
dPx <- diff(lPx)
Frame$Px <- Px
Frame$Px_l <- lPx
Frame$Px_dl[2:63] <- dPx
#Frame$Px_ddl[3:63] <- diff(dPx)

#X
X <- ts(get(paste(Lande[i_c],".1.1.0.0.OXGS",sep=""), DataFrame), frequency = 1)
lX <- log(X)
dX <- diff(lX)
Frame$X <- X
Frame$X_l <- lX
Frame$X_dl[2:63] <- dX
#Frame$X_ddl[3:63] <- diff(dX)

#M
M <- ts(get(paste(Lande[i_c],".1.1.0.0.OMGS",sep=""), DataFrame), frequency = 1)
lM <- log(M)
dM <- diff(lM)
Frame$M <- M
Frame$M_l <- lM
Frame$M_dl[2:63] <- dM
#Frame$M_ddl[3:63] <- diff(dM)

#Ã…benhed
Trade <- (M+X)/Y
Frame$Trade <- Trade

#rulc
rulc <- ts(WS*(Yf/Y))
lrulc <- log(rulc)
drulc <- diff(lrulc)
Frame$rulc <- rulc
Frame$rulc_l <- lrulc
Frame$rulc_dl[2:63] <- drulc
#Frame$rulc_ddl[3:63] <- diff(drulc)

#ulc
ulc <- ts(rulc*P)
lulc <- log(ulc)
dulc <- diff(lulc)
Frame$ulc <- ulc
Frame$ulc_l <- lulc
Frame$ulc_dl[2:63] <- dulc
#Frame$ulc_ddl[3:63] <- diff(dulc)

#Tau
Tau <- ts(get(paste(Lande[i_c],".3.0.0.0.ZVGDF",sep=""), DataFrame), frequency = 1) 
lTau <- log(Tau)
dTau <- diff(lTau)
Frame$Tau <- Tau
Frame$Tau_l <- lTau
Frame$Tau_dl[2:63] <- dTau
#Frame$Tau_ddl[3:63] <- diff(dTau)

PxPm <- ts(Px/Pm)
dPxdPm <- diff(log(PxPm))
Frame$dPxdPm[2:63] <- dPxdPm

PPm <- ts(P/Pm)
dPdPm <- diff(log(PPm))
Frame$dPxdPm[2:63] <- dPxdPm
Frame$dPdPm[2:63] <- dPdPm

assign(paste(Lande[i_c],"_df",sep=""), Frame)

}

print(Frame)
##             WS       WS_l         WS_dl        PS       PS_l        PS_dl
## 1960        NA         NA            NA        NA         NA           NA
## 1961        NA         NA            NA        NA         NA           NA
## 1962        NA         NA            NA        NA         NA           NA
## 1963        NA         NA            NA        NA         NA           NA
## 1964        NA         NA            NA        NA         NA           NA
## 1965        NA         NA            NA        NA         NA           NA
## 1966        NA         NA            NA        NA         NA           NA
## 1967        NA         NA            NA        NA         NA           NA
## 1968        NA         NA            NA        NA         NA           NA
## 1969        NA         NA            NA        NA         NA           NA
## 1970        NA         NA            NA        NA         NA           NA
## 1971        NA         NA            NA        NA         NA           NA
## 1972        NA         NA            NA        NA         NA           NA
## 1973        NA         NA            NA        NA         NA           NA
## 1974        NA         NA            NA        NA         NA           NA
## 1975        NA         NA            NA        NA         NA           NA
## 1976        NA         NA            NA        NA         NA           NA
## 1977        NA         NA            NA        NA         NA           NA
## 1978        NA         NA            NA        NA         NA           NA
## 1979        NA         NA            NA        NA         NA           NA
## 1980        NA         NA            NA        NA         NA           NA
## 1981        NA         NA            NA        NA         NA           NA
## 1982        NA         NA            NA        NA         NA           NA
## 1983        NA         NA            NA        NA         NA           NA
## 1984        NA         NA            NA        NA         NA           NA
## 1985        NA         NA            NA        NA         NA           NA
## 1986        NA         NA            NA        NA         NA           NA
## 1987        NA         NA            NA        NA         NA           NA
## 1988        NA         NA            NA        NA         NA           NA
## 1989        NA         NA            NA        NA         NA           NA
## 1990        NA         NA            NA        NA         NA           NA
## 1991 0.6423539 -0.4426159            NA 0.3576461 -1.0282113           NA
## 1992 0.6533819 -0.4255935  0.0170223663 0.3466181 -1.0595316 -0.031320288
## 1993 0.6548756 -0.4233100  0.0022835500 0.3451244 -1.0638503 -0.004318767
## 1994 0.6470786 -0.4352874 -0.0119774520 0.3529214 -1.0415100  0.022340307
## 1995 0.6466922 -0.4358849 -0.0005974211 0.3533078 -1.0404156  0.001094441
## 1996 0.6443945 -0.4394441 -0.0035592752 0.3556055 -1.0339334  0.006482237
## 1997 0.6359522 -0.4526318 -0.0131877094 0.3640478 -1.0104702  0.023463203
## 1998 0.6330377 -0.4572252 -0.0045934014 0.3669623 -1.0024963  0.007973900
## 1999 0.6401756 -0.4460128  0.0112124289 0.3598244 -1.0221390 -0.019642796
## 2000 0.6495396 -0.4314915  0.0145213282 0.3504604 -1.0485075 -0.026368482
## 2001 0.6408141 -0.4450159 -0.0135243630 0.3591859 -1.0239152  0.024592287
## 2002 0.6383157 -0.4489222 -0.0039063887 0.3616843 -1.0169836  0.006931612
## 2003 0.6402775 -0.4458536  0.0030686749 0.3597225 -1.0224224 -0.005438809
## 2004 0.6283168 -0.4647108 -0.0188572699 0.3716832 -0.9897133  0.032709136
## 2005 0.6231104 -0.4730315 -0.0083206630 0.3768896 -0.9758031  0.013910220
## 2006 0.6083016 -0.4970845 -0.0240529511 0.3916984 -0.9372631  0.038539938
## 2007 0.6005277 -0.5099466 -0.0128621176 0.3994723 -0.9176108  0.019652383
## 2008 0.6114669 -0.4918944  0.0180521762 0.3885331 -0.9453770 -0.027766246
## 2009 0.6404493 -0.4455854  0.0463090013 0.3595507 -1.0229000 -0.077522941
## 2010 0.6272676 -0.4663820 -0.0207966552 0.3727324 -0.9868945  0.036005428
## 2011 0.6243784 -0.4709987 -0.0046166699 0.3756216 -0.9791730  0.007721552
## 2012 0.6366872 -0.4514768  0.0195219408 0.3633128 -1.0124911 -0.033318171
## 2013 0.6379298 -0.4495270  0.0019498145 0.3620702 -1.0159173 -0.003426147
## 2014 0.6350984 -0.4539753 -0.0044483264 0.3649016 -1.0081276  0.007789663
## 2015 0.6374442 -0.4502885  0.0036867789 0.3625558 -1.0145769 -0.006449305
## 2016 0.6379087 -0.4495601  0.0007283992 0.3620913 -1.0158589 -0.001281957
## 2017 0.6403651 -0.4457168  0.0038433331 0.3596349 -1.0226660 -0.006807076
## 2018 0.6478182 -0.4341452  0.0115715694 0.3521818 -1.0436077 -0.020941741
## 2019 0.6568661 -0.4202752  0.0138700458 0.3431339 -1.0696344 -0.026026681
## 2020 0.6559190 -0.4217179 -0.0014427436 0.3440810 -1.0668783  0.002756071
## 2021 0.6509527 -0.4293183 -0.0076003907 0.3490473 -1.0525478  0.014330476
## 2022        NA         NA            NA        NA         NA           NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1960       NA       NA           NA  5854229569019 29.39819            NA
## 1961       NA       NA           NA  6207391581344 29.45676  0.0585763692
## 1962       NA       NA           NA  6565158437932 29.51280  0.0560358687
## 1963       NA       NA           NA  6961023665524 29.57135  0.0585499007
## 1964       NA       NA           NA  7442668140591 29.63825  0.0669028637
## 1965       NA       NA           NA  7818775155889 29.68755  0.0492985070
## 1966       NA       NA           NA  8273573770758 29.74409  0.0565386398
## 1967       NA       NA           NA  8749755625143 29.80005  0.0559592190
## 1968       NA       NA           NA  9361136753158 29.86759  0.0675409597
## 1969       NA       NA           NA 10028904874151 29.93649  0.0689046799
## 1970       NA       NA           NA 10429414863916 29.97565  0.0391587552
## 1971       NA       NA           NA 10873999497165 30.01740  0.0417444063
## 1972       NA       NA           NA 11499542646223 30.07333  0.0559326922
## 1973       NA       NA           NA 12263046535497 30.13761  0.0642831289
## 1974       NA       NA           NA 12506548925291 30.15727  0.0196620276
## 1975       NA       NA           NA 12500248008917 30.15677 -0.0005039363
## 1976       NA       NA           NA 13098816465739 30.20354  0.0467733952
## 1977       NA       NA           NA 13563735778365 30.23842  0.0348778644
## 1978       NA       NA           NA 14036689016070 30.27270  0.0342748013
## 1979       NA       NA           NA 14678781578475 30.31742  0.0447284753
## 1980       NA       NA           NA 15012070253662 30.33988  0.0224515401
## 1981       NA       NA           NA 15272518067013 30.35708  0.0172004474
## 1982       NA       NA           NA 15379983658710 30.36409  0.0070118931
## 1983       NA       NA           NA 15672664257157 30.38294  0.0188511631
## 1984       NA       NA           NA 16200811735720 30.41608  0.0331432834
## 1985       NA       NA           NA 16737848041754 30.44869  0.0326111568
## 1986       NA       NA           NA 17262134501637 30.47954  0.0308428406
## 1987       NA       NA           NA 17868000973679 30.51403  0.0344961124
## 1988       NA       NA           NA 18781549954868 30.56390  0.0498635446
## 1989       NA       NA           NA 19532657826725 30.60311  0.0392128225
## 1990       NA       NA           NA 20259693228943 30.63965  0.0365455319
## 1991 2215.890 7.703409           NA 20715284390085 30.66189  0.0222384471
## 1992 2258.614 7.722507  0.019097222 21014228425241 30.67622  0.0143279482
## 1993 2236.495 7.712665 -0.009841443 21122060210480 30.68134  0.0051182496
## 1994 2290.127 7.736363  0.023697366 21714141156460 30.70898  0.0276457126
## 1995 2325.276 7.751594  0.015231467 22370999766659 30.73879  0.0298017523
## 1996 2344.365 7.759770  0.008175835 22950590507829 30.76436  0.0255781996
## 1997 2386.180 7.777449  0.017679185 23601800210285 30.79234  0.0279793229
## 1998 2434.358 7.797438  0.019989306 24050244547741 30.81117  0.0188221756
## 1999 2480.415 7.816181  0.018742818 24661554915554 30.83627  0.0251003851
## 2000 2552.228 7.844722  0.028540818 25643737704971 30.87532  0.0390538478
## 2001 2595.558 7.861557  0.016834819 26092386504422 30.89266  0.0173441692
## 2002 2590.407 7.859570 -0.001986516 26459851213860 30.90665  0.0139849686
## 2003 2571.923 7.852409 -0.007161138 26951574240670 30.92506  0.0184131734
## 2004 2602.527 7.864238  0.011829028 27780292663497 30.95535  0.0302851633
## 2005 2621.314 7.871431  0.007192823 28484540321319 30.98038  0.0250346229
## 2006 2721.306 7.908867  0.037436193 29416232180877 31.01257  0.0321851417
## 2007 2802.512 7.938271  0.029404246 30371435559606 31.04452  0.0319559100
## 2008 2829.479 7.947848  0.009576438 30565938470916 31.05091  0.0063837202
## 2009 2668.280 7.889189 -0.058658526 29434123516995 31.01318 -0.0377316020
## 2010 2779.786 7.930129  0.040939876 30364599633747 31.04430  0.0311227790
## 2011 2888.869 7.968620  0.038491130 30975131682852 31.06421  0.0199072346
## 2012 2900.989 7.972807  0.004186637 31224821413772 31.07223  0.0080286579
## 2013 2913.412 7.977080  0.004273190 31611788036280 31.08455  0.0123167535
## 2014 2978.256 7.999093  0.022012991 32184758346255 31.10251  0.0179629071
## 2015 3030.070 8.016341  0.017247827 32845353701172 31.12283  0.0203172979
## 2016 3097.641 8.038396  0.022055133 33432591937880 31.14055  0.0177209356
## 2017 3173.998 8.062747  0.024351138 34217026656709 31.16374  0.0231921449
## 2018 3222.479 8.077906  0.015158947 34863149324820 31.18245  0.0187070024
## 2019 3240.660 8.083532  0.005626074             NA       NA            NA
## 2020 3031.003 8.016649 -0.066883425             NA       NA            NA
## 2021 3208.995 8.073713  0.057064216             NA       NA            NA
## 2022       NA       NA           NA             NA       NA            NA
##           Tax       Yf     Yf_l        Yf_dl        C      C_l
## 1960       NA       NA       NA           NA       NA       NA
## 1961       NA       NA       NA           NA       NA       NA
## 1962       NA       NA       NA           NA       NA       NA
## 1963       NA       NA       NA           NA       NA       NA
## 1964       NA       NA       NA           NA       NA       NA
## 1965       NA       NA       NA           NA       NA       NA
## 1966       NA       NA       NA           NA       NA       NA
## 1967       NA       NA       NA           NA       NA       NA
## 1968       NA       NA       NA           NA       NA       NA
## 1969       NA       NA       NA           NA       NA       NA
## 1970       NA       NA       NA           NA       NA       NA
## 1971       NA       NA       NA           NA       NA       NA
## 1972       NA       NA       NA           NA       NA       NA
## 1973       NA       NA       NA           NA       NA       NA
## 1974       NA       NA       NA           NA       NA       NA
## 1975       NA       NA       NA           NA       NA       NA
## 1976       NA       NA       NA           NA       NA       NA
## 1977       NA       NA       NA           NA       NA       NA
## 1978       NA       NA       NA           NA       NA       NA
## 1979       NA       NA       NA           NA       NA       NA
## 1980       NA       NA       NA           NA       NA       NA
## 1981       NA       NA       NA           NA       NA       NA
## 1982       NA       NA       NA           NA       NA       NA
## 1983       NA       NA       NA           NA       NA       NA
## 1984       NA       NA       NA           NA       NA       NA
## 1985       NA       NA       NA           NA       NA       NA
## 1986       NA       NA       NA           NA       NA       NA
## 1987       NA       NA       NA           NA       NA       NA
## 1988       NA       NA       NA           NA       NA       NA
## 1989       NA       NA       NA           NA       NA       NA
## 1990       NA       NA       NA           NA       NA       NA
## 1991 161.0210 2054.869 7.627967           NA 1258.567 7.137729
## 1992 173.0900 2085.524 7.642775  0.014808044 1295.419 7.166589
## 1993 183.7370 2052.758 7.626940 -0.015835888 1296.220 7.167208
## 1994 199.7130 2090.414 7.645117  0.018177878 1314.646 7.181323
## 1995 201.0070 2124.269 7.661183  0.016065611 1334.995 7.196683
## 1996 201.3710 2142.994 7.669959  0.008776173 1356.305 7.212519
## 1997 204.6070 2181.573 7.687801  0.017842260 1366.399 7.219934
## 1998 211.8640 2222.494 7.706385  0.018583813 1386.106 7.234254
## 1999 227.1680 2253.247 7.720128  0.013742298 1422.157 7.259930
## 2000 231.7590 2320.469 7.749525  0.029397033 1445.710 7.276356
## 2001 234.5430 2361.015 7.766847  0.017322291 1463.014 7.288254
## 2002 235.9460 2354.461 7.764067 -0.002779785 1442.666 7.274248
## 2003 240.6050 2331.318 7.754189 -0.009878054 1448.754 7.278459
## 2004 238.7100 2363.817 7.768033  0.013843912 1458.048 7.284854
## 2005 241.1170 2380.197 7.774939  0.006905572 1469.103 7.292407
## 2006 250.5910 2470.715 7.812263  0.037324325 1488.971 7.305841
## 2007 274.1770 2528.335 7.835316  0.023053401 1485.286 7.303363
## 2008 279.1420 2550.337 7.843981  0.008664524 1490.413 7.306809
## 2009 279.7890 2388.491 7.778417 -0.065563722 1488.971 7.305841
## 2010 282.5630 2497.223 7.822935  0.044517529 1499.546 7.312918
## 2011 300.3500 2588.519 7.858841  0.035906583 1527.425 7.331339
## 2012 305.7140 2595.275 7.861448  0.002606587 1550.177 7.346124
## 2013 310.0050 2603.407 7.864576  0.003128488 1555.785 7.349736
## 2014 318.8150 2659.441 7.885871  0.021294978 1572.128 7.360185
## 2015 332.7540 2697.316 7.900012  0.014141254 1602.250 7.379164
## 2016 341.4420 2756.199 7.921608  0.021595352 1638.621 7.401610
## 2017 351.8050 2822.193 7.945270  0.023661686 1660.572 7.414917
## 2018 362.6940 2859.785 7.958502  0.013232205 1681.722 7.427574
## 2019 375.5970 2865.063 7.960346  0.001843892 1707.999 7.443078
## 2020 350.7557 2680.247 7.893664 -0.066681273 1567.054 7.356953
## 2021 377.0030 2831.992 7.948736  0.055071285 1660.364 7.414792
## 2022       NA       NA       NA           NA       NA       NA
##               C_dl        W      W_l         W_dl         R      R_l
## 1960            NA       NA       NA           NA        NA       NA
## 1961            NA       NA       NA           NA        NA       NA
## 1962            NA       NA       NA           NA        NA       NA
## 1963            NA       NA       NA           NA        NA       NA
## 1964            NA       NA       NA           NA        NA       NA
## 1965            NA       NA       NA           NA        NA       NA
## 1966            NA       NA       NA           NA        NA       NA
## 1967            NA       NA       NA           NA        NA       NA
## 1968            NA       NA       NA           NA        NA       NA
## 1969            NA       NA       NA           NA        NA       NA
## 1970            NA       NA       NA           NA        NA       NA
## 1971            NA       NA       NA           NA        NA       NA
## 1972            NA       NA       NA           NA        NA       NA
## 1973            NA       NA       NA           NA        NA       NA
## 1974            NA       NA       NA           NA        NA       NA
## 1975            NA       NA       NA           NA        NA       NA
## 1976            NA       NA       NA           NA        NA       NA
## 1977            NA       NA       NA           NA        NA       NA
## 1978            NA       NA       NA           NA        NA       NA
## 1979            NA       NA       NA           NA        NA       NA
## 1980            NA       NA       NA           NA        NA       NA
## 1981            NA       NA       NA           NA        NA       NA
## 1982            NA       NA       NA           NA        NA       NA
## 1983            NA       NA       NA           NA        NA       NA
## 1984            NA       NA       NA           NA        NA       NA
## 1985            NA       NA       NA           NA        NA       NA
## 1986            NA       NA       NA           NA        NA       NA
## 1987            NA       NA       NA           NA        NA       NA
## 1988            NA       NA       NA           NA        NA       NA
## 1989            NA       NA       NA           NA        NA       NA
## 1990            NA       NA       NA           NA        NA       NA
## 1991            NA 1319.953 7.185351           NA  734.9159 6.599756
## 1992  0.0288604228 1362.644 7.217182  0.031830410  722.8804 6.583244
## 1993  0.0006181417 1344.301 7.203630 -0.013552338  708.4569 6.563089
## 1994  0.0141150913 1352.662 7.209830  0.006200426  737.7517 6.603607
## 1995  0.0153601187 1373.748 7.225298  0.015468190  750.5208 6.620767
## 1996  0.0158365440 1380.934 7.230515  0.005216898  762.0604 6.636026
## 1997  0.0074147217 1387.376 7.235170  0.004654550  794.1968 6.677331
## 1998  0.0143195647 1406.923 7.249160  0.013990411  815.5714 6.703889
## 1999  0.0256763562 1442.474 7.274115  0.024954727  810.7733 6.697989
## 2000  0.0164258172 1507.236 7.318033  0.043918362  813.2325 6.701017
## 2001  0.0118981410 1512.972 7.321831  0.003797928  848.0433 6.742932
## 2002 -0.0140059006 1502.889 7.315145 -0.006686173  851.5715 6.747083
## 2003  0.0042110859 1492.691 7.308335 -0.006809379  838.6275 6.731767
## 2004  0.0063946782 1485.226 7.303322 -0.005013357  878.5911 6.778320
## 2005  0.0075534556 1483.126 7.301907 -0.001415091  897.0714 6.799135
## 2006  0.0134332669 1502.940 7.315178  0.013271374  967.7751 6.875000
## 2007 -0.0024779311 1518.335 7.325370  0.010191283 1009.9999 6.917705
## 2008  0.0034459165 1559.447 7.352086  0.026716700  990.8902 6.898604
## 2009 -0.0009679854 1529.707 7.332832 -0.019254720  858.7837 6.755517
## 2010  0.0070771183 1566.427 7.356553  0.023720873  930.7959 6.836040
## 2011  0.0184209154 1616.215 7.387842  0.031289913  972.3037 6.879668
## 2012  0.0147858069 1652.378 7.409971  0.022128527  942.8966 6.848957
## 2013  0.0036111234 1660.791 7.415049  0.005078302  942.6160 6.848659
## 2014  0.0104498742 1689.007 7.431896  0.016846652  970.4342 6.877744
## 2015  0.0189787758 1719.388 7.449724  0.017828033  977.9275 6.885436
## 2016  0.0224461431 1758.203 7.472048  0.022323751  997.9957 6.905749
## 2017  0.0133070869 1807.234 7.499553  0.027505019 1014.9591 6.922604
## 2018  0.0126561471 1852.621 7.524357  0.024803774 1007.1643 6.914894
## 2019  0.0155042414 1881.963 7.540070  0.015713938  983.1004 6.890711
## 2020 -0.0861250864 1758.025 7.471946 -0.068124017  922.2221 6.826786
## 2021  0.0578394319 1843.493 7.519417  0.047470894  988.4992 6.896188
## 2022            NA       NA       NA           NA        NA       NA
##              R_dl       It     It_l        It_dl   Itcurr Itcurr_l
## 1960           NA       NA       NA           NA       NA       NA
## 1961           NA       NA       NA           NA       NA       NA
## 1962           NA       NA       NA           NA       NA       NA
## 1963           NA       NA       NA           NA       NA       NA
## 1964           NA       NA       NA           NA       NA       NA
## 1965           NA       NA       NA           NA       NA       NA
## 1966           NA       NA       NA           NA       NA       NA
## 1967           NA       NA       NA           NA       NA       NA
## 1968           NA       NA       NA           NA       NA       NA
## 1969           NA       NA       NA           NA       NA       NA
## 1970           NA       NA       NA           NA       NA       NA
## 1971           NA       NA       NA           NA       NA       NA
## 1972           NA       NA       NA           NA       NA       NA
## 1973           NA       NA       NA           NA       NA       NA
## 1974           NA       NA       NA           NA       NA       NA
## 1975           NA       NA       NA           NA       NA       NA
## 1976           NA       NA       NA           NA       NA       NA
## 1977           NA       NA       NA           NA       NA       NA
## 1978           NA       NA       NA           NA       NA       NA
## 1979           NA       NA       NA           NA       NA       NA
## 1980           NA       NA       NA           NA       NA       NA
## 1981           NA       NA       NA           NA       NA       NA
## 1982           NA       NA       NA           NA       NA       NA
## 1983           NA       NA       NA           NA       NA       NA
## 1984           NA       NA       NA           NA       NA       NA
## 1985           NA       NA       NA           NA       NA       NA
## 1986           NA       NA       NA           NA       NA       NA
## 1987           NA       NA       NA           NA       NA       NA
## 1988           NA       NA       NA           NA       NA       NA
## 1989           NA       NA       NA           NA       NA       NA
## 1990           NA       NA       NA           NA       NA       NA
## 1991           NA 489.4186 6.193218           NA 394.7210 5.978179
## 1992 -0.016512244 511.3536 6.237061  0.043843171 428.9390 6.061315
## 1993 -0.020154655 488.1461 6.190615 -0.046446581 421.1980 6.043103
## 1994  0.040518185 505.5972 6.225740  0.035125559 441.6790 6.090583
## 1995  0.017160052 504.6277 6.223821 -0.001919375 445.9730 6.100258
## 1996  0.015258411 502.4463 6.219489 -0.004332161 442.4420 6.092309
## 1997  0.041305463 505.0518 6.224661  0.005172230 444.2130 6.096304
## 1998  0.026557712 525.3508 6.264066  0.039405232 459.2520 6.129599
## 1999 -0.005900498 547.8919 6.306078  0.042011775 474.4770 6.162213
## 2000  0.003028551 559.3441 6.326765  0.020686843 487.5020 6.189294
## 2001  0.041914578 544.6804 6.300199 -0.026565647 473.1400 6.159391
## 2002  0.004151827 511.5354 6.237417 -0.062782409 442.3010 6.091991
## 2003 -0.015316863 503.2340 6.221055 -0.016361521 431.7720 6.067898
## 2004  0.046553048 501.0526 6.216711 -0.004344185 431.9380 6.068282
## 2005  0.020815792 505.5366 6.225620  0.008909354 436.5340 6.078866
## 2006  0.075864263 543.5897 6.298195  0.072574295 472.3150 6.157646
## 2007  0.042705784 563.2222 6.333674  0.035479487 501.3230 6.217251
## 2008 -0.019101722 572.1295 6.349365  0.015691143 517.0130 6.248068
## 2009 -0.143086662 518.0190 6.250012 -0.099353443 471.2320 6.155351
## 2010  0.080522956 545.3469 6.301422  0.051410185 501.1480 6.216901
## 2011  0.043628135 585.6420 6.372709  0.071286575 548.7010 6.307554
## 2012 -0.030711585 584.3089 6.370430 -0.002278900 557.8770 6.324139
## 2013 -0.000297659 576.7952 6.357487 -0.012942517 559.5000 6.327044
## 2014  0.029084641 595.4582 6.389331  0.031843929 586.6650 6.374454
## 2015  0.007691949 605.9410 6.406783  0.017451428 605.9410 6.406783
## 2016  0.020313396 628.9668 6.444078  0.037295852 636.4210 6.455860
## 2017  0.016854610 644.3577 6.468254  0.024175534 665.8890 6.501123
## 2018 -0.007709536 666.5957 6.502184  0.033929709 707.7190 6.562047
## 2019 -0.024182788 683.9256 6.527849  0.025665425 746.8740 6.615896
## 2020 -0.063925202 644.4054 6.468328 -0.059521109 717.7619 6.576138
## 2021  0.069401761 682.5412 6.525823  0.057494860 777.5564 6.656156
## 2022           NA       NA       NA           NA       NA       NA
##          Itcurr_dl      Ipr    Ipr_l       Ipr_dl       Ips      Ips_l
## 1960            NA       NA       NA           NA        NA         NA
## 1961            NA       NA       NA           NA        NA         NA
## 1962            NA       NA       NA           NA        NA         NA
## 1963            NA       NA       NA           NA        NA         NA
## 1964            NA       NA       NA           NA        NA         NA
## 1965            NA       NA       NA           NA        NA         NA
## 1966            NA       NA       NA           NA        NA         NA
## 1967            NA       NA       NA           NA        NA         NA
## 1968            NA       NA       NA           NA        NA         NA
## 1969            NA       NA       NA           NA        NA         NA
## 1970            NA       NA       NA           NA        NA         NA
## 1971            NA       NA       NA           NA        NA         NA
## 1972            NA       NA       NA           NA        NA         NA
## 1973            NA       NA       NA           NA        NA         NA
## 1974            NA       NA       NA           NA        NA         NA
## 1975            NA       NA       NA           NA        NA         NA
## 1976            NA       NA       NA           NA        NA         NA
## 1977            NA       NA       NA           NA        NA         NA
## 1978            NA       NA       NA           NA        NA         NA
## 1979            NA       NA       NA           NA        NA         NA
## 1980            NA       NA       NA           NA        NA         NA
## 1981            NA       NA       NA           NA        NA         NA
## 1982            NA       NA       NA           NA        NA         NA
## 1983            NA       NA       NA           NA        NA         NA
## 1984            NA       NA       NA           NA        NA         NA
## 1985            NA       NA       NA           NA        NA         NA
## 1986            NA       NA       NA           NA        NA         NA
## 1987            NA       NA       NA           NA        NA         NA
## 1988            NA       NA       NA           NA        NA         NA
## 1989            NA       NA       NA           NA        NA         NA
## 1990            NA       NA       NA           NA        NA         NA
## 1991            NA 344.9460 5.843388           NA 0.8738983 -0.1347913
## 1992  0.0831355315 373.6210 5.923242  0.079854032 0.8710353 -0.1380728
## 1993 -0.0182116858 366.8480 5.904948 -0.018294321 0.8709633 -0.1381554
## 1994  0.0474803420 388.0960 5.961253  0.056305138 0.8786834 -0.1293306
## 1995  0.0096750382 396.1180 5.981712  0.020459415 0.8882107 -0.1185463
## 1996 -0.0079490297 393.6620 5.975493 -0.006219474 0.8897483 -0.1168167
## 1997  0.0039947947 398.2650 5.987118  0.011624940 0.8965631 -0.1091866
## 1998  0.0332949019 412.7490 6.022840  0.035722047 0.8987419 -0.1067594
## 1999  0.0326140658 425.3040 6.052804  0.029964547 0.8963638 -0.1094089
## 2000  0.0270812482 438.5000 6.083360  0.030555604 0.8994835 -0.1059346
## 2001 -0.0299030652 423.9440 6.049601 -0.033758441 0.8960223 -0.1097900
## 2002 -0.0674006820 394.0620 5.976508 -0.073093114 0.8909363 -0.1154824
## 2003 -0.0240929746 384.9470 5.953106 -0.023402595 0.8915516 -0.1147920
## 2004  0.0003843883 388.0230 5.961065  0.007958954 0.8983303 -0.1072174
## 2005  0.0105842051 392.4430 5.972391  0.011326688 0.8989976 -0.1064750
## 2006  0.0787798713 423.5150 6.048589  0.076197629 0.8966791 -0.1090572
## 2007  0.0596044681 452.0270 6.113742  0.065152980 0.9016682 -0.1035087
## 2008  0.0308174153 463.2320 6.138228  0.024486096 0.8959775 -0.1098400
## 2009 -0.0927174775 413.0930 6.023673 -0.114555259 0.8766234 -0.1316778
## 2010  0.0615509249 440.6920 6.088346  0.064673470 0.8793650 -0.1285552
## 2011  0.0906521999 486.1710 6.186560  0.098214195 0.8860399 -0.1209933
## 2012  0.0165848414 497.0740 6.208739  0.022178495 0.8910100 -0.1153996
## 2013  0.0029050198 498.2450 6.211092  0.002353016 0.8905183 -0.1159516
## 2014  0.0474104307 525.2680 6.263909  0.052816685 0.8953457 -0.1105453
## 2015  0.0323286631 541.0930 6.293591  0.029682559 0.8929797 -0.1131915
## 2016  0.0490776724 567.7470 6.341676  0.048084729 0.8920934 -0.1141844
## 2017  0.0452626959 592.7320 6.384742  0.043066461 0.8901363 -0.1163806
## 2018  0.0609241323 628.1790 6.442825  0.058082800 0.8876108 -0.1192220
## 2019  0.0538493740 661.3590 6.494297  0.051471651 0.8855028 -0.1215997
## 2020 -0.0397585978 625.8580 6.439124 -0.055173301 0.8719577 -0.1370144
## 2021  0.0800182832 680.0105 6.522108  0.082984731 0.8745481 -0.1340479
## 2022            NA       NA       NA           NA        NA         NA
##              Ips_dl        I      I_l         I_dl          r       r_l
## 1960             NA       NA       NA           NA         NA        NA
## 1961             NA       NA       NA           NA         NA        NA
## 1962             NA       NA       NA           NA         NA        NA
## 1963             NA       NA       NA           NA         NA        NA
## 1964             NA       NA       NA           NA         NA        NA
## 1965             NA       NA       NA           NA         NA        NA
## 1966             NA       NA       NA           NA         NA        NA
## 1967             NA       NA       NA           NA         NA        NA
## 1968             NA       NA       NA           NA         NA        NA
## 1969             NA       NA       NA           NA         NA        NA
## 1970             NA       NA       NA           NA         NA        NA
## 1971             NA       NA       NA           NA         NA        NA
## 1972             NA       NA       NA           NA         NA        NA
## 1973             NA       NA       NA           NA         NA        NA
## 1974             NA       NA       NA           NA         NA        NA
## 1975             NA       NA       NA           NA         NA        NA
## 1976             NA       NA       NA           NA         NA        NA
## 1977             NA       NA       NA           NA         NA        NA
## 1978             NA       NA       NA           NA         NA        NA
## 1979             NA       NA       NA           NA         NA        NA
## 1980             NA       NA       NA           NA         NA        NA
## 1981             NA       NA       NA           NA         NA        NA
## 1982             NA       NA       NA           NA         NA        NA
## 1983             NA       NA       NA           NA         NA        NA
## 1984             NA       NA       NA           NA         NA        NA
## 1985             NA       NA       NA           NA         NA        NA
## 1986             NA       NA       NA           NA         NA        NA
## 1987             NA       NA       NA           NA         NA        NA
## 1988             NA       NA       NA           NA         NA        NA
## 1989             NA       NA       NA           NA         NA        NA
## 1990             NA       NA       NA           NA         NA        NA
## 1991             NA 427.7021 6.058427           NA         NA        NA
## 1992 -0.00328149987 445.4070 6.098989  0.040561672  2.4111500 1.7520947
## 1993 -0.00008263553 425.1573 6.052459 -0.046529217  2.5255730 1.7717426
## 1994  0.00882479639 444.2599 6.096410  0.043950355  4.7278219 2.0898053
## 1995  0.01078437679 448.2157 6.105275  0.008865002  4.7644388 2.0943250
## 1996  0.00172955609 447.0507 6.102672 -0.002602605  5.5999368 2.1922630
## 1997  0.00763014505 452.8108 6.115474  0.012802375  5.3437592 2.1632401
## 1998  0.00242714528 472.1548 6.157307  0.041832377  3.8602013 1.9762621
## 1999 -0.00264951847 491.1105 6.196669  0.039362256  4.1374856 2.0139699
## 2000  0.00347435628 503.1208 6.220830  0.024161199  5.7598662 2.2099637
## 2001 -0.00385537557 488.0458 6.190409 -0.030421022  3.4665297 1.9201599
## 2002 -0.00569243171 455.7454 6.121934 -0.068474841  3.3551269 1.9036953
## 2003  0.00069037979 448.6591 6.106263 -0.015671141  2.6990242 1.8008090
## 2004  0.00757456546 450.1107 6.109494  0.003230380  2.9072179 1.8346174
## 2005  0.00074248238 454.4762 6.119145  0.009651836  2.9228396 1.8371087
## 2006 -0.00258224246 487.4255 6.189138  0.069992052  3.3475666 1.9025680
## 2007  0.00554851192 507.8395 6.230166  0.041027999  2.4146943 1.7527092
## 2008 -0.00633131939 512.6151 6.239525  0.009359823  3.0454352 1.8564472
## 2009 -0.02183778178 454.1076 6.118334 -0.121191225  1.3496211 1.5486557
## 2010  0.00312254464 479.5590 6.172867  0.054532729  2.0803991 1.6930285
## 2011  0.00756199521 518.9022 6.251715  0.078848571  1.5231802 1.5848787
## 2012  0.00559365308 520.6251 6.255030  0.003314753  0.0045085 1.2119493
## 2013 -0.00055200423 513.6467 6.241536 -0.013494521 -0.3911804 1.0866541
## 2014  0.00540625391 533.1410 6.278786  0.037250183 -0.6890209 0.9807663
## 2015 -0.00264610372 541.0930 6.293591  0.014805325 -1.2150954 0.7610040
## 2016 -0.00099294344 561.0972 6.329894  0.036302908 -1.0743615 0.8246833
## 2017 -0.00219623535 573.5662 6.351873  0.021979298 -0.7197912 0.9691596
## 2018 -0.00284133212 591.6775 6.382962  0.031088376 -1.0954619 0.8153903
## 2019 -0.00237772275 605.6180 6.406249  0.023287702 -2.3555196 0.0000000
## 2020 -0.01541470285 561.8942 6.331314 -0.074935811         NA        NA
## 2021  0.00296644776 596.9151 6.391775  0.060461308         NA        NA
## 2022             NA       NA       NA           NA         NA        NA
##              r_dl         P      P_l         P_dl        Pm     Pm_l
## 1960           NA  22.19090 3.099682           NA  45.51832 3.818115
## 1961           NA  23.24077 3.145908  0.046225708  44.43546 3.794038
## 1962           NA  24.15110 3.184330  0.038421709  44.33084 3.791681
## 1963           NA  24.89615 3.214713  0.030383338  45.38310 3.815140
## 1964           NA  25.64937 3.244519  0.029805905  46.19565 3.832886
## 1965           NA  26.60496 3.281098  0.036578386  47.55459 3.861878
## 1966           NA  27.52088 3.314945  0.033847500  48.40740 3.879653
## 1967           NA  27.95183 3.330483  0.015537642  47.72939 3.865547
## 1968           NA  28.59377 3.353189  0.022706320  48.04525 3.872143
## 1969           NA  29.78553 3.394023  0.040833559  48.94956 3.890790
## 1970           NA  32.07914 3.468206  0.074183532  45.74480 3.823078
## 1971           NA  34.52400 3.541655  0.073448734  46.43686 3.838093
## 1972           NA  36.08858 3.585977  0.044321692  47.24497 3.855346
## 1973           NA  38.36199 3.647067  0.061090562  51.29779 3.937648
## 1974           NA  41.15293 3.717295  0.070228068  63.28156 4.147594
## 1975           NA  43.48491 3.772414  0.055118942  64.68216 4.169485
## 1976           NA  44.92261 3.804941  0.032527175  68.29934 4.223900
## 1977           NA  46.31553 3.835477  0.030536137  69.60283 4.242805
## 1978           NA  47.95781 3.870322  0.034844239  68.37260 4.224972
## 1979           NA  50.00951 3.912213  0.041891558  74.16675 4.306316
## 1980           NA  52.73563 3.965291  0.053078026  83.52666 4.425166
## 1981           NA  54.93746 4.006195  0.040904266  93.30771 4.535903
## 1982           NA  57.45418 4.050988  0.044792257  95.80007 4.562263
## 1983           NA  59.06746 4.078680  0.027692442  96.44129 4.568934
## 1984           NA  60.24240 4.098376  0.019696155 101.15689 4.616673
## 1985           NA  61.52238 4.119401  0.021024697 103.51975 4.639762
## 1986           NA  63.36777 4.148955  0.029554356  91.60731 4.517511
## 1987           NA  64.17867 4.161671  0.012715501  87.25912 4.468882
## 1988           NA  65.26359 4.178434  0.016763334  89.03423 4.489021
## 1989           NA  67.14257 4.206818  0.028383999  93.68763 4.539966
## 1990           NA  69.42316 4.240221  0.033402313  92.49129 4.527114
## 1991           NA  71.56492 4.270605  0.030384437  95.10680 4.555000
## 1992           NA  75.35860 4.322258  0.051653055  93.11671 4.533854
## 1993  0.019647839  78.28724 4.360385  0.038126617  91.61958 4.517645
## 1994  0.318062778  79.88859 4.380633  0.020248330  91.45985 4.515900
## 1995  0.004519692  81.47894 4.400345  0.019711592  91.25540 4.513662
## 1996  0.097937969  81.95737 4.406199  0.005854642  91.20712 4.513133
## 1997 -0.029022874  82.18784 4.409007  0.002808187  93.46776 4.537617
## 1998 -0.186978022  82.74953 4.415818  0.006810927  90.98120 4.510653
## 1999  0.037707841  83.02964 4.419198  0.003379371  89.61361 4.495507
## 2000  0.195993788  82.63721 4.414460 -0.004737631  96.21858 4.566623
## 2001 -0.289803822  83.70223 4.427266  0.012805596  96.82084 4.572862
## 2002 -0.016464616  84.85617 4.440958  0.013692023  94.33082 4.546808
## 2003 -0.102886264  85.98895 4.454219  0.013261134  92.04352 4.522262
## 2004  0.033808358  86.93550 4.465166  0.010947655  91.76168 4.519195
## 2005  0.002491283  87.29631 4.469308  0.004141709  94.33200 4.546820
## 2006  0.065459375  87.64469 4.473291  0.003982800  96.96658 4.574366
## 2007 -0.149858896  89.18964 4.490765  0.017473848  97.10139 4.575756
## 2008  0.103738016  89.99854 4.499793  0.009028564  99.79167 4.603085
## 2009 -0.307791490  91.65943 4.518080  0.018286497  93.14385 4.534145
## 2010  0.144372863  92.25170 4.524521  0.006440796  97.48761 4.579725
## 2011 -0.108149790  93.23927 4.535169  0.010648245 102.69699 4.631783
## 2012 -0.372929413  94.63359 4.550012  0.014843528 104.71460 4.651239
## 2013 -0.125295196  96.49681 4.569510  0.019497505 103.01817 4.634905
## 2014 -0.105887877  98.29344 4.587957  0.018447292 101.49204 4.619980
## 2015 -0.219762230 100.00000 4.605170  0.017212922 100.00000 4.605170
## 2016  0.063679219 101.17701 4.616872  0.011701340  97.54992 4.580364
## 2017  0.144476324 102.23666 4.627290  0.010418833 100.08611 4.606031
## 2018 -0.153769232 103.78251 4.642297  0.015007084 101.92786 4.624265
## 2019 -0.815390344 106.02038 4.663631  0.021333924 101.80637 4.623073
## 2020           NA 108.28340 4.684752  0.021120466  99.62199 4.601383
## 2021           NA 110.03404 4.700790  0.016037972 100.09663 4.606136
## 2022           NA        NA       NA           NA        NA       NA
##              Pm_dl        Px     Px_l         Px_dl        X      X_l
## 1960            NA  37.09301 3.613429            NA       NA       NA
## 1961 -0.0240769973  36.76024 3.604417 -0.0090118725       NA       NA
## 1962 -0.0023572762  37.47668 3.623719  0.0193020552       NA       NA
## 1963  0.0234590878  37.83464 3.633225  0.0095062072       NA       NA
## 1964  0.0177460365  38.83770 3.659392  0.0261664791       NA       NA
## 1965  0.0289925138  39.88557 3.686015  0.0266230468       NA       NA
## 1966  0.0177744310  40.90002 3.711131  0.0251160901       NA       NA
## 1967 -0.0141053273  40.99052 3.713341  0.0022101291       NA       NA
## 1968  0.0065959910  41.01070 3.713833  0.0004923268       NA       NA
## 1969  0.0186469995  42.65650 3.753180  0.0393465802       NA       NA
## 1970 -0.0677122717  44.08087 3.786026  0.0328462459       NA       NA
## 1971  0.0150153762  46.00562 3.828763  0.0427375268       NA       NA
## 1972  0.0172527793  47.21491 3.854710  0.0259462268       NA       NA
## 1973  0.0823014928  50.11473 3.914315  0.0596051801       NA       NA
## 1974  0.2099461982  57.62508 4.053958  0.1396430792       NA       NA
## 1975  0.0218914952  60.33713 4.099948  0.0459897278       NA       NA
## 1976  0.0544146220  62.64479 4.137481  0.0375328989       NA       NA
## 1977  0.0189052360  63.85867 4.156672  0.0191917850       NA       NA
## 1978 -0.0178331182  65.01419 4.174606  0.0179331517       NA       NA
## 1979  0.0813437463  67.98199 4.219243  0.0446372189       NA       NA
## 1980  0.1188500183  72.01478 4.276871  0.0576286931       NA       NA
## 1981  0.1107368009  76.05873 4.331506  0.0546344154       NA       NA
## 1982  0.0263606730  79.18888 4.371836  0.0403300868       NA       NA
## 1983  0.0066710315  80.80458 4.392034  0.0201977016       NA       NA
## 1984  0.0477382092  83.34629 4.423004  0.0309704489       NA       NA
## 1985  0.0230898035  85.58104 4.449464  0.0264596394       NA       NA
## 1986 -0.1222513693  84.67929 4.438871 -0.0105927232       NA       NA
## 1987 -0.0486289435  83.87666 4.429347 -0.0095236078       NA       NA
## 1988  0.0201388245  85.36485 4.446934  0.0175870474       NA       NA
## 1989  0.0509451956  87.48460 4.471463  0.0245282828       NA       NA
## 1990 -0.0128516566  87.56185 4.472345  0.0008826527       NA       NA
## 1991  0.0278859420  88.80248 4.486415  0.0140692130  422.599 6.046424
## 1992 -0.0211468254  89.69274 4.496390  0.0099752717  421.179 6.043058
## 1993 -0.0162086032  89.77044 4.497256  0.0008658668  396.195 5.981907
## 1994 -0.0017449622  90.33229 4.503495  0.0062392029  427.567 6.058111
## 1995 -0.0022378766  91.41958 4.515460  0.0119647855  455.816 6.122089
## 1996 -0.0005291717  91.03108 4.511201 -0.0042587611  482.503 6.178987
## 1997  0.0244835467  91.81364 4.519761  0.0085599254  541.698 6.294709
## 1998 -0.0269636191  91.19735 4.513026 -0.0067349945  583.291 6.368686
## 1999 -0.0151457670  90.41270 4.504385 -0.0086411922  614.095 6.420150
## 2000  0.0711153656  93.09772 4.533650  0.0292650414  698.842 6.549425
## 2001  0.0062397333  93.68834 4.539974  0.0063239609  738.447 6.604549
## 2002 -0.0260542336  93.08109 4.533471 -0.0065026826  769.677 6.645971
## 2003 -0.0245465001  92.53942 4.527635 -0.0058363395  784.157 6.664609
## 2004 -0.0030667590  92.38954 4.526014 -0.0016208898  874.582 6.773746
## 2005  0.0276257236  93.33961 4.536245  0.0102307322  933.067 6.838477
## 2006  0.0275459505  94.31570 4.546648  0.0104031537 1047.766 6.954416
## 2007  0.0013892176  94.91499 4.552982  0.0063339389 1140.888 7.039562
## 2008  0.0273290527  95.89941 4.563300  0.0103182165 1163.033 7.058787
## 2009 -0.0689396799  93.51656 4.538139 -0.0251613266  996.946 6.904697
## 2010  0.0455802608  95.69917 4.561210  0.0230711621 1140.604 7.039313
## 2011  0.0520575387  98.19119 4.586917  0.0257068465 1235.998 7.119634
## 2012  0.0194556964  99.96097 4.604780  0.0178632970 1271.770 7.148165
## 2013 -0.0163331840  99.40304 4.599183 -0.0055971483 1284.546 7.158161
## 2014 -0.0149249335  99.20644 4.597203 -0.0019797138 1346.155 7.205008
## 2015 -0.0148102153 100.00000 4.605170  0.0079672363 1419.545 7.258092
## 2016 -0.0248059298  99.22943 4.597435 -0.0077355191 1453.614 7.281808
## 2017  0.0256666702 100.88225 4.613954  0.0165193045 1524.591 7.329481
## 2018  0.0182343699 101.83203 4.623325  0.0093707257 1557.241 7.350671
## 2019 -0.0011926412 102.62202 4.631053  0.0077278413 1570.869 7.359384
## 2020 -0.0216897258 102.96784 4.634417  0.0033641322 1380.899 7.230490
## 2021  0.0047530910 103.33265 4.637953  0.0035367408 1522.837 7.328330
## 2022            NA        NA       NA            NA       NA       NA
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1960           NA       NA       NA           NA        NA         NA
## 1961           NA       NA       NA           NA        NA         NA
## 1962           NA       NA       NA           NA        NA         NA
## 1963           NA       NA       NA           NA        NA         NA
## 1964           NA       NA       NA           NA        NA         NA
## 1965           NA       NA       NA           NA        NA         NA
## 1966           NA       NA       NA           NA        NA         NA
## 1967           NA       NA       NA           NA        NA         NA
## 1968           NA       NA       NA           NA        NA         NA
## 1969           NA       NA       NA           NA        NA         NA
## 1970           NA       NA       NA           NA        NA         NA
## 1971           NA       NA       NA           NA        NA         NA
## 1972           NA       NA       NA           NA        NA         NA
## 1973           NA       NA       NA           NA        NA         NA
## 1974           NA       NA       NA           NA        NA         NA
## 1975           NA       NA       NA           NA        NA         NA
## 1976           NA       NA       NA           NA        NA         NA
## 1977           NA       NA       NA           NA        NA         NA
## 1978           NA       NA       NA           NA        NA         NA
## 1979           NA       NA       NA           NA        NA         NA
## 1980           NA       NA       NA           NA        NA         NA
## 1981           NA       NA       NA           NA        NA         NA
## 1982           NA       NA       NA           NA        NA         NA
## 1983           NA       NA       NA           NA        NA         NA
## 1984           NA       NA       NA           NA        NA         NA
## 1985           NA       NA       NA           NA        NA         NA
## 1986           NA       NA       NA           NA        NA         NA
## 1987           NA       NA       NA           NA        NA         NA
## 1988           NA       NA       NA           NA        NA         NA
## 1989           NA       NA       NA           NA        NA         NA
## 1990           NA       NA       NA           NA        NA         NA
## 1991           NA  402.716 5.998232           NA 0.5956763 -0.5180579
## 1992 -0.003365817  414.858 6.027936  0.029704694 0.6033096 -0.5053247
## 1993 -0.061151407  387.240 5.959045 -0.068891637 0.6010750 -0.5090356
## 1994  0.076204487  419.024 6.037928  0.078883542 0.5906495 -0.5265326
## 1995  0.063978218  448.189 6.105215  0.067286821 0.5907893 -0.5262959
## 1996  0.056897919  466.522 6.145305  0.040090160 0.5890438 -0.5292548
## 1997  0.115721512  509.495 6.233420  0.088114860 0.5814214 -0.5422794
## 1998  0.073977554  557.469 6.323407  0.089986857 0.5779440 -0.5482783
## 1999  0.051463435  606.871 6.408316  0.084909351 0.5815453 -0.5420664
## 2000  0.129275040  672.463 6.510947  0.102630843 0.5905571 -0.5266889
## 2001  0.055124653  678.058 6.519233  0.008285739 0.5829081 -0.5397258
## 2002  0.041421614  660.439 6.492905 -0.026328065 0.5801750 -0.5444254
## 2003  0.018638309  697.699 6.547788  0.054883012 0.5803792 -0.5440737
## 2004  0.109136803  752.339 6.623187  0.075399243 0.5706860 -0.5609160
## 2005  0.064730952  797.099 6.680979  0.057791867 0.5657947 -0.5695240
## 2006  0.115938548  885.903 6.786607  0.105628577 0.5522863 -0.5936888
## 2007  0.085146628  940.900 6.846837  0.060229400 0.5417765 -0.6129017
## 2008  0.019224341  962.685 6.869726  0.022889391 0.5511427 -0.5957615
## 2009 -0.154089921  869.356 6.767753 -0.101973548 0.5732934 -0.5563577
## 2010  0.134616620  981.255 6.888832  0.121079657 0.5635063 -0.5735767
## 2011  0.080320794 1053.037 6.959434  0.070601285 0.5594630 -0.5807779
## 2012  0.028530890 1054.108 6.960450  0.001016541 0.5695914 -0.5628360
## 2013  0.009995718 1082.321 6.986863  0.026412898 0.5700502 -0.5620309
## 2014  0.046847032 1124.937 7.025482  0.038619225 0.5671127 -0.5671972
## 2015  0.053084017 1190.410 7.082053  0.056570752 0.5674418 -0.5666170
## 2016  0.023716472 1242.074 7.124538  0.042484777 0.5675943 -0.5663484
## 2017  0.047673308 1306.475 7.175088  0.050550108 0.5693872 -0.5631945
## 2018  0.021189488 1353.615 7.210534  0.035446121 0.5749054 -0.5535497
## 2019  0.008713304 1379.447 7.229438  0.018903903 0.5807344 -0.5434618
## 2020 -0.128894233 1253.059 7.133343 -0.096094932 0.5800144 -0.5447024
## 2021  0.097840306 1360.312 7.215469  0.082126323 0.5744767 -0.5542957
## 2022           NA       NA       NA           NA        NA         NA
##            rulc_dl      ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1960            NA       NA       NA            NA  52.83543 3.967182
## 1961            NA       NA       NA            NA  53.74501 3.984251
## 1962            NA       NA       NA            NA  55.07111 4.008625
## 1963            NA       NA       NA            NA  55.54587 4.017209
## 1964            NA       NA       NA            NA  58.09439 4.062069
## 1965            NA       NA       NA            NA  59.86838 4.092148
## 1966            NA       NA       NA            NA  60.60388 4.104359
## 1967            NA       NA       NA            NA  60.82166 4.107946
## 1968            NA       NA       NA            NA  63.25220 4.147130
## 1969            NA       NA       NA            NA  66.32176 4.194518
## 1970            NA       NA       NA            NA  67.99133 4.219380
## 1971            NA       NA       NA            NA  68.76521 4.230698
## 1972            NA       NA       NA            NA  70.34678 4.253437
## 1973            NA       NA       NA            NA  72.09539 4.277990
## 1974            NA       NA       NA            NA  72.35137 4.281534
## 1975            NA       NA       NA            NA  72.18869 4.279283
## 1976            NA       NA       NA            NA  75.24968 4.320812
## 1977            NA       NA       NA            NA  76.91258 4.342669
## 1978            NA       NA       NA            NA  77.96332 4.356239
## 1979            NA       NA       NA            NA  79.39086 4.374383
## 1980            NA       NA       NA            NA  78.85640 4.367628
## 1981            NA       NA       NA            NA  78.53588 4.363556
## 1982            NA       NA       NA            NA  78.06191 4.357502
## 1983            NA       NA       NA            NA  79.17973 4.371720
## 1984            NA       NA       NA            NA  80.46449 4.387816
## 1985            NA       NA       NA            NA  81.14120 4.396191
## 1986            NA       NA       NA            NA  81.51970 4.400845
## 1987            NA       NA       NA            NA  81.44907 4.399978
## 1988            NA       NA       NA            NA  83.17206 4.420912
## 1989            NA       NA       NA            NA  84.77392 4.439988
## 1990            NA       NA       NA            NA  86.77552 4.463325
## 1991            NA 42.62952 3.752547            NA  88.85054 4.486956
## 1992  0.0127331878 45.46457 3.816933  0.0643862426  90.12068 4.501150
## 1993 -0.0037108953 47.05650 3.851349  0.0344157216  89.02085 4.488871
## 1994 -0.0174969406 47.18615 3.854100  0.0027513898  90.20580 4.502094
## 1995  0.0002367225 48.13688 3.874049  0.0199483142  90.50950 4.505455
## 1996 -0.0029589364 48.27648 3.876944  0.0028957060  90.46379 4.504950
## 1997 -0.0130246344 47.78577 3.866728 -0.0102164471  91.37842 4.515009
## 1998 -0.0059988948 47.82459 3.867540  0.0008120318  91.82324 4.519865
## 1999  0.0062119090 48.28550 3.877131  0.0095912800  91.89869 4.520687
## 2000  0.0153775433 48.80200 3.887771  0.0106399121  92.61835 4.528487
## 2001 -0.0130368914 48.79071 3.887540 -0.0002312955  93.72832 4.540400
## 2002 -0.0046996573 49.23143 3.896532  0.0089923653  93.42165 4.537123
## 2003  0.0003517594 49.90620 3.910145  0.0136128931  93.04251 4.533056
## 2004 -0.0168423853 49.61288 3.904250 -0.0058947301  93.71806 4.540291
## 2005 -0.0086079137 49.39179 3.899784 -0.0044662049  94.21847 4.545616
## 2006 -0.0241648194 48.40496 3.879602 -0.0201820199  97.00463 4.574759
## 2007 -0.0192129625 48.32085 3.877863 -0.0017391147  98.48008 4.589854
## 2008  0.0171402623 49.60204 3.904032  0.0261688258  98.20749 4.587082
## 2009  0.0394038055 52.54775 3.961722  0.0576903028  92.42876 4.526438
## 2010 -0.0172190028 51.98442 3.950944 -0.0107782067  95.88932 4.563195
## 2011 -0.0072012166 52.16392 3.954391  0.0034470286  98.59086 4.590979
## 2012  0.0179418900 53.90248 3.987176  0.0327854182  98.03696 4.585345
## 2013  0.0008051127 55.00802 4.007479  0.0203026173  97.76457 4.582562
## 2014 -0.0051663393 55.74346 4.020760  0.0132809531  99.13339 4.596466
## 2015  0.0005802058 56.74418 4.038553  0.0177931278 100.00000 4.605170
## 2016  0.0002686188 57.42749 4.050523  0.0119699583 101.12504 4.616358
## 2017  0.0031538808 58.21225 4.064096  0.0135727134 102.40745 4.628959
## 2018  0.0096448271 59.66513 4.088748  0.0246519111 102.70404 4.631851
## 2019  0.0100878645 61.56968 4.120170  0.0314217886 102.27748 4.627690
## 2020 -0.0012405918 62.80592 4.140049  0.0198798740  95.91437 4.563456
## 2021 -0.0095933222 63.21199 4.146494  0.0064446500 100.75677 4.612709
## 2022            NA       NA       NA            NA        NA       NA
##             Tau_dl         dPxdPm        dPdPm     Trade
## 1960            NA             NA           NA        NA
## 1961  0.0170688407  0.01506512478  0.070302706        NA
## 1962  0.0243744118  0.02165933144  0.040778986        NA
## 1963  0.0085838384 -0.01395288055  0.006924250        NA
## 1964  0.0448599840  0.00842044265  0.012059868        NA
## 1965  0.0300793537 -0.00236946706  0.007585873        NA
## 1966  0.0122104240  0.00734165914  0.016073069        NA
## 1967  0.0035870732  0.01631545639  0.029642969        NA
## 1968  0.0391839900 -0.00610366423  0.016110329        NA
## 1969  0.0473881450  0.02069958065  0.022186559        NA
## 1970  0.0248620985  0.10055851760  0.141895804        NA
## 1971  0.0113177621  0.02772215057  0.058433358        NA
## 1972  0.0227391319  0.00869344758  0.027068913        NA
## 1973  0.0245530231 -0.02269631272 -0.021210930        NA
## 1974  0.0035443090 -0.07030311902 -0.139718130        NA
## 1975 -0.0022510462  0.02409823255  0.033227447        NA
## 1976  0.0415283038 -0.01688172308 -0.021887447        NA
## 1977  0.0218578339  0.00028654901  0.011630901        NA
## 1978  0.0135690406  0.03576626991  0.052677358        NA
## 1979  0.0181447058 -0.03670652735 -0.039452188        NA
## 1980 -0.0067547475 -0.06122132527 -0.065771993        NA
## 1981 -0.0040728356 -0.05610238556 -0.069832535        NA
## 1982 -0.0060533885  0.01396941376  0.018431584        NA
## 1983  0.0142180613  0.01352667010  0.021021411        NA
## 1984  0.0160956950 -0.01676776025 -0.028042055        NA
## 1985  0.0083747999  0.00336983591 -0.002065107        NA
## 1986  0.0046538940  0.11165864611  0.151805725        NA
## 1987 -0.0008667207  0.03910533565  0.061344444        NA
## 1988  0.0209335452 -0.00255177706 -0.003375490        NA
## 1989  0.0190763932 -0.02641691276 -0.022561197        NA
## 1990  0.0233366137  0.01373430924  0.046253970        NA
## 1991  0.0236311226 -0.01381672898  0.002498495 0.3724531
## 1992  0.0141940663  0.03112209705  0.072799880 0.3701549
## 1993 -0.0122790754  0.01707447003  0.054335220 0.3502959
## 1994  0.0132230832  0.00798416512  0.021993293 0.3696699
## 1995  0.0033610932  0.01420266210  0.021949468 0.3887732
## 1996 -0.0005051033 -0.00372958936  0.006383814 0.4048111
## 1997  0.0100596575 -0.01592362131 -0.021675359 0.4405338
## 1998  0.0048560267  0.02022862455  0.033774546 0.4686082
## 1999  0.0008213685  0.00650457479  0.018525138 0.4922426
## 2000  0.0078005613 -0.04185032420 -0.075852997 0.5372972
## 2001  0.0119130299  0.00008422759  0.006565863 0.5457420
## 2002 -0.0032772282  0.01955155103  0.039746256 0.5520816
## 2003 -0.0040666907  0.01871016062  0.037807634 0.5761665
## 2004  0.0072344582  0.00144586916  0.014014414 0.6251313
## 2005  0.0053253870 -0.01739499146 -0.023484015 0.6600377
## 2006  0.0291424322 -0.01714279684 -0.023563151 0.7105665
## 2007  0.0150956133  0.00494472124  0.016084630 0.7428293
## 2008 -0.0027718841 -0.01701083618 -0.018300489 0.7512754
## 2009 -0.0606442363  0.04377835336  0.087226177 0.6994401
## 2010  0.0367563659 -0.02250909869 -0.039139465 0.7633174
## 2011  0.0277839630 -0.02635069220 -0.041409294 0.7923637
## 2012 -0.0056340154 -0.00159239941 -0.004612168 0.8017535
## 2013 -0.0027822364  0.01073603574  0.035830689 0.8124038
## 2014  0.0139040477  0.01294521968  0.033372226 0.8297111
## 2015  0.0087038539  0.02277745164  0.032023137 0.8613514
## 2016  0.0111876047  0.01707041066  0.036507269 0.8702390
## 2017  0.0126016331 -0.00914736575 -0.015247838 0.8919558
## 2018  0.0028919893 -0.00886364422 -0.003227286 0.9032971
## 2019 -0.0041618798  0.00892048248  0.022526565 0.9104059
## 2020 -0.0642336972  0.02505385800  0.042810192 0.8690054
## 2021  0.0492535555 -0.00121635020  0.011284881 0.8984586
## 2022            NA             NA           NA        NA

Data plots

Wageshare

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Wageshare <- cbind(Year,AUT_df$WS,BEL_df$WS,DNK_df$WS,FIN_df$WS,FRA_df$WS,GRC_df$WS,IRL_df$WS,ITA_df$WS,LUX_df$WS,NLD_df$WS,PRT_df$WS,ESP_df$WS,SWE_df$WS,GBR_df$WS,DEU_df$WS)

Wageshare <- data.frame(Y=as.matrix(Wageshare), date=time(Wageshare))

colnames(Wageshare) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Wageshare <- Wageshare[1:61,]

meltedWageshare = melt(Wageshare[1:16], id = "Year")

ggplot(meltedWageshare, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Wageshare - pct.af BNP") + 
  xlab("Year")

Wageshare_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Wageshare_log <- cbind(Year,AUT_df$WS_l,BEL_df$WS_l,DNK_df$WS_l,FIN_df$WS_l,FRA_df$WS_l,GRC_df$WS_l,IRL_df$WS_l,ITA_df$WS_l,LUX_df$WS_l,NLD_df$WS_l,PRT_df$WS_l,ESP_df$WS_l,SWE_df$WS_l,GBR_df$WS_l,DEU_df$WS_l)

Wageshare_log <- data.frame(Y=as.matrix(Wageshare_log), date=time(Wageshare_log))

colnames(Wageshare_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Wageshare_log <- Wageshare_log[1:61,]

meltedWageshare_log = melt(Wageshare_log[1:16], id = "Year")

ggplot(meltedWageshare_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Wageshare_log") + 
  xlab("Year")

Wageshare_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Wageshare_difflog <- cbind(Year,AUT_df$WS_dl,BEL_df$WS_dl,DNK_df$WS_dl,FIN_df$WS_dl,FRA_df$WS_dl,GRC_df$WS_dl,IRL_df$WS_dl,ITA_df$WS_dl,LUX_df$WS_dl,NLD_df$WS_dl,PRT_df$WS_dl,ESP_df$WS_dl,SWE_df$WS_dl,GBR_df$WS_dl,DEU_df$WS_dl)

Wageshare_difflog <- data.frame(Y=as.matrix(Wageshare_difflog), date=time(Wageshare_difflog))

colnames(Wageshare_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Wageshare_difflog <- Wageshare_difflog[1:61,]

meltedWageshare_difflog = melt(Wageshare_difflog[1:16], id = "Year")

ggplot(meltedWageshare_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Wageshare_difflog") + 
  xlab("Year")

Profitshare

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Profitshare <- cbind(Year,AUT_df$PS,BEL_df$PS,DNK_df$PS,FIN_df$PS,FRA_df$PS,GRC_df$PS,IRL_df$PS,ITA_df$PS,LUX_df$PS,NLD_df$PS,PRT_df$PS,ESP_df$PS,SWE_df$PS,GBR_df$PS,DEU_df$PS)

Profitshare <- data.frame(Y=as.matrix(Profitshare), date=time(Profitshare))

colnames(Profitshare) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Profitshare <- Profitshare[1:61,]

meltedProfitshare = melt(Profitshare[1:16], id = "Year")

ggplot(meltedProfitshare, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Profitshare - 1-WS - pct. af BNP") + 
  xlab("Year")

Profitshare_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Profitshare_log <- cbind(Year,AUT_df$PS_l,BEL_df$PS_l,DNK_df$PS_l,FIN_df$PS_l,FRA_df$PS_l,GRC_df$PS_l,IRL_df$PS_l,ITA_df$PS_l,LUX_df$PS_l,NLD_df$PS_l,PRT_df$PS_l,ESP_df$PS_l,SWE_df$PS_l,GBR_df$PS_l,DEU_df$PS_l)

Profitshare_log <- data.frame(Y=as.matrix(Profitshare_log), date=time(Profitshare_log))

colnames(Profitshare_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Profitshare_log <- Profitshare_log[1:61,]

meltedProfitshare_log = melt(Profitshare_log[1:16], id = "Year")

ggplot(meltedProfitshare_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Profitshare_log") + 
  xlab("Year")

Profitshare_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Profitshare_difflog <- cbind(Year,AUT_df$PS_dl,BEL_df$PS_dl,DNK_df$PS_dl,FIN_df$PS_dl,FRA_df$PS_dl,GRC_df$PS_dl,IRL_df$PS_dl,ITA_df$PS_dl,LUX_df$PS_dl,NLD_df$PS_dl,PRT_df$PS_dl,ESP_df$PS_dl,SWE_df$PS_dl,GBR_df$PS_dl,DEU_df$PS_dl)

Profitshare_difflog <- data.frame(Y=as.matrix(Profitshare_difflog), date=time(Profitshare_difflog))

colnames(Profitshare_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Profitshare_difflog <- Profitshare_difflog[1:61,]

meltedProfitshare_difflog = melt(Profitshare_difflog[1:16], id = "Year")

ggplot(meltedProfitshare_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Profitshare_difflog") + 
  xlab("Year")

Trades

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Trades <- cbind(Year,AUT_df$Trade,BEL_df$Trade,DNK_df$Trade,FIN_df$Trade,FRA_df$Trade,GRC_df$Trade,IRL_df$Trade,ITA_df$Trade,LUX_df$Trade,NLD_df$Trade,PRT_df$Trade,ESP_df$Trade,SWE_df$Trade,GBR_df$Trade,DEU_df$Trade)

Trades <- data.frame(Y=as.matrix(Trades), date=time(Trades))

colnames(Trades) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Trades <- Trades[1:61,]

meltedTrades = melt(Trades[1:16], id = "Year")

ggplot(meltedTrades, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Trade - (Import+Export)/GDP - ratio") + 
  xlab("Year")

AUT_df$Trade
## Time Series:
## Start = 1 
## End = 63 
## Frequency = 1 
##  [1] 0.2462179 0.2432959 0.2542790 0.2648907 0.2707510 0.2869504 0.2954235
##  [8] 0.2977178 0.3071240 0.3261037 0.3553906 0.3595506 0.3765099 0.3864741
## [15] 0.4038546 0.3906635 0.4275974 0.4301848 0.4450711 0.4678203 0.4817985
## [22] 0.4916845 0.4725404 0.4723560 0.5072265 0.5303376 0.4987629 0.5099909
## [29] 0.5375111 0.5709162 0.5923618 0.5959249 0.5938367 0.5670482 0.5985258
## [36] 0.6209801 0.6333802 0.6766130 0.6974684 0.7087145 0.7667577 0.7986837
## [43] 0.8038404 0.8120789 0.8562495 0.8882972 0.9164737 0.9421544 0.9433314
## [50] 0.8509288 0.9406031 0.9682179 0.9731209 0.9793548 1.0013377 1.0242732
## [57] 1.0370053 1.0628577 1.0922071 1.1048278 1.0321149 1.0782529        NA

Consumption

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Consumption <- cbind(Year,AUT_df$C,BEL_df$C,DNK_df$C,FIN_df$C,FRA_df$C,GRC_df$C,IRL_df$C,ITA_df$C,LUX_df$C,NLD_df$C,PRT_df$C,ESP_df$C,SWE_df$C,GBR_df$C,DEU_df$C)

Consumption <- data.frame(Y=as.matrix(Consumption), date=time(Consumption))

colnames(Consumption) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Consumption <- Consumption[1:61,]

meltedConsumption = melt(Consumption[1:16], id = "Year")

ggplot(meltedConsumption, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Consumption - konstante 2015 priser - Mrd DKK") + 
  xlab("Year")

Consumption_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Consumption_log <- cbind(Year,AUT_df$C_l,BEL_df$C_l,DNK_df$C_l,FIN_df$C_l,FRA_df$C_l,GRC_df$C_l,IRL_df$C_l,ITA_df$C_l,LUX_df$C_l,NLD_df$C_l,PRT_df$C_l,ESP_df$C_l,SWE_df$C_l,GBR_df$C_l,DEU_df$C_l)

Consumption_log <- data.frame(Y=as.matrix(Consumption_log), date=time(Consumption_log))

colnames(Consumption_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Consumption_log <- Consumption_log[1:61,]

meltedConsumption_log = melt(Consumption_log[1:16], id = "Year")

ggplot(meltedConsumption_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Consumption_log") + 
  xlab("Year")

Consumption_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Consumption_difflog <- cbind(Year,AUT_df$C_dl,BEL_df$C_dl,DNK_df$C_dl,FIN_df$C_dl,FRA_df$C_dl,GRC_df$C_dl,IRL_df$C_dl,ITA_df$C_dl,LUX_df$C_dl,NLD_df$C_dl,PRT_df$C_dl,ESP_df$C_dl,SWE_df$C_dl,GBR_df$C_dl,DEU_df$C_dl)

Consumption_difflog <- data.frame(Y=as.matrix(Consumption_difflog), date=time(Consumption_difflog))

colnames(Consumption_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Consumption_difflog <- Consumption_difflog[1:61,]

meltedConsumption_difflog = melt(Consumption_difflog[1:16], id = "Year")

ggplot(meltedConsumption_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Consumption_difflog") + 
  xlab("Year")

Private_investment

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Private_investment <- cbind(Year,AUT_df$I,BEL_df$I,DNK_df$I,FIN_df$I,FRA_df$I,GRC_df$I,IRL_df$I,ITA_df$I,LUX_df$I,NLD_df$I,PRT_df$I,ESP_df$I,SWE_df$I,GBR_df$I,DEU_df$I)

Private_investment <- data.frame(Y=as.matrix(Private_investment), date=time(Private_investment))

colnames(Private_investment) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Private_investment <- Private_investment[1:61,]

meltedPrivate_investment = melt(Private_investment[1:16], id = "Year")

ggplot(meltedPrivate_investment, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Private_investment - konstante 2015 priser - Mrd DKK") + 
  xlab("Year")

Private_investment_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Private_investment_log <- cbind(Year,AUT_df$I_l,BEL_df$I_l,DNK_df$I_l,FIN_df$I_l,FRA_df$I_l,GRC_df$I_l,IRL_df$I_l,ITA_df$I_l,LUX_df$I_l,NLD_df$I_l,PRT_df$I_l,ESP_df$I_l,SWE_df$I_l,GBR_df$I_l,DEU_df$I_l)

Private_investment_log <- data.frame(Y=as.matrix(Private_investment_log), date=time(Private_investment_log))

colnames(Private_investment_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Private_investment_log <- Private_investment_log[1:61,]

meltedPrivate_investment_log = melt(Private_investment_log[1:16], id = "Year")

ggplot(meltedPrivate_investment_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Private_investment_log") + 
  xlab("Year")

Private_investment_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Private_investment_difflog <- cbind(Year,AUT_df$I_dl,BEL_df$I_dl,DNK_df$I_dl,FIN_df$I_dl,FRA_df$I_dl,GRC_df$I_dl,IRL_df$I_dl,ITA_df$I_dl,LUX_df$I_dl,NLD_df$I_dl,PRT_df$I_dl,ESP_df$I_dl,SWE_df$I_dl,GBR_df$I_dl,DEU_df$I_dl)

Private_investment_difflog <- data.frame(Y=as.matrix(Private_investment_difflog), date=time(Private_investment_difflog))

colnames(Private_investment_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Private_investment_difflog <- Private_investment_difflog[1:61,]

meltedPrivate_investment_difflog = melt(Private_investment_difflog[1:16], id = "Year")

ggplot(meltedPrivate_investment_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Private_investment_difflog") + 
  xlab("Year")

Export

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Export <- cbind(Year,AUT_df$X,BEL_df$X,DNK_df$X,FIN_df$X,FRA_df$X,GRC_df$X,IRL_df$X,ITA_df$X,LUX_df$X,NLD_df$X,PRT_df$X,ESP_df$X,SWE_df$X,GBR_df$X,DEU_df$X)

Export <- data.frame(Y=as.matrix(Export), date=time(Export))

colnames(Export) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Export <- Export[1:61,]

meltedExport = melt(Export[1:16], id = "Year")

ggplot(meltedExport, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Export - konstante 2015 priser - Mrd DKK") + 
  xlab("Year")

Export_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Export_log <- cbind(Year,AUT_df$X_l,BEL_df$X_l,DNK_df$X_l,FIN_df$X_l,FRA_df$X_l,GRC_df$X_l,IRL_df$X_l,ITA_df$X_l,LUX_df$X_l,NLD_df$X_l,PRT_df$X_l,ESP_df$X_l,SWE_df$X_l,GBR_df$X_l,DEU_df$X_l)

Export_log <- data.frame(Y=as.matrix(Export_log), date=time(Export_log))

colnames(Export_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Export_log <- Export_log[1:61,]

meltedExport_log = melt(Export_log[1:16], id = "Year")

ggplot(meltedExport_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Export_log") + 
  xlab("Year")

Export_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Export_difflog <- cbind(Year,AUT_df$X_dl,BEL_df$X_dl,DNK_df$X_dl,FIN_df$X_dl,FRA_df$X_dl,GRC_df$X_dl,IRL_df$X_dl,ITA_df$X_dl,LUX_df$X_dl,NLD_df$X_dl,PRT_df$X_dl,ESP_df$X_dl,SWE_df$X_dl,GBR_df$X_dl,DEU_df$X_dl)

Export_difflog <- data.frame(Y=as.matrix(Export_difflog), date=time(Export_difflog))

colnames(Export_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Export_difflog <- Export_difflog[1:61,]

meltedExport_difflog = melt(Export_difflog[1:16], id = "Year")

ggplot(meltedExport_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Export_difflog") + 
  xlab("Year")

Import

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Import <- cbind(Year,AUT_df$M,BEL_df$M,DNK_df$M,FIN_df$M,FRA_df$M,GRC_df$M,IRL_df$M,ITA_df$M,LUX_df$M,NLD_df$M,PRT_df$M,ESP_df$M,SWE_df$M,GBR_df$M,DEU_df$M)

Import <- data.frame(Y=as.matrix(Import), date=time(Import))

colnames(Import) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Import <- Import[1:61,]

meltedImport = melt(Import[1:16], id = "Year")

ggplot(meltedImport, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Import - konstante 2015 priser - Mrd DKK") + 
  xlab("Year")

Import_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Import_log <- cbind(Year,AUT_df$M_l,BEL_df$M_l,DNK_df$M_l,FIN_df$M_l,FRA_df$M_l,GRC_df$M_l,IRL_df$M_l,ITA_df$M_l,LUX_df$M_l,NLD_df$M_l,PRT_df$M_l,ESP_df$M_l,SWE_df$M_l,GBR_df$M_l,DEU_df$M_l)

Import_log <- data.frame(Y=as.matrix(Import_log), date=time(Import_log))

colnames(Import_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Import_log <- Import_log[1:61,]

meltedImport_log = melt(Import_log[1:16], id = "Year")

ggplot(meltedImport_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Import_log") + 
  xlab("Year")

Import_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Import_difflog <- cbind(Year,AUT_df$M_dl,BEL_df$M_dl,DNK_df$M_dl,FIN_df$M_dl,FRA_df$M_dl,GRC_df$M_dl,IRL_df$M_dl,ITA_df$M_dl,LUX_df$M_dl,NLD_df$M_dl,PRT_df$M_dl,ESP_df$M_dl,SWE_df$M_dl,GBR_df$M_dl,DEU_df$M_dl)

Import_difflog <- data.frame(Y=as.matrix(Import_difflog), date=time(Import_difflog))

colnames(Import_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Import_difflog <- Import_difflog[1:61,]

meltedImport_difflog = melt(Import_difflog[1:16], id = "Year")

ggplot(meltedImport_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Import_difflog") + 
  xlab("Year")

Real long-term interest rates

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

interest <- cbind(Year,AUT_df$r,BEL_df$r,DNK_df$r,FIN_df$r,FRA_df$r,GRC_df$r,IRL_df$r,ITA_df$r,LUX_df$r,NLD_df$r,PRT_df$r,ESP_df$r,SWE_df$r,GBR_df$r,DEU_df$r)

interest <- data.frame(Y=as.matrix(interest), date=time(interest))

colnames(interest) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

interest <- interest[1:61,]

meltedinterest = melt(interest[1:16], id = "Year")

ggplot(meltedinterest, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Real long-term interest rate - pct.") + 
  xlab("Year")

Bruttonationalprodukt

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Bruttonationalprodukt <- cbind(Year,AUT_df$Y,BEL_df$Y,DNK_df$Y,FIN_df$Y,FRA_df$Y,GRC_df$Y,IRL_df$Y,ITA_df$Y,LUX_df$Y,NLD_df$Y,PRT_df$Y,ESP_df$Y,SWE_df$Y,GBR_df$Y,DEU_df$Y)

Bruttonationalprodukt <- data.frame(Y=as.matrix(Bruttonationalprodukt), date=time(Bruttonationalprodukt))

colnames(Bruttonationalprodukt) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Bruttonationalprodukt <- Bruttonationalprodukt[1:61,]

meltedBruttonationalprodukt = melt(Bruttonationalprodukt[1:16], id = "Year")

ggplot(meltedBruttonationalprodukt, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Bruttonationalprodukt - konstante 2015 priser - Mrd USD") + 
  xlab("Year")

Bruttonationalprodukt_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Bruttonationalprodukt_log <- cbind(Year,AUT_df$Y_l,BEL_df$Y_l,DNK_df$Y_l,FIN_df$Y_l,FRA_df$Y_l,GRC_df$Y_l,IRL_df$Y_l,ITA_df$Y_l,LUX_df$Y_l,NLD_df$Y_l,PRT_df$Y_l,ESP_df$Y_l,SWE_df$Y_l,GBR_df$Y_l,DEU_df$Y_l)

Bruttonationalprodukt_log <- data.frame(Y=as.matrix(Bruttonationalprodukt_log), date=time(Bruttonationalprodukt_log))

colnames(Bruttonationalprodukt_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Bruttonationalprodukt_log <- Bruttonationalprodukt_log[1:61,]

meltedBruttonationalprodukt_log = melt(Bruttonationalprodukt_log[1:16], id = "Year")

ggplot(meltedBruttonationalprodukt_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Bruttonationalprodukt_log") + 
  xlab("Year")

Bruttonationalprodukt_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Bruttonationalprodukt_difflog <- cbind(Year,AUT_df$Y_dl,BEL_df$Y_dl,DNK_df$Y_dl,FIN_df$Y_dl,FRA_df$Y_dl,GRC_df$Y_dl,IRL_df$Y_dl,ITA_df$Y_dl,LUX_df$Y_dl,NLD_df$Y_dl,PRT_df$Y_dl,ESP_df$Y_dl,SWE_df$Y_dl,GBR_df$Y_dl,DEU_df$Y_dl)

Bruttonationalprodukt_difflog <- data.frame(Y=as.matrix(Bruttonationalprodukt_difflog), date=time(Bruttonationalprodukt_difflog))

colnames(Bruttonationalprodukt_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Bruttonationalprodukt_difflog <- Bruttonationalprodukt_difflog[1:61,]

meltedBruttonationalprodukt_difflog = melt(Bruttonationalprodukt_difflog[1:16], id = "Year")

ggplot(meltedBruttonationalprodukt_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Bruttonationalprodukt_difflog") + 
  xlab("Year")

GDP at factor cost

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Bruttonationalprodukt_faktor <- cbind(Year,AUT_df$Yf,BEL_df$Yf,DNK_df$Yf,FIN_df$Yf,FRA_df$Yf,GRC_df$Yf,IRL_df$Yf,ITA_df$Yf,LUX_df$Yf,NLD_df$Yf,PRT_df$Yf,ESP_df$Yf,SWE_df$Yf,GBR_df$Yf,DEU_df$Yf)

Bruttonationalprodukt_faktor <- data.frame(Y=as.matrix(Bruttonationalprodukt_faktor), date=time(Bruttonationalprodukt_faktor))

colnames(Bruttonationalprodukt_faktor) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Bruttonationalprodukt_faktor <- Bruttonationalprodukt_faktor[1:61,]

meltedBruttonationalprodukt_faktor = melt(Bruttonationalprodukt_faktor[1:16], id = "Year")

ggplot(meltedBruttonationalprodukt_faktor, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Bruttonationalprodukt faktor - konstante 2015 priser - Mrd USD") + 
  xlab("Year")

Total_investment

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Total_investment <- cbind(Year,AUT_df$It,BEL_df$It,DNK_df$It,FIN_df$It,FRA_df$It,GRC_df$It,IRL_df$It,ITA_df$It,LUX_df$It,NLD_df$It,PRT_df$It,ESP_df$It,SWE_df$It,GBR_df$It,DEU_df$It)

Total_investment <- data.frame(Y=as.matrix(Total_investment), date=time(Total_investment))

colnames(Total_investment) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Total_investment <- Total_investment[1:61,]

meltedTotal_investment = melt(Total_investment[1:16], id = "Year")

ggplot(meltedTotal_investment, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Total_investment - konstante 2015 priser - Mrd DKK") + 
  xlab("Year")

Total_investment_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Total_investment_log <- cbind(Year,AUT_df$It_l,BEL_df$It_l,DNK_df$It_l,FIN_df$It_l,FRA_df$It_l,GRC_df$It_l,IRL_df$It_l,ITA_df$It_l,LUX_df$It_l,NLD_df$It_l,PRT_df$It_l,ESP_df$It_l,SWE_df$It_l,GBR_df$It_l,DEU_df$It_l)

Total_investment_log <- data.frame(Y=as.matrix(Total_investment_log), date=time(Total_investment_log))

colnames(Total_investment_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Total_investment_log <- Total_investment_log[1:61,]

meltedTotal_investment_log = melt(Total_investment_log[1:16], id = "Year")

ggplot(meltedTotal_investment_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Total_investment_log") + 
  xlab("Year")

Total_investment_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Total_investment_difflog <- cbind(Year,AUT_df$It_dl,BEL_df$It_dl,DNK_df$It_dl,FIN_df$It_dl,FRA_df$It_dl,GRC_df$It_dl,IRL_df$It_dl,ITA_df$It_dl,LUX_df$It_dl,NLD_df$It_dl,PRT_df$It_dl,ESP_df$It_dl,SWE_df$It_dl,GBR_df$It_dl,DEU_df$It_dl)

Total_investment_difflog <- data.frame(Y=as.matrix(Total_investment_difflog), date=time(Total_investment_difflog))

colnames(Total_investment_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Total_investment_difflog <- Total_investment_difflog[1:61,]

meltedTotal_investment_difflog = melt(Total_investment_difflog[1:16], id = "Year")

ggplot(meltedTotal_investment_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Total_investment_difflog") + 
  xlab("Year")

Ratio_private_to_total_investement

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Ratio_private_to_total_investement <- cbind(Year,AUT_df$Ips,BEL_df$Ips,DNK_df$Ips,FIN_df$Ips,FRA_df$Ips,GRC_df$Ips,IRL_df$Ips,ITA_df$Ips,LUX_df$Ips,NLD_df$Ips,PRT_df$Ips,ESP_df$Ips,SWE_df$Ips,GBR_df$Ips,DEU_df$Ips)

Ratio_private_to_total_investement <- data.frame(Y=as.matrix(Ratio_private_to_total_investement), date=time(Ratio_private_to_total_investement))

colnames(Ratio_private_to_total_investement) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Ratio_private_to_total_investement <- Ratio_private_to_total_investement[1:61,]

meltedRatio_private_to_total_investement = melt(Ratio_private_to_total_investement[1:16], id = "Year")

ggplot(meltedRatio_private_to_total_investement, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Ratio_private_to_total_investement - ratio") + 
  xlab("Year")

Ratio_private_to_total_investement_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Ratio_private_to_total_investement_log <- cbind(Year,AUT_df$Ips_l,BEL_df$Ips_l,DNK_df$Ips_l,FIN_df$Ips_l,FRA_df$Ips_l,GRC_df$Ips_l,IRL_df$Ips_l,ITA_df$Ips_l,LUX_df$Ips_l,NLD_df$Ips_l,PRT_df$Ips_l,ESP_df$Ips_l,SWE_df$Ips_l,GBR_df$Ips_l,DEU_df$Ips_l)

Ratio_private_to_total_investement_log <- data.frame(Y=as.matrix(Ratio_private_to_total_investement_log), date=time(Ratio_private_to_total_investement_log))

colnames(Ratio_private_to_total_investement_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Ratio_private_to_total_investement_log <- Ratio_private_to_total_investement_log[1:61,]

meltedRatio_private_to_total_investement_log = melt(Ratio_private_to_total_investement_log[1:16], id = "Year")

ggplot(meltedRatio_private_to_total_investement_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Ratio_private_to_total_investement_log") + 
  xlab("Year")

Ratio_private_to_total_investement_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Ratio_private_to_total_investement_difflog <- cbind(Year,AUT_df$Ips_dl,BEL_df$Ips_dl,DNK_df$Ips_dl,FIN_df$Ips_dl,FRA_df$Ips_dl,GRC_df$Ips_dl,IRL_df$Ips_dl,ITA_df$Ips_dl,LUX_df$Ips_dl,NLD_df$Ips_dl,PRT_df$Ips_dl,ESP_df$Ips_dl,SWE_df$Ips_dl,GBR_df$Ips_dl,DEU_df$Ips_dl)

Ratio_private_to_total_investement_difflog <- data.frame(Y=as.matrix(Ratio_private_to_total_investement_difflog), date=time(Ratio_private_to_total_investement_difflog))

colnames(Ratio_private_to_total_investement_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Ratio_private_to_total_investement_difflog <- Ratio_private_to_total_investement_difflog[1:61,]

meltedRatio_private_to_total_investement_difflog = melt(Ratio_private_to_total_investement_difflog[1:16], id = "Year")

ggplot(meltedRatio_private_to_total_investement_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Ratio_private_to_total_investement_difflog") + 
  xlab("Year")

Real_unit_labour_cost

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Real_unit_labour_cost <- cbind(Year,AUT_df$rulc,BEL_df$rulc,DNK_df$rulc,FIN_df$rulc,FRA_df$rulc,GRC_df$rulc,IRL_df$rulc,ITA_df$rulc,LUX_df$rulc,NLD_df$rulc,PRT_df$rulc,ESP_df$rulc,SWE_df$rulc,GBR_df$rulc,DEU_df$rulc)

Real_unit_labour_cost <- data.frame(Y=as.matrix(Real_unit_labour_cost), date=time(Real_unit_labour_cost))

colnames(Real_unit_labour_cost) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Real_unit_labour_cost <- Real_unit_labour_cost[1:61,]

meltedReal_unit_labour_cost = melt(Real_unit_labour_cost[1:16], id = "Year")

ggplot(meltedReal_unit_labour_cost, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Real_unit_labour_cost - konstante 2015 priser - Mrd USD") + 
  xlab("Year")

Real_unit_labour_cost_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Real_unit_labour_cost_log <- cbind(Year,AUT_df$rulc_l,BEL_df$rulc_l,DNK_df$rulc_l,FIN_df$rulc_l,FRA_df$rulc_l,GRC_df$rulc_l,IRL_df$rulc_l,ITA_df$rulc_l,LUX_df$rulc_l,NLD_df$rulc_l,PRT_df$rulc_l,ESP_df$rulc_l,SWE_df$rulc_l,GBR_df$rulc_l,DEU_df$rulc_l)

Real_unit_labour_cost_log <- data.frame(Y=as.matrix(Real_unit_labour_cost_log), date=time(Real_unit_labour_cost_log))

colnames(Real_unit_labour_cost_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Real_unit_labour_cost_log <- Real_unit_labour_cost_log[1:61,]

meltedReal_unit_labour_cost_log = melt(Real_unit_labour_cost_log[1:16], id = "Year")

ggplot(meltedReal_unit_labour_cost_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Real_unit_labour_cost_log") + 
  xlab("Year")

Real_unit_labour_cost_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Real_unit_labour_cost_difflog <- cbind(Year,AUT_df$rulc_dl,BEL_df$rulc_dl,DNK_df$rulc_dl,FIN_df$rulc_dl,FRA_df$rulc_dl,GRC_df$rulc_dl,IRL_df$rulc_dl,ITA_df$rulc_dl,LUX_df$rulc_dl,NLD_df$rulc_dl,PRT_df$rulc_dl,ESP_df$rulc_dl,SWE_df$rulc_dl,GBR_df$rulc_dl,DEU_df$rulc_dl)

Real_unit_labour_cost_difflog <- data.frame(Y=as.matrix(Real_unit_labour_cost_difflog), date=time(Real_unit_labour_cost_difflog))

colnames(Real_unit_labour_cost_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Real_unit_labour_cost_difflog <- Real_unit_labour_cost_difflog[1:61,]

meltedReal_unit_labour_cost_difflog = melt(Real_unit_labour_cost_difflog[1:16], id = "Year")

ggplot(meltedReal_unit_labour_cost_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Real_unit_labour_cost_difflog") + 
  xlab("Year")

Unit_labour_cost

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Unit_labour_cost <- cbind(Year,AUT_df$ulc,BEL_df$ulc,DNK_df$ulc,FIN_df$ulc,FRA_df$ulc,GRC_df$ulc,IRL_df$ulc,ITA_df$ulc,LUX_df$ulc,NLD_df$ulc,PRT_df$ulc,ESP_df$ulc,SWE_df$ulc,GBR_df$ulc,DEU_df$ulc)

Unit_labour_cost <- data.frame(Y=as.matrix(Unit_labour_cost), date=time(Unit_labour_cost))

colnames(Unit_labour_cost) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Unit_labour_cost <- Unit_labour_cost[1:61,]

meltedUnit_labour_cost = melt(Unit_labour_cost[1:16], id = "Year")

ggplot(meltedUnit_labour_cost, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Unit_labour_cost - konstante 2015 priser - Mrd USD") + 
  xlab("Year")

Unit_labour_cost_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Unit_labour_cost_log <- cbind(Year,AUT_df$ulc_l,BEL_df$ulc_l,DNK_df$ulc_l,FIN_df$ulc_l,FRA_df$ulc_l,GRC_df$ulc_l,IRL_df$ulc_l,ITA_df$ulc_l,LUX_df$ulc_l,NLD_df$ulc_l,PRT_df$ulc_l,ESP_df$ulc_l,SWE_df$ulc_l,GBR_df$ulc_l,DEU_df$ulc_l)

Unit_labour_cost_log <- data.frame(Y=as.matrix(Unit_labour_cost_log), date=time(Unit_labour_cost_log))

colnames(Unit_labour_cost_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Unit_labour_cost_log <- Unit_labour_cost_log[1:61,]

meltedUnit_labour_cost_log = melt(Unit_labour_cost_log[1:16], id = "Year")

ggplot(meltedUnit_labour_cost_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Unit_labour_cost_log") + 
  xlab("Year")

Unit_labour_cost_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Unit_labour_cost_difflog <- cbind(Year,AUT_df$ulc_dl,BEL_df$ulc_dl,DNK_df$ulc_dl,FIN_df$ulc_dl,FRA_df$ulc_dl,GRC_df$ulc_dl,IRL_df$ulc_dl,ITA_df$ulc_dl,LUX_df$ulc_dl,NLD_df$ulc_dl,PRT_df$ulc_dl,ESP_df$ulc_dl,SWE_df$ulc_dl,GBR_df$ulc_dl,DEU_df$ulc_dl)

Unit_labour_cost_difflog <- data.frame(Y=as.matrix(Unit_labour_cost_difflog), date=time(Unit_labour_cost_difflog))

colnames(Unit_labour_cost_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Unit_labour_cost_difflog <- Unit_labour_cost_difflog[1:61,]

meltedUnit_labour_cost_difflog = melt(Unit_labour_cost_difflog[1:16], id = "Year")

ggplot(meltedUnit_labour_cost_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Unit_labour_cost_difflog") + 
  xlab("Year")

Total_factor_productivity

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Total_factor_productivity <- cbind(Year,AUT_df$Tau,BEL_df$Tau,DNK_df$Tau,FIN_df$Tau,FRA_df$Tau,GRC_df$Tau,IRL_df$Tau,ITA_df$Tau,LUX_df$Tau,NLD_df$Tau,PRT_df$Tau,ESP_df$Tau,SWE_df$Tau,GBR_df$Tau,DEU_df$Tau)

Total_factor_productivity <- data.frame(Y=as.matrix(Total_factor_productivity), date=time(Total_factor_productivity))

colnames(Total_factor_productivity) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Total_factor_productivity <- Total_factor_productivity[1:61,]

meltedTotal_factor_productivity = melt(Total_factor_productivity[1:16], id = "Year")

ggplot(meltedTotal_factor_productivity, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Total_factor_productivity - pct.") + 
  xlab("Year")

Total_factor_productivity_log

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Total_factor_productivity_log <- cbind(Year,AUT_df$Tau_l,BEL_df$Tau_l,DNK_df$Tau_l,FIN_df$Tau_l,FRA_df$Tau_l,GRC_df$Tau_l,IRL_df$Tau_l,ITA_df$Tau_l,LUX_df$Tau_l,NLD_df$Tau_l,PRT_df$Tau_l,ESP_df$Tau_l,SWE_df$Tau_l,GBR_df$Tau_l,DEU_df$Tau_l)

Total_factor_productivity_log <- data.frame(Y=as.matrix(Total_factor_productivity_log), date=time(Total_factor_productivity_log))

colnames(Total_factor_productivity_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Total_factor_productivity_log <- Total_factor_productivity_log[1:61,]

meltedTotal_factor_productivity_log = melt(Total_factor_productivity_log[1:16], id = "Year")

ggplot(meltedTotal_factor_productivity_log, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Total_factor_productivity_log") + 
  xlab("Year")

Total_factor_productivity_difflog

Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)

Total_factor_productivity_difflog <- cbind(Year,AUT_df$Tau_dl,BEL_df$Tau_dl,DNK_df$Tau_dl,FIN_df$Tau_dl,FRA_df$Tau_dl,GRC_df$Tau_dl,IRL_df$Tau_dl,ITA_df$Tau_dl,LUX_df$Tau_dl,NLD_df$Tau_dl,PRT_df$Tau_dl,ESP_df$Tau_dl,SWE_df$Tau_dl,GBR_df$Tau_dl,DEU_df$Tau_dl)

Total_factor_productivity_difflog <- data.frame(Y=as.matrix(Total_factor_productivity_difflog), date=time(Total_factor_productivity_difflog))

colnames(Total_factor_productivity_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")

Total_factor_productivity_difflog <- Total_factor_productivity_difflog[1:61,]

meltedTotal_factor_productivity_difflog = melt(Total_factor_productivity_difflog[1:16], id = "Year")

ggplot(meltedTotal_factor_productivity_difflog, aes(x = Year, y = value, colour = variable)) + 
  geom_line() + 
  ylab(label="Total_factor_productivity_difflog") + 
  xlab("Year")

Analyser

SKIP

Østrig analyse

Test for NA værdier

AUT_df[!complete.cases(AUT_df),]
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1960 0.7256254 -0.3207214           NA 0.2743746 -1.2932610           NA
## 1961 0.7239438 -0.3230415 -0.002320152 0.2760562 -1.2871508  0.006110179
## 1962 0.7357610 -0.3068499  0.016191616 0.2642390 -1.3309014 -0.043750593
## 1963 0.7310768 -0.3132368 -0.006386871 0.2689232 -1.3133294  0.017571976
## 1964 0.7334377 -0.3100126  0.003224132 0.2665623 -1.3221473 -0.008817819
## 1965 0.7319154 -0.3120903 -0.002077668 0.2680846 -1.3164528  0.005694458
## 2019 0.6260351 -0.4683488  0.006421170 0.3739649 -0.9835933 -0.010657909
## 2020 0.6251904 -0.4696990 -0.001350188 0.3748096 -0.9813371  0.002256208
## 2021 0.6263528 -0.4678416  0.001857472 0.3736472 -0.9844431 -0.003106001
## 2022        NA         NA           NA        NA         NA           NA
##             Y      Y_l        Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960  76.8953 4.342445          NA  8933272468566 29.82080         NA
## 1961  80.9800 4.394202  0.05175745  9354278814080 29.86685 0.04605108
## 1962  82.9215 4.417894  0.02369217  9907350905759 29.92430 0.05744313
## 1963  86.3039 4.457875  0.03998041 10450532998910 29.97767 0.05337598
## 1964  91.5147 4.516500  0.05862483 11134232962396 30.04105 0.06337143
## 1965  94.1302 4.544679  0.02817932 11749810537450 30.09486 0.05381270
## 2019 374.7020 5.926131  0.01572255             NA       NA         NA
## 2020 354.0442 5.869422 -0.05670928             NA       NA         NA
## 2021 371.7651 5.918262  0.04884044             NA       NA         NA
## 2022       NA       NA          NA             NA       NA         NA
##           Tax        Yf     Yf_l       Yf_dl        C      C_l        C_dl
## 1960  1.75668  75.13862 4.319335          NA  44.4182 3.793649          NA
## 1961  1.99310  78.98690 4.369282  0.04994734  46.6942 3.843620  0.04997066
## 1962  2.15925  80.76225 4.391510  0.02222764  48.2497 3.876390  0.03276965
## 1963  2.34590  83.95800 4.430317  0.03880702  50.9175 3.930207  0.05381707
## 1964  2.63795  88.87675 4.487251  0.05693390  52.6630 3.963913  0.03370645
## 1965  2.88242  91.24778 4.513579  0.02632808  55.2635 4.012113  0.04819953
## 2019 55.49361 319.20839 5.765844  0.01395298 191.6717 5.255784  0.01389627
## 2020 53.47147 300.57273 5.705690 -0.06015440 182.5673 5.207119 -0.04866514
## 2021 56.25372 315.51138 5.754195  0.04850500 191.4400 5.254574  0.04745557
## 2022       NA        NA       NA          NA       NA       NA          NA
##              W      W_l        W_dl         R      R_l         R_dl
## 1960  54.52249 3.998613          NA  20.61613 3.026074           NA
## 1961  57.18208 4.046241  0.04762719  21.80482 3.082131  0.056057520
## 1962  59.42172 4.084660  0.03841925  21.34053 3.060608 -0.021522955
## 1963  61.37975 4.117080  0.03242015  22.57825 3.116987  0.056378997
## 1964  65.18556 4.177238  0.06015804  23.69119 3.165103  0.048116085
## 1965  66.78566 4.201488  0.02425042  24.46212 3.197126  0.032022543
## 2019 199.83565 5.297495  0.02037415 119.37274 4.782251  0.003295072
## 2020 187.91518 5.235991 -0.06150458 112.65755 4.724353 -0.057898187
## 2021 197.62142 5.286353  0.05036247 117.88996 4.769752  0.045398995
## 2022        NA       NA          NA        NA       NA           NA
##            It     It_l       It_dl   Itcurr Itcurr_l   Itcurr_dl      Ipr
## 1960 17.21160 2.845584          NA  3.30813 1.196383          NA  2.64469
## 1961 19.37717 2.964096  0.11851199  3.85243 1.348704  0.15232104  3.10021
## 1962 19.90820 2.991132  0.02703614  4.03305 1.394523  0.04581880  3.23092
## 1963 20.59366 3.024983  0.03385155  4.38616 1.478454  0.08393122  3.50877
## 1964 22.56715 3.116495  0.09151205  4.87514 1.584149  0.10569469  3.86724
## 1965 23.73844 3.167096  0.05060037  5.48371 1.701782  0.11763306  4.36347
## 2019 90.39978 4.504242  0.02862798 97.02811 4.575001  0.04924926 85.22380
## 2020 81.85431 4.404941 -0.09930087 88.79337 4.486312 -0.08868875 76.42119
## 2021 87.51514 4.471812  0.06687085 94.95447 4.553398  0.06708553 82.04948
## 2022       NA       NA          NA       NA       NA          NA       NA
##          Ipr_l      Ipr_dl       Ips      Ips_l       Ips_dl        I
## 1960 0.9725539          NA 0.7994517 -0.2238292           NA 13.75984
## 1961 1.1314699  0.15891599 0.8047414 -0.2172343  0.006594952 15.59361
## 1962 1.1727669  0.04129708 0.8011108 -0.2217560 -0.004521720 15.94867
## 1963 1.2552655  0.08249862 0.7999640 -0.2231886 -0.001432593 16.47419
## 1964 1.3525411  0.09727553 0.7932572 -0.2316077 -0.008419167 17.90155
## 1965 1.4732676  0.12072654 0.7957149 -0.2285143  0.003093481 18.88903
## 2019 4.4452807  0.05533616 0.8783413 -0.1297200  0.006086903 79.40186
## 2020 4.3362600 -0.10902072 0.8606632 -0.1500520 -0.020331979 70.44900
## 2021 4.4073225  0.07106247 0.8640929 -0.1460750  0.003976938 75.62121
## 2022        NA          NA        NA         NA           NA       NA
##           I_l        I_dl         r     r_l       r_dl         P      P_l
## 1960 2.621754          NA        NA      NA         NA  16.36998 2.795449
## 1961 2.746861  0.12510695        NA      NA         NA  17.24669 2.847621
## 1962 2.769376  0.02251442        NA      NA         NA  17.90530 2.885097
## 1963 2.801795  0.03241896        NA      NA         NA  18.54220 2.920049
## 1964 2.884888  0.08309288        NA      NA         NA  19.14571 2.952079
## 1965 2.938581  0.05369385  0.771622 1.22179         NA  20.23595 3.007461
## 2019 4.374522  0.03471488 -1.621633 0.00000 -0.4863231 106.35703 4.666802
## 2020 4.254889 -0.11963285        NA      NA         NA 107.60710 4.678487
## 2021 4.325737  0.07084778        NA      NA         NA 108.75249 4.689075
## 2022       NA          NA        NA      NA         NA        NA       NA
##            P_dl        Pm     Pm_l        Pm_dl        Px     Px_l
## 1960         NA  27.61355 3.318307           NA  31.61577 3.453656
## 1961 0.05217135  28.22812 3.340319  0.022011933  32.78156 3.489866
## 1962 0.03747642  28.40090 3.346421  0.006102343  32.90333 3.493574
## 1963 0.03495245  28.64915 3.355124  0.008703020  33.40812 3.508799
## 1964 0.03202934  29.13785 3.372038  0.016914144  34.29642 3.535041
## 1965 0.05538209  29.70072 3.391171  0.019133238  35.25322 3.562557
## 2019 0.01694908 104.44071 4.648620  0.006281889 103.05591 4.635272
## 2020 0.01168502 102.77412 4.632534 -0.016086037 101.30548 4.618141
## 2021 0.01058792 103.20387 4.636706  0.004172825 101.81201 4.623128
## 2022         NA        NA       NA           NA        NA       NA
##             Px_dl        X      X_l        X_dl        M      M_l
## 1960           NA   8.5168 2.142041          NA  10.4162 2.343362
## 1961  0.036210386   8.9977 2.196969  0.05492831  10.7044 2.370655
## 1962  0.003707447   9.8819 2.290705  0.09373581  11.2033 2.416208
## 1963  0.015225115  10.5874 2.359665  0.06895981  12.2737 2.507459
## 1964  0.026242237  11.1696 2.413196  0.05353119  13.6081 2.610665
## 1965  0.027515658  11.9664 2.482103  0.06890692  15.0443 2.710999
## 2019  0.003864065 215.2062 5.371597  0.02693113 198.7750 5.292174
## 2020 -0.017131073 188.2023 5.237517 -0.13407919 177.2120 5.177347
## 2021  0.004987541 207.6474 5.335841  0.09832400 193.2094 5.263775
## 2022           NA       NA       NA          NA       NA       NA
##             M_dl      rulc     rulc_l      rulc_dl      ulc    ulc_l
## 1960          NA 0.7090484 -0.3438314           NA 11.60711 2.451618
## 1961  0.02729259 0.7061259 -0.3479617 -0.004130265 12.17834 2.499659
## 1962  0.04555351 0.7166020 -0.3332346  0.014727087 12.83098 2.551862
## 1963  0.09125038 0.7112048 -0.3407949 -0.007560262 13.18730 2.579254
## 1964  0.10320644 0.7122960 -0.3392617  0.001533210 13.63741 2.612817
## 1965  0.10033398 0.7095030 -0.3431906 -0.003928898 14.35747 2.664270
## 2019  0.02751533 0.5333189 -0.6286357  0.004651600 56.72221 4.038166
## 2020 -0.11482678 0.5307676 -0.6334310 -0.004795304 57.11436 4.045056
## 2021  0.08642782 0.5315760 -0.6319090  0.001522030 57.81022 4.057166
## 2022          NA        NA         NA           NA       NA       NA
##          ulc_dl       Tau    Tau_l       Tau_dl        dPxdPm       dPdPm
## 1960         NA  50.86872 3.929248           NA            NA          NA
## 1961 0.04804109  52.46886 3.960220  0.030971556  0.0141984525 0.030159417
## 1962 0.05220351  52.80409 3.966589  0.006368885 -0.0023948953 0.031374076
## 1963 0.02739218  54.33431 3.995156  0.028567221  0.0065220951 0.026249427
## 1964 0.03356255  56.73544 4.038399  0.043243107  0.0093280925 0.015115201
## 1965 0.05145320  57.61425 4.053770  0.015370904  0.0083824206 0.036248855
## 2019 0.02160068 102.35448 4.628442  0.001554939 -0.0024178249 0.010667186
## 2020 0.00688972  97.08278 4.575564 -0.052878053 -0.0010450354 0.027771062
## 2021 0.01210995 100.53851 4.610541  0.034976889  0.0008147166 0.006415097
## 2022         NA        NA       NA           NA            NA          NA
##          Trade
## 1960 0.2462179
## 1961 0.2432959
## 1962 0.2542790
## 1963 0.2648907
## 1964 0.2707510
## 1965 0.2869504
## 2019 1.1048278
## 2020 1.0321149
## 2021 1.0782529
## 2022        NA
AUT <- AUT_df[7:59,]
AUT[!complete.cases(AUT),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
AUT %>% head()
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1966 0.7302082 -0.3144255 -0.002335234 0.2697918 -1.310105  0.006347949
## 1967 0.7369296 -0.3052629  0.009162667 0.2630704 -1.335334 -0.025228880
## 1968 0.7333948 -0.3100712 -0.004808288 0.2666052 -1.321986  0.013347481
## 1969 0.7260672 -0.3201127 -0.010041548 0.2739328 -1.294872  0.027113785
## 1970 0.7024946 -0.3531175 -0.033004806 0.2975054 -1.212323  0.082549431
## 1971 0.7182453 -0.3309441  0.022173387 0.2817547 -1.266718 -0.054395417
##             Y      Y_l       Y_dl            Yrw    Yrw_l     Yrw_dl
## 1966  99.4420 4.599575 0.05489563 12461101693283 30.15363 0.05877481
## 1967 102.4329 4.629208 0.02963339 13041361076969 30.19915 0.04551400
## 1968 107.0141 4.672961 0.04375265 13859144991691 30.25997 0.06081937
## 1969 113.7304 4.733831 0.06087013 14662243317079 30.31630 0.05633040
## 1970 121.8313 4.802637 0.06880657 15041941976905 30.34186 0.02556672
## 1971 128.0607 4.852504 0.04986707 15635771387565 30.38058 0.03871890
##          Tax        Yf     Yf_l      Yf_dl       C      C_l       C_dl
## 1966 3.20887  96.23313 4.566774 0.05319502 57.6582 4.054532 0.04241982
## 1967 3.34135  99.09155 4.596044 0.02927049 59.6729 4.088878 0.03434551
## 1968 3.74026 103.27384 4.637384 0.04133993 62.0636 4.128160 0.03928168
## 1969 4.03963 109.69077 4.697665 0.06028112 63.8764 4.156950 0.02879030
## 1970 4.51467 117.31663 4.764877 0.06721129 66.5363 4.197748 0.04079770
## 1971 5.12365 122.93705 4.811672 0.04679592 71.0063 4.262769 0.06502094
##             W      W_l       W_dl        R      R_l         R_dl       It
## 1966 70.27022 4.252348 0.05085979 25.96291 3.256669  0.059542971 25.83622
## 1967 73.02350 4.290781 0.03843315 26.06805 3.260710  0.004041605 25.85506
## 1968 75.74049 4.327313 0.03653164 27.53335 3.315398  0.054687412 26.59323
## 1969 79.64287 4.377553 0.05023958 30.04790 3.402793  0.087394909 27.90011
## 1970 82.41430 4.411759 0.03420649 34.90233 3.552553  0.149760725 30.63815
## 1971 88.29896 4.480728 0.06896930 34.63809 3.544954 -0.007599501 34.86329
##          It_l        It_dl  Itcurr Itcurr_l  Itcurr_dl     Ipr    Ipr_l
## 1966 3.251777 0.0846817082 6.08253 1.805421 0.10363885 4.86986 1.583065
## 1967 3.252506 0.0007289431 6.18586 1.822266 0.01684531 4.82290 1.573375
## 1968 3.280657 0.0281503456 6.41611 1.858812 0.03654597 4.99744 1.608926
## 1969 3.328631 0.0479739594 6.83024 1.921360 0.06254780 5.35356 1.677762
## 1970 3.422246 0.0936153330 7.90664 2.067703 0.14634310 6.23408 1.830031
## 1971 3.551434 0.1291884487 9.51107 2.252456 0.18475347 7.50516 2.015591
##            Ipr_dl       Ips      Ips_l        Ips_dl        I      I_l
## 1966  0.109797577 0.8006307 -0.2223555  0.0061587282 20.68527 3.029422
## 1967 -0.009689782 0.7796652 -0.2488906 -0.0265350968 20.15829 3.003616
## 1968  0.035550374 0.7788894 -0.2498862 -0.0009955984 20.71318 3.030770
## 1969  0.068835979 0.7838026 -0.2435981  0.0062881819 21.86818 3.085033
## 1970  0.152269254 0.7884613 -0.2376719  0.0059261532 24.15700 3.184574
## 1971  0.185559770 0.7890973 -0.2368656  0.0008062993 27.51053 3.314569
##             I_dl        r      r_l        r_dl        P      P_l
## 1966  0.09084044 3.672955 1.839690  0.61790054 20.86779 3.038207
## 1967 -0.02580615 3.847295 1.867010  0.02732017 21.54553 3.070168
## 1968  0.02715475 4.766787 1.999914  0.13290357 22.15697 3.098152
## 1969  0.05426214 4.659378 1.985270 -0.01464424 22.76258 3.125118
## 1970  0.09954149 2.938292 1.715585 -0.26968514 23.84207 3.171452
## 1971  0.12999475 1.415896 1.395633 -0.31995178 25.32176 3.231664
##            P_dl       Pm     Pm_l       Pm_dl       Px     Px_l
## 1966 0.03074607 30.20869 3.408130 0.016958321 35.89198 3.580514
## 1967 0.03196130 30.65458 3.422782 0.014652525 36.06646 3.585363
## 1968 0.02798411 30.83908 3.428783 0.006000478 36.63989 3.601138
## 1969 0.02696582 32.35130 3.476654 0.047871504 37.57028 3.626213
## 1970 0.04633347 34.36546 3.537052 0.060397922 39.62501 3.679461
## 1971 0.06021259 35.93268 3.581647 0.044595066 41.03117 3.714332
##            Px_dl       X      X_l       X_dl       M      M_l       M_dl
## 1966 0.017957088 12.7712 2.547193 0.06508991 16.6063 2.809782 0.09878296
## 1967 0.004849631 13.5144 2.603756 0.05656315 16.9817 2.832136 0.02235415
## 1968 0.015774041 14.6570 2.684918 0.08116225 18.2096 2.901949 0.06981263
## 1969 0.025075839 17.2363 2.847018 0.16209959 19.8516 2.988285 0.08633568
## 1970 0.053247196 20.0798 2.999714 0.15269671 23.2179 3.144924 0.15663892
## 1971 0.034871545 21.3666 3.061829 0.06211462 24.6777 3.205900 0.06097647
##           rulc     rulc_l      rulc_dl      ulc    ulc_l     ulc_dl
## 1966 0.7066453 -0.3472264 -0.004035842 14.74613 2.690980 0.02671023
## 1967 0.7128911 -0.3384267  0.008799762 15.35961 2.731742 0.04076106
## 1968 0.7077618 -0.3456477 -0.007221009 15.68186 2.752505 0.02076310
## 1969 0.7002778 -0.3562782 -0.010630558 15.94013 2.768840 0.01633526
## 1970 0.6764625 -0.3908783 -0.034600077 16.12826 2.780573 0.01173339
## 1971 0.6895086 -0.3717761  0.019102235 17.45957 2.859888 0.07931483
##           Tau    Tau_l     Tau_dl        dPxdPm       dPdPm     Trade
## 1966 60.14964 4.096835 0.04306560  0.0009987675  0.01378775 0.2954235
## 1967 61.63206 4.121182 0.02434665 -0.0098028939  0.01730878 0.2977178
## 1968 63.88342 4.157060 0.03587778  0.0097735632  0.02198363 0.3071240
## 1969 66.89507 4.203125 0.04606533 -0.0227956650 -0.02090569 0.3261037
## 1970 70.29668 4.252725 0.04959931 -0.0071507269 -0.01406445 0.3553906
## 1971 71.94648 4.275923 0.02319801 -0.0097235211  0.01561753 0.3595506

DATA

AUT %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1966 0.7302082 -0.3144255 -0.0023352345 0.2697918 -1.3101048  0.0063479488
## 1967 0.7369296 -0.3052629  0.0091626672 0.2630704 -1.3353337 -0.0252288802
## 1968 0.7333948 -0.3100712 -0.0048082883 0.2666052 -1.3219862  0.0133474809
## 1969 0.7260672 -0.3201127 -0.0100415478 0.2739328 -1.2948725  0.0271137846
## 1970 0.7024946 -0.3531175 -0.0330048055 0.2975054 -1.2123230  0.0825494309
## 1971 0.7182453 -0.3309441  0.0221733871 0.2817547 -1.2667184 -0.0543954175
## 1972 0.7080671 -0.3452164 -0.0142722457 0.2919329 -1.2312314  0.0354870375
## 1973 0.7248455 -0.3217968  0.0234195582 0.2751545 -1.2904224 -0.0591909501
## 1974 0.7234502 -0.3237235 -0.0019267329 0.2765498 -1.2853644  0.0050579338
## 1975 0.7550935 -0.2809137  0.0428098833 0.2449065 -1.4068789 -0.1215144565
## 1976 0.7447495 -0.2947074 -0.0137937277 0.2552505 -1.3655098  0.0413691071
## 1977 0.7375652 -0.3044009 -0.0096934633 0.2624348 -1.3377524  0.0277573471
## 1978 0.7541657 -0.2821431  0.0222577163 0.2458343 -1.4030977 -0.0653452353
## 1979 0.7288232 -0.3163241 -0.0341809966 0.2711768 -1.3049842  0.0981134773
## 1980 0.7281737 -0.3172157 -0.0008915888 0.2718263 -1.3025919  0.0023923297
## 1981 0.7321943 -0.3117093  0.0055063795 0.2678057 -1.3174936 -0.0149017633
## 1982 0.7083579 -0.3448058 -0.0330964125 0.2916421 -1.2322280  0.0852655840
## 1983 0.6890603 -0.3724266 -0.0276208038 0.3109397 -1.1681561  0.0640719019
## 1984 0.6955245 -0.3630891  0.0093374568 0.3044755 -1.1891645 -0.0210083853
## 1985 0.6924821 -0.3674728 -0.0043837326 0.3075179 -1.1792221  0.0099424113
## 1986 0.6885638 -0.3731473 -0.0056744695 0.3114362 -1.1665608  0.0126613381
## 1987 0.6868220 -0.3756802 -0.0025328762 0.3131780 -1.1609834  0.0055773448
## 1988 0.6820174 -0.3827001 -0.0070199674 0.3179826 -1.1457585  0.0152248929
## 1989 0.6753973 -0.3924541 -0.0097539942 0.3246027 -1.1251534  0.0206051683
## 1990 0.6737550 -0.3948888 -0.0024346114 0.3262450 -1.1201066  0.0050467521
## 1991 0.6766945 -0.3905354  0.0043533486 0.3233055 -1.1291575 -0.0090508864
## 1992 0.6830690 -0.3811594  0.0093760330 0.3169310 -1.1490713 -0.0199137586
## 1993 0.6882852 -0.3735520  0.0076073827 0.3117148 -1.1656666 -0.0165953638
## 1994 0.6867336 -0.3758089 -0.0022568618 0.3132664 -1.1607013  0.0049653211
## 1995 0.6696854 -0.4009472 -0.0251383304 0.3303146 -1.1077098  0.0529914549
## 1996 0.6649566 -0.4080335 -0.0070863479 0.3350434 -1.0934952  0.0142146896
## 1997 0.6566108 -0.4206638 -0.0126302417 0.3433892 -1.0688909  0.0246042665
## 1998 0.6521350 -0.4275036 -0.0068398680 0.3478650 -1.0559409  0.0129499972
## 1999 0.6520188 -0.4276818 -0.0001781968 0.3479812 -1.0556069  0.0003339761
## 2000 0.6401519 -0.4460497 -0.0183679015 0.3598481 -1.0220734  0.0335335428
## 2001 0.6345172 -0.4548908 -0.0088411078 0.3654828 -1.0065361  0.0155372418
## 2002 0.6303192 -0.4615289 -0.0066380129 0.3696808 -0.9951155  0.0114206715
## 2003 0.6285502 -0.4643394 -0.0028105189 0.3714498 -0.9903416  0.0047738967
## 2004 0.6170934 -0.4827349 -0.0183955090 0.3829066 -0.9599642  0.0303773709
## 2005 0.6077146 -0.4980499 -0.0153150311 0.3922854 -0.9357656  0.0241985487
## 2006 0.6023380 -0.5069366 -0.0088866724 0.3976620 -0.9221528  0.0136128501
## 2007 0.5959448 -0.5176073 -0.0106706881 0.4040552 -0.9062037  0.0159490779
## 2008 0.6067708 -0.4996041  0.0180031678 0.3932292 -0.9333627 -0.0271589873
## 2009 0.6276645 -0.4657496  0.0338545405 0.3723355 -0.9879598 -0.0545971182
## 2010 0.6231149 -0.4730243 -0.0072747186 0.3768851 -0.9758150  0.0121448071
## 2011 0.6175363 -0.4820175 -0.0089931715 0.3824637 -0.9611215  0.0146935308
## 2012 0.6248806 -0.4701946  0.0118228149 0.3751194 -0.9805110 -0.0193894958
## 2013 0.6307595 -0.4608307  0.0093639476 0.3692405 -0.9963070 -0.0157959963
## 2014 0.6298056 -0.4623441 -0.0015133899 0.3701944 -0.9937270  0.0025799796
## 2015 0.6267327 -0.4672351 -0.0048910457 0.3732673 -0.9854605  0.0082664770
## 2016 0.6243728 -0.4710076 -0.0037724568 0.3756272 -0.9791582  0.0063022921
## 2017 0.6212788 -0.4759753 -0.0049677217 0.3787212 -0.9709550  0.0082032032
## 2018 0.6220281 -0.4747700  0.0012052922 0.3779719 -0.9729354 -0.0019803914
##             Y      Y_l          Y_dl            Yrw    Yrw_l        Yrw_dl
## 1966  99.4420 4.599575  0.0548956294 12461101693283 30.15363  0.0587748119
## 1967 102.4329 4.629208  0.0296333904 13041361076969 30.19915  0.0455140003
## 1968 107.0141 4.672961  0.0437526514 13859144991691 30.25997  0.0608193748
## 1969 113.7304 4.733831  0.0608701338 14662243317079 30.31630  0.0563304048
## 1970 121.8313 4.802637  0.0688065656 15041941976905 30.34186  0.0255667232
## 1971 128.0607 4.852504  0.0498670693 15635771387565 30.38058  0.0387188959
## 1972 136.0105 4.912732  0.0602277184 16510273186905 30.43500  0.0544214776
## 1973 142.6577 4.960448  0.0477159658 17557901287522 30.49653  0.0615212599
## 1974 148.2838 4.999128  0.0386799507 17765110267562 30.50826  0.0117323721
## 1975 147.7466 4.995499 -0.0036293610 17748286465804 30.50731 -0.0009474623
## 1976 154.5089 5.040252  0.0447530557 18631061749289 30.55585  0.0485412002
## 1977 162.3579 5.089803  0.0495514578 19350955941433 30.59376  0.0379116466
## 1978 162.0159 5.087694 -0.0021086791 20155441610080 30.63450  0.0407324861
## 1979 170.6946 5.139876  0.0521815163 20987005194336 30.67492  0.0404291389
## 1980 173.6502 5.157043  0.0171669361 21300025730957 30.68973  0.0148048348
## 1981 173.3996 5.155599 -0.0014441734 21725631682177 30.70951  0.0197844663
## 1982 176.8871 5.175512  0.0199129184 21708821117384 30.70874 -0.0007740660
## 1983 182.1461 5.204809  0.0292974363 22295029489370 30.73538  0.0266450797
## 1984 182.2395 5.205322  0.0005126438 23318114201622 30.78025  0.0448667313
## 1985 186.7931 5.230002  0.0246798312 24155570921782 30.81554  0.0352845414
## 1986 191.0920 5.252755  0.0227534003 24939309681021 30.84747  0.0319302272
## 1987 193.6854 5.266235  0.0134802058 25815593535048 30.88200  0.0345334493
## 1988 200.0690 5.298662  0.0324271138 27063164707138 30.92919  0.0471948575
## 1989 207.8459 5.336797  0.0381346327 28117913162312 30.96743  0.0382332849
## 1990 216.8781 5.379335  0.0425385048 29000729651919 30.99834  0.0309141378
## 1991 224.3422 5.413173  0.0338371202 29437621231116 31.01329  0.0149524999
## 1992 229.0389 5.433892  0.0207192934 30047650491517 31.03381  0.0205109813
## 1993 230.2455 5.439146  0.0052542728 30410275117282 31.04580  0.0119960773
## 1994 235.7763 5.462883  0.0237373432 31381056813469 31.07723  0.0314238761
## 1995 242.0667 5.489213  0.0263298339 32297449313935 31.10601  0.0287838338
## 1996 247.7542 5.512437  0.0232238176 33255647993824 31.13525  0.0292363587
## 1997 252.9412 5.533157  0.0207199250 34372141729313 31.16827  0.0330217857
## 1998 262.0001 5.568345  0.0351878348 35305980054076 31.19507  0.0268059534
## 1999 271.3177 5.603290  0.0349455735 36456064307688 31.22713  0.0320554617
## 2000 280.4766 5.636490  0.0331998401 37927510626135 31.26670  0.0395689049
## 2001 284.0307 5.649082  0.0125920319 38497888749771 31.28162  0.0149266793
## 2002 288.7216 5.665463  0.0163805711 39081726667602 31.29668  0.0150516070
## 2003 291.4398 5.674833  0.0093705644 39941237888228 31.31843  0.0217543121
## 2004 299.4111 5.701818  0.0269840790 41267138948654 31.35109  0.0326571949
## 2005 306.1301 5.724010  0.0221926295 42449767280713 31.37934  0.0282549144
## 2006 316.7039 5.757967  0.0339570930 43777962281867 31.41015  0.0308091160
## 2007 328.5088 5.794564  0.0365963580 44995582385264 31.43759  0.0274337692
## 2008 333.3064 5.809062  0.0144985611 45163817538808 31.44132  0.0037319536
## 2009 320.7588 5.770689 -0.0383727482 43666599628692 31.40760 -0.0337127700
## 2010 326.6515 5.788894  0.0182044145 44964759614202 31.43690  0.0292955640
## 2011 336.1988 5.817703  0.0288087983 45796339509477 31.45523  0.0183251013
## 2012 338.4865 5.824484  0.0067815581 46385768024861 31.46801  0.0127885240
## 2013 338.5728 5.824739  0.0002549260 47059388537876 31.48243  0.0144177014
## 2014 340.8117 5.831330  0.0065909897 48018403583285 31.50261  0.0201739554
## 2015 344.2692 5.841424  0.0100937841 49142783475351 31.52575  0.0231456639
## 2016 351.4390 5.862036  0.0206122448 49983308778784 31.54271  0.0169591160
## 2017 360.1422 5.886499  0.0244627992 51133580747138 31.56546  0.0227523136
## 2018 368.8568 5.910408  0.0239095394 52277098571264 31.58758  0.0221169505
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1966  3.20887  96.23313 4.566774  0.053195022  57.6582 4.054532
## 1967  3.34135  99.09155 4.596044  0.029270485  59.6729 4.088878
## 1968  3.74026 103.27384 4.637384  0.041339931  62.0636 4.128160
## 1969  4.03963 109.69077 4.697665  0.060281124  63.8764 4.156950
## 1970  4.51467 117.31663 4.764877  0.067211294  66.5363 4.197748
## 1971  5.12365 122.93705 4.811672  0.046795917  71.0063 4.262769
## 1972  6.03785 129.97265 4.867324  0.055651608  75.3236 4.321793
## 1973  7.11675 135.54095 4.909274  0.041949765  79.3699 4.374119
## 1974  7.82601 140.45779 4.944907  0.035633208  81.7447 4.403601
## 1975  8.16344 139.58316 4.938661 -0.006246464  84.3992 4.435558
## 1976  8.75046 145.75844 4.981951  0.043290178  88.2346 4.479999
## 1977  9.80404 152.55386 5.027518  0.045566983  93.9080 4.542316
## 1978 10.13261 151.88329 5.023112 -0.004405317  92.3064 4.525113
## 1979 10.93804 159.75656 5.073651  0.050538760  96.6879 4.571488
## 1980 11.81371 161.83649 5.086587  0.012935348  99.1244 4.596376
## 1981 12.61584 160.78376 5.080060 -0.006526148 100.3886 4.609049
## 1982 13.32320 163.56390 5.097204  0.017143383 102.3192 4.628097
## 1983 14.25381 167.89229 5.123323  0.026118903 107.8795 4.681015
## 1984 15.75053 166.48897 5.114929 -0.008393582 105.5842 4.659509
## 1985 16.42699 170.36611 5.137950  0.023020649 107.4962 4.677455
## 1986 17.03711 174.05489 5.159371  0.021421000 109.8536 4.699149
## 1987 17.71631 175.96909 5.170308  0.010937645 112.5096 4.723039
## 1988 18.72861 181.34039 5.200376  0.030067518 115.2187 4.746832
## 1989 19.91350 187.93240 5.236082  0.035706451 119.3530 4.782085
## 1990 20.93549 195.94261 5.277822  0.041739487 124.4074 4.823562
## 1991 22.49080 201.85140 5.307532  0.029709973 128.1334 4.853072
## 1992 23.83168 205.20722 5.324020  0.016488515 132.5915 4.887273
## 1993 24.78178 205.46372 5.325269  0.001249175 132.7319 4.888331
## 1994 26.18177 209.59453 5.345175  0.019905381 135.4437 4.908556
## 1995 26.10627 215.96043 5.375095  0.029920342 136.5982 4.917044
## 1996 27.63164 220.12256 5.394184  0.019089286 140.6128 4.946010
## 1997 29.05485 223.88635 5.411139  0.016954075 141.2035 4.950202
## 1998 30.05098 231.94912 5.446518  0.035379480 145.3058 4.978840
## 1999 31.37845 239.93925 5.480386  0.033867729 148.8186 5.002728
## 2000 32.02227 248.45433 5.515259  0.034873280 153.4565 5.033417
## 2001 32.88781 251.14289 5.526022  0.010763014 155.4221 5.046145
## 2002 34.02022 254.70138 5.540092  0.014069740 156.4821 5.052942
## 2003 34.42558 257.01422 5.549131  0.009039614 159.2093 5.070220
## 2004 35.62320 263.78790 5.575145  0.026013957 162.9044 5.093164
## 2005 36.60296 269.52714 5.596669  0.021523719 166.5672 5.115399
## 2006 37.49685 279.20705 5.631954  0.035284531 170.0524 5.136107
## 2007 39.39558 289.11322 5.666818  0.034864755 171.9293 5.147083
## 2008 41.11726 292.18914 5.677401  0.010582956 173.5563 5.156502
## 2009 41.48328 279.27552 5.632199 -0.045202511 175.0327 5.164973
## 2010 42.62592 284.02558 5.649064  0.016865483 176.7732 5.174868
## 2011 44.89381 291.30499 5.674371  0.025306489 179.1509 5.188228
## 2012 46.77901 291.70749 5.675752  0.001380760 180.0860 5.193435
## 2013 47.30677 291.26603 5.674237 -0.001514512 179.9437 5.192644
## 2014 48.18694 292.62476 5.678891  0.004654064 180.4901 5.195676
## 2015 49.90653 294.36267 5.684813  0.005921473 181.3708 5.200544
## 2016 51.72465 299.71435 5.702830  0.018017276 184.3040 5.216587
## 2017 52.75709 307.38511 5.728101  0.025271537 186.9200 5.230681
## 2018 54.07139 314.78541 5.751891  0.023789777 189.0266 5.241888
##               C_dl         W      W_l          W_dl         R      R_l
## 1966  0.0424198198  70.27022 4.252348  0.0508597872  25.96291 3.256669
## 1967  0.0343455067  73.02350 4.290781  0.0384331525  26.06805 3.260710
## 1968  0.0392816847  75.74049 4.327313  0.0365316425  27.53335 3.315398
## 1969  0.0287903004  79.64287 4.377553  0.0502395763  30.04790 3.402793
## 1970  0.0407976973  82.41430 4.411759  0.0342064882  34.90233 3.552553
## 1971  0.0650209421  88.29896 4.480728  0.0689693040  34.63809 3.544954
## 1972  0.0590248932  92.02936 4.522108  0.0413793622  37.94329 3.636093
## 1973  0.0523257045  98.24624 4.587477  0.0653693232  37.29471 3.618851
## 1974  0.0294817727 101.61422 4.621183  0.0337064750  38.84357 3.659543
## 1975  0.0319569470 105.39834 4.657747  0.0365634194  34.18482 3.531782
## 1976  0.0444412535 108.55352 4.687243  0.0294964505  37.20492 3.616441
## 1977  0.0623164033 112.51841 4.723117  0.0358735198  40.03545 3.689765
## 1978 -0.0172021014 114.54517 4.740969  0.0178523992  37.33812 3.620015
## 1979  0.0463747871 116.43428 4.757327  0.0163577630  43.32228 3.768667
## 1980  0.0248873616 117.84507 4.769371  0.0120437591  43.99142 3.783995
## 1981  0.0126730280 117.72496 4.768351 -0.0010197684  43.05880 3.762567
## 1982  0.0190486836 115.86179 4.752398 -0.0159530295  47.70211 3.864976
## 1983  0.0529175248 115.68790 4.750896 -0.0015019007  52.20439 3.955167
## 1984 -0.0215061246 115.79715 4.751840  0.0009438749  50.69182 3.925765
## 1985  0.0179467592 117.97549 4.770477  0.0186369161  52.39062 3.958728
## 1986  0.0216930721 119.84790 4.786223  0.0157465301  54.20699 3.992810
## 1987  0.0238899811 120.85943 4.794628  0.0084047692  55.10966 4.009325
## 1988  0.0237935101 123.67730 4.817676  0.0230475509  57.66309 4.054617
## 1989  0.0352534271 126.92904 4.843628  0.0259524567  61.00336 4.110929
## 1990  0.0414761754 132.01731 4.882933  0.0393048751  63.92530 4.157715
## 1991  0.0295102447 136.59173 4.916996  0.0340633215  65.25967 4.178374
## 1992  0.0342010644 140.17069 4.942861  0.0258645478  65.03653 4.174949
## 1993  0.0010583312 141.41764 4.951717  0.0088565581  64.04608 4.159603
## 1994  0.0202247515 143.93560 4.969366  0.0176485197  65.65893 4.184474
## 1995  0.0084877141 144.62555 4.974148  0.0047820113  71.33488 4.267385
## 1996  0.0289662437 146.37195 4.986151  0.0120029378  73.75061 4.300689
## 1997  0.0041920986 147.00620 4.990475  0.0043238332  76.88015 4.342248
## 1998  0.0286383749 151.26215 5.019014  0.0285396123  80.68697 4.390577
## 1999  0.0238876274 156.44491 5.052704  0.0336895323  83.49434 4.424779
## 2000  0.0306890247 159.04852 5.069209  0.0165053782  89.40581 4.493186
## 2001  0.0127275022 159.35449 5.071131  0.0019219063  91.78840 4.519486
## 2002  0.0067969850 160.54318 5.078563  0.0074317271  94.15820 4.544976
## 2003  0.0172780623 161.54634 5.084792  0.0062290951  95.46788 4.558790
## 2004  0.0229438369 162.78177 5.092410  0.0076184480 101.00613 4.615181
## 2005  0.0222353059 163.79558 5.098619  0.0062086880 105.73156 4.660903
## 2006  0.0207077933 168.17701 5.125017  0.0263978586 111.03004 4.709801
## 2007  0.0109767209 172.29551 5.149211  0.0241940667 116.81771 4.760615
## 2008  0.0094186966 177.29185 5.177797  0.0285861240 114.89729 4.744039
## 2009  0.0084707712 175.29132 5.166449 -0.0113479704 103.98420 4.644239
## 2010  0.0098947414 176.98058 5.176040  0.0095907645 107.04500 4.673249
## 2011  0.0133609125 179.89140 5.192353  0.0163133179 111.41359 4.713249
## 2012  0.0052060471 182.28236 5.205557  0.0132035746 109.42513 4.695241
## 2013 -0.0007904904 183.71880 5.213406  0.0078494359 107.54723 4.677930
## 2014  0.0030319044 184.29671 5.216547  0.0031406738 108.32805 4.685164
## 2015  0.0048676259 184.48671 5.217577  0.0010304272 109.87596 4.699352
## 2016  0.0160430137 187.13350 5.231822  0.0142448191 112.58085 4.723672
## 2017  0.0140941496 190.97186 5.252126  0.0203038154 116.41325 4.757146
## 2018  0.0112070281 195.80537 5.277121  0.0249950694 118.98004 4.778956
##              R_dl       It     It_l         It_dl   Itcurr Itcurr_l
## 1966  0.059542971 25.83622 3.251777  0.0846817082  6.08253 1.805421
## 1967  0.004041605 25.85506 3.252506  0.0007289431  6.18586 1.822266
## 1968  0.054687412 26.59323 3.280657  0.0281503456  6.41611 1.858812
## 1969  0.087394909 27.90011 3.328631  0.0479739594  6.83024 1.921360
## 1970  0.149760725 30.63815 3.422246  0.0936153330  7.90664 2.067703
## 1971 -0.007599501 34.86329 3.551434  0.1291884487  9.51107 2.252456
## 1972  0.091138645 39.09483 3.665990  0.1145558200 11.78999 2.467251
## 1973 -0.017241185 39.23133 3.669476  0.0034854291 12.60848 2.534370
## 1974  0.040691142 40.78830 3.708395  0.0389196133 14.29671 2.660029
## 1975 -0.127760920 38.76851 3.657608 -0.0507869564 14.23162 2.655466
## 1976  0.084659285 40.24869 3.695077  0.0374691376 15.35359 2.731349
## 1977  0.073324330 43.84376 3.780632  0.0855549486 17.50377 2.862416
## 1978 -0.069750552 41.00595 3.713717 -0.0669152273 17.22398 2.846303
## 1979  0.148652237 43.39493 3.770343  0.0566254359 19.08944 2.949135
## 1980  0.015327678 44.83690 3.803031  0.0326888471 21.06219 3.047479
## 1981 -0.021427911 44.81183 3.802472 -0.0005592941 22.36990 3.107716
## 1982  0.102408967 41.08134 3.715554 -0.0869181633 21.68736 3.076730
## 1983  0.090190805 40.90472 3.711245 -0.0043085440 22.29382 3.104310
## 1984 -0.029401967 40.80445 3.708791 -0.0024543157 22.91774 3.131911
## 1985  0.032963060 43.32681 3.768772  0.0599804679 24.84264 3.212562
## 1986  0.034082338 44.14397 3.787456  0.0186847259 25.93525 3.255603
## 1987  0.016514990 46.07326 3.830233  0.0427764004 27.57386 3.316868
## 1988  0.045292411 49.32651 3.898462  0.0682289264 29.81002 3.394845
## 1989  0.056311619 51.52693 3.942105  0.0436429189 32.21375 3.472393
## 1990  0.046786239 54.35696 3.995573  0.0534680806 34.89283 3.552281
## 1991  0.020659087 58.87928 4.075489  0.0799165818 38.99318 3.663387
## 1992 -0.003425244 58.95992 4.076858  0.0013686449 40.55350 3.702622
## 1993 -0.015346188 58.23828 4.064543 -0.0123150205 41.06592 3.715179
## 1994  0.024870703 61.23512 4.114721  0.0501780106 44.20105 3.788749
## 1995  0.082911797 61.35265 4.116638  0.0019174839 44.68035 3.799534
## 1996  0.033303975 64.03728 4.159465  0.0428270488 47.08066 3.851862
## 1997  0.041558341 64.51121 4.166839  0.0073735934 47.97247 3.870627
## 1998  0.048329477 66.72389 4.200563  0.0337240526 50.00991 3.912221
## 1999  0.034201705 67.54174 4.212746  0.0121827174 50.87956 3.929461
## 2000  0.068406822 71.47847 4.269396  0.0566505083 54.70821 4.002014
## 2001  0.026300256 70.68466 4.258229 -0.0111677092 54.68277 4.001549
## 2002  0.025490412 68.65904 4.229153 -0.0290757702 53.35209 3.976913
## 2003  0.013813511 71.29743 4.266860  0.0377074759 55.89767 4.023523
## 2004  0.056391328 71.96806 4.276222  0.0093621276 57.17361 4.046092
## 2005  0.045722268 72.14998 4.278747  0.0025245985 58.56967 4.070217
## 2006  0.048897381 72.98022 4.290188  0.0114414375 60.53035 4.103145
## 2007  0.050813833 76.36965 4.335585  0.0453969204 65.07931 4.175607
## 2008 -0.016576031 77.59683 4.351527  0.0159412099 68.37739 4.225042
## 2009 -0.099799629 72.02721 4.277044 -0.0744826115 64.55933 4.167585
## 2010  0.029010290 70.16420 4.250838 -0.0262057548 63.90398 4.157382
## 2011  0.040000020 74.83000 4.315219  0.0643806647 69.69123 4.244074
## 2012 -0.018008736 75.50789 4.324237  0.0090182800 72.17266 4.279061
## 2013 -0.017310508 76.68890 4.339757  0.0155198241 74.62955 4.312537
## 2014  0.007234043 76.37988 4.335719 -0.0040376675 75.49274 4.324036
## 2015  0.014187950 78.13778 4.358474  0.0227543680 78.13778 4.358474
## 2016  0.024319568 81.31263 4.398301  0.0398276764 82.53461 4.413218
## 2017  0.033474740 84.52567 4.437055  0.0387539202 87.12569 4.467352
## 2018  0.021809386 87.84851 4.475614  0.0385585785 92.36531 4.525751
##          Itcurr_dl      Ipr    Ipr_l        Ipr_dl       Ips      Ips_l
## 1966  0.1036388487  4.86986 1.583065  0.1097975769 0.8006307 -0.2223555
## 1967  0.0168453144  4.82290 1.573375 -0.0096897824 0.7796652 -0.2488906
## 1968  0.0365459728  4.99744 1.608926  0.0355503744 0.7788894 -0.2498862
## 1969  0.0625477970  5.35356 1.677762  0.0688359789 0.7838026 -0.2435981
## 1970  0.1463431007  6.23408 1.830031  0.1522692539 0.7884613 -0.2376719
## 1971  0.1847534706  7.50516 2.015591  0.1855597699 0.7890973 -0.2368656
## 1972  0.2147944830  9.37421 2.237962  0.2223715177 0.7950991 -0.2292886
## 1973  0.0671187371 10.05045 2.307617  0.0696551080 0.7971183 -0.2267522
## 1974  0.1256598374 11.28474 2.423451  0.1158339609 0.7893243 -0.2365781
## 1975 -0.0045631913 11.01159 2.398948 -0.0245030161 0.7737411 -0.2565179
## 1976  0.0758830733 12.13083 2.495750  0.0968017915 0.7900973 -0.2355992
## 1977  0.1310669634 13.98155 2.637739  0.1419884573 0.7987736 -0.2246777
## 1978 -0.0161136874 13.40671 2.595755 -0.0419832754 0.7783747 -0.2505473
## 1979  0.1028327037 15.15569 2.718376  0.1226207111 0.7939306 -0.2307593
## 1980  0.0983441873 17.03997 2.835562  0.1171857218 0.8090313 -0.2119177
## 1981  0.0602368153 18.18150 2.900405  0.0648428328 0.8127663 -0.2073117
## 1982 -0.0309867029 17.56646 2.865991 -0.0344131915 0.8099861 -0.2107382
## 1983  0.0275799077 18.08108 2.894866  0.0288746856 0.8110355 -0.2094434
## 1984  0.0276017731 18.59400 2.922839  0.0279728603 0.8113365 -0.2090723
## 1985  0.0806502485 20.38140 3.014623  0.0917837722 0.8204201 -0.1979388
## 1986  0.0430415156 21.06905 3.047805  0.0331824188 0.8123712 -0.2077979
## 1987  0.0612651752 22.86068 3.129418  0.0816132652 0.8290707 -0.1874498
## 1988  0.0779763561 25.05430 3.221045  0.0916270653 0.8404657 -0.1737991
## 1989  0.0775488014 27.11078 3.299931  0.0788859653 0.8415903 -0.1724619
## 1990  0.0798879839 29.53112 3.385445  0.0855131878 0.8463378 -0.1668367
## 1991  0.1111053951 33.13312 3.500533  0.1150887638 0.8497158 -0.1628534
## 1992  0.0392353310 34.37243 3.537255  0.0367214032 0.8475823 -0.1653673
## 1993  0.0125564904 34.40635 3.538241  0.0009863508 0.8378322 -0.1769374
## 1994  0.0735699640 37.15286 3.615041  0.0767996130 0.8405425 -0.1737078
## 1995  0.0107852632 37.77291 3.631592  0.0165514256 0.8454032 -0.1679416
## 1996  0.0523284933 40.34603 3.697493  0.0659008217 0.8569555 -0.1543693
## 1997  0.0187650037 42.40320 3.747224  0.0497308303 0.8839070 -0.1234035
## 1998  0.0415938811 44.32837 3.791625  0.0444010473 0.8863917 -0.1205963
## 1999  0.0172400854 45.09053 3.808672  0.0170473682 0.8862209 -0.1207890
## 2000  0.0725525184 49.03533 3.892541  0.0838688121 0.8963066 -0.1094727
## 2001 -0.0004651206 49.35631 3.899066  0.0065245612 0.9025934 -0.1024830
## 2002 -0.0246355167 47.40402 3.858707 -0.0403585847 0.8885129 -0.1182061
## 2003  0.0466095455 50.13917 3.914803  0.0560955037 0.8969814 -0.1087202
## 2004  0.0225697306 51.34757 3.938618  0.0238150740 0.8980991 -0.1074748
## 2005  0.0241245575 51.12961 3.934364 -0.0042538315 0.8729708 -0.1358532
## 2006  0.0329279063 52.83737 3.967219  0.0328549241 0.8729071 -0.1359262
## 2007  0.0724617878 56.62291 4.036414  0.0691949681 0.8700601 -0.1391930
## 2008  0.0494355345 58.85950 4.075153  0.0387395744 0.8608035 -0.1498890
## 2009 -0.0574575685 54.85310 4.004659 -0.0704945451 0.8496541 -0.1629259
## 2010 -0.0102030017 54.29055 3.994350 -0.0103085243 0.8495645 -0.1630315
## 2011  0.0866928406 60.30322 4.099386  0.1050353233 0.8652914 -0.1446890
## 2012  0.0349868189 62.81479 4.140191  0.0408050533 0.8703405 -0.1388707
## 2013  0.0334752376 64.77810 4.170968  0.0307770280 0.8679953 -0.1415690
## 2014  0.0114999513 65.64258 4.184225  0.0132569875 0.8695218 -0.1398119
## 2015  0.0344371860 67.87683 4.217695  0.0334701685 0.8686813 -0.1407789
## 2016  0.0547440418 71.89074 4.275147  0.0574527272 0.8710375 -0.1380703
## 2017  0.0541340682 75.64696 4.326077  0.0509297879 0.8682509 -0.1412745
## 2018  0.0583996865 80.63595 4.389945  0.0638673255 0.8730112 -0.1358069
##              Ips_dl        I      I_l         I_dl          r       r_l
## 1966  0.00615872821 20.68527 3.029422  0.090840436  3.6729549 1.8396902
## 1967 -0.02653509677 20.15829 3.003616 -0.025806154  3.8472948 1.8670104
## 1968 -0.00099559837 20.71318 3.030770  0.027154747  4.7667873 1.9999140
## 1969  0.00628818186 21.86818 3.085033  0.054262141  4.6593779 1.9852697
## 1970  0.00592615322 24.15700 3.184574  0.099541486  2.9382917 1.7155846
## 1971  0.00080629927 27.51053 3.314569  0.129994748  1.4158956 1.3956328
## 1972  0.00757703466 31.08426 3.436702  0.122132855 -0.2043980 0.8826244
## 1973  0.00253637090 31.27201 3.442723  0.006021800  0.1862377 1.0324265
## 1974 -0.00982587646 32.19519 3.471817  0.029093737  0.2187751 1.0439478
## 1975 -0.01993982484 29.99679 3.401090 -0.070726781  2.9624891 1.7199273
## 1976  0.02091871823 31.80038 3.459478  0.058387856  2.9565279 1.7188592
## 1977  0.01092149394 35.02124 3.555955  0.096476443  3.3567799 1.7881552
## 1978 -0.02586958803 31.91799 3.463170 -0.092784815  2.0916309 1.5503807
## 1979  0.01978800742 34.45256 3.539583  0.076413443  3.6936543 1.8429733
## 1980  0.01884153451 36.27445 3.591114  0.051530382  3.5417205 1.8186211
## 1981  0.00460601744 36.42154 3.595160  0.004046723  3.6482963 1.8357651
## 1982 -0.00342648863 33.27531 3.504816 -0.090344652  4.3326722 1.9393609
## 1983  0.00129477793 33.17518 3.501802 -0.003013766  4.5395718 1.9686783
## 1984  0.00037108721 33.10614 3.499719 -0.002083229  2.9254264 1.7132680
## 1985  0.01113352373 35.54618 3.570833  0.071113992  4.6686659 1.9865446
## 1986 -0.00985909687 35.86129 3.579658  0.008825629  4.3603336 1.9433307
## 1987  0.02034808996 38.19799 3.642783  0.063124490  4.4642647 1.9581066
## 1988  0.01365070916 41.45724 3.724663  0.081879636  5.2529313 2.0636379
## 1989  0.00133716385 43.36457 3.769643  0.044980083  4.0647266 1.9000696
## 1990  0.00562520386 46.00435 3.828736  0.059093284  5.6022767 2.1070458
## 1991  0.00398336871 50.03065 3.912636  0.083899951  4.7453103 1.9970029
## 1992 -0.00251392777 49.97339 3.911491 -0.001145283  3.7600846 1.8534373
## 1993 -0.01157013961 48.79391 3.887605 -0.023885160  3.8371255 1.8654371
## 1994  0.00322964902 51.47072 3.941013  0.053407660  4.3941074 1.9481563
## 1995  0.00576616244 51.86773 3.948697  0.007683646  5.2311951 2.0608738
## 1996  0.01357232842 54.87710 4.005096  0.056399377  5.2817060 2.0672854
## 1997  0.03096582659 57.02191 4.043436  0.038339420  4.3577914 1.9429665
## 1998  0.00280716622 59.14350 4.079967  0.036531219  4.2493168 1.9273024
## 1999 -0.00019271717 59.85690 4.091957  0.011990000  4.4123393 1.9507516
## 2000  0.01131629370 64.06662 4.159924  0.067966802  4.1394947 1.9111897
## 2001  0.00698968183 63.79951 4.155746 -0.004178027  3.0730589 1.7395345
## 2002 -0.01572306797 61.00444 4.110947 -0.044798838  3.7712016 1.8551778
## 2003  0.00948595823 63.95247 4.158140  0.047193434  2.7958897 1.6896387
## 2004  0.00124534344 64.63445 4.168748  0.010607471  2.3494081 1.6036293
## 2005 -0.02837838902 62.98482 4.142894 -0.025853790  0.8311139 1.2391702
## 2006 -0.00007298227 63.70495 4.154262  0.011368455  1.8724099 1.5027528
## 2007 -0.00326681970 66.44618 4.196392  0.042130101  2.0336531 1.5380034
## 2008 -0.01069596006 66.79563 4.201638  0.005245250  2.3575563 1.6052671
## 2009 -0.01303697667 61.19821 4.114118 -0.087519588  2.0127104 1.5334946
## 2010 -0.00010552255 59.60901 4.087807 -0.026311277  2.3365457 1.6010385
## 2011  0.01834248271 64.74975 4.170530  0.082723147  1.4598252 1.4064544
## 2012  0.00581823439 65.71758 4.185366  0.014836514  0.3094083 1.0753578
## 2013 -0.00269820958 66.56561 4.198188  0.012821615  0.3799421 1.0991373
## 2014  0.00175703617 66.41397 4.195907 -0.002280631 -0.6711059 0.6680997
## 2015 -0.00096701752 67.87683 4.217695  0.021787350 -1.5160937 0.1003335
## 2016  0.00270868539 70.82635 4.260231  0.042536362 -1.2665087 0.3038933
## 2017 -0.00320428027 73.38949 4.295781  0.035549640 -0.5466102 0.7299722
## 2018  0.00546763893 76.69273 4.339807  0.044026217 -0.9953078 0.4863231
##              r_dl         P      P_l        P_dl        Pm     Pm_l
## 1966  0.617900536  20.86779 3.038207 0.030746075  30.20869 3.408130
## 1967  0.027320175  21.54553 3.070168 0.031961301  30.65458 3.422782
## 1968  0.132903570  22.15697 3.098152 0.027984111  30.83908 3.428783
## 1969 -0.014644237  22.76258 3.125118 0.026965818  32.35130 3.476654
## 1970 -0.269685139  23.84207 3.171452 0.046333470  34.36546 3.537052
## 1971 -0.319951779  25.32176 3.231664 0.060212593  35.93268 3.581647
## 1972 -0.513008414  27.24620 3.304914 0.073249831  36.64331 3.601231
## 1973  0.149802102  29.43918 3.382327 0.077412536  38.14482 3.641390
## 1974  0.011521300  32.23603 3.473085 0.090758384  44.91192 3.804703
## 1975  0.675979458  34.31727 3.535649 0.062563873  46.76363 3.845106
## 1976 -0.001068097  36.24834 3.590394 0.054744830  48.09706 3.873221
## 1977  0.069295995  38.13279 3.641074 0.050680858  50.85389 3.928957
## 1978 -0.237774482  40.41809 3.699278 0.058203032  51.35928 3.938846
## 1979  0.292592598  42.08104 3.739597 0.040319866  54.25133 3.993627
## 1980 -0.024352220  44.42943 3.793902 0.054304734  59.70518 4.089419
## 1981  0.017144049  47.41361 3.858909 0.065007098  64.49249 4.166549
## 1982  0.103595839  49.95275 3.911077 0.052168264  65.78582 4.186404
## 1983  0.029317313  51.68749 3.945216 0.034138386  66.49069 4.197062
## 1984 -0.255410277  54.24591 3.993528 0.048311686  69.21304 4.237189
## 1985  0.273276588  55.85321 4.022727 0.029199528  71.94913 4.275959
## 1986 -0.043213920  57.50144 4.051810 0.029082896  71.53251 4.270152
## 1987  0.014775944  58.90272 4.075887 0.024077240  70.25646 4.252152
## 1988  0.105531284  59.80208 4.091040 0.015153244  71.69917 4.272479
## 1989 -0.163568281  61.57507 4.120257 0.029216644  73.84519 4.301971
## 1990  0.206976152  63.42212 4.149813 0.029555631  74.05416 4.304797
## 1991 -0.110042855  65.73187 4.185584 0.035771229  74.82694 4.315178
## 1992 -0.143565590  68.01875 4.219783 0.034199457  75.26693 4.321041
## 1993  0.011999839  69.89408 4.246981 0.027197588  75.88529 4.329223
## 1994  0.082719134  71.65887 4.271917 0.024935938  76.81341 4.341379
## 1995  0.112717478  72.95870 4.289894 0.017976603  77.82207 4.354425
## 1996  0.006411594  73.67822 4.299707 0.009813742  79.68589 4.378093
## 1997 -0.124318876  74.61172 4.312298 0.012590363  81.09897 4.395670
## 1998 -0.015664099  74.94144 4.316707 0.004409317  81.33404 4.398565
## 1999  0.023449245  75.13355 4.319267 0.002560218  81.83268 4.404677
## 2000 -0.039561899  76.15840 4.332815 0.013548216  84.04539 4.431357
## 2001 -0.171655195  77.64129 4.352099 0.019283919  84.26123 4.433922
## 2002  0.115643270  78.53074 4.363490 0.011390834  83.78583 4.428264
## 2003 -0.165539119  79.55757 4.376481 0.012990779  83.15137 4.420663
## 2004 -0.086009346  80.94165 4.393729 0.017247590  84.55039 4.437348
## 2005 -0.364459160  82.99578 4.418790 0.025061267  86.90556 4.464822
## 2006  0.263582589  84.56620 4.437535 0.018744824  90.03408 4.500188
## 2007  0.035250648  86.44456 4.459503 0.021968671  92.14266 4.523338
## 2008  0.067263714  88.13569 4.478878 0.019374323  95.69505 4.561167
## 2009 -0.071772556  89.80081 4.497594 0.018716392  91.30149 4.514167
## 2010  0.067543945  90.58482 4.506287 0.008692658  95.57771 4.559940
## 2011 -0.194584141  92.24561 4.524455 0.018168059 101.26930 4.617783
## 2012 -0.331096555  94.14055 4.544789 0.020334209 103.14972 4.636182
## 2013  0.023779430  95.66929 4.560897 0.016108440 103.00287 4.634757
## 2014 -0.431037505  97.75078 4.582421 0.021523765 101.86471 4.623646
## 2015 -0.567766295 100.00000 4.605170 0.022749054 100.00000 4.605170
## 2016  0.203559881 101.66763 4.621709 0.016538770  98.66617 4.591742
## 2017  0.426078906 102.81932 4.632973 0.011264341 101.58802 4.620926
## 2018 -0.243649124 104.56956 4.649853 0.016879244 103.78669 4.642338
##             Pm_dl        Px     Px_l          Px_dl        X      X_l
## 1966  0.016958321  35.89198 3.580514  0.01795708815  12.7712 2.547193
## 1967  0.014652525  36.06646 3.585363  0.00484963082  13.5144 2.603756
## 1968  0.006000478  36.63989 3.601138  0.01577404073  14.6570 2.684918
## 1969  0.047871504  37.57028 3.626213  0.02507583925  17.2363 2.847018
## 1970  0.060397922  39.62501 3.679461  0.05324719555  20.0798 2.999714
## 1971  0.044595066  41.03117 3.714332  0.03487154488  21.3666 3.061829
## 1972  0.019583855  42.40650 3.747302  0.03296959538  23.5342 3.158455
## 1973  0.040158977  45.56009 3.819032  0.07173041983  24.8146 3.211432
## 1974  0.163313370  50.65829 3.925103  0.10607075276  27.4725 3.313186
## 1975  0.040402430  53.12610 3.972668  0.04756548623  26.8134 3.288902
## 1976  0.028115269  54.07669 3.990403  0.01773482826  29.7788 3.393797
## 1977  0.055735643  56.75863 4.038808  0.04840454282  30.4918 3.417458
## 1978  0.009889103  57.50751 4.051915  0.01310774922  33.1533 3.501142
## 1979  0.054781705  60.10045 4.096017  0.04410180463  36.9077 3.608420
## 1980  0.095791370  63.89870 4.157299  0.06128175401  38.2665 3.644575
## 1981  0.077129959  67.60029 4.213612  0.05631318918  40.1352 3.692254
## 1982  0.019855557  69.94014 4.247640  0.03402753961  40.1011 3.691404
## 1983  0.010657687  70.43902 4.254747  0.00710768009  40.7363 3.707120
## 1984  0.040127256  73.37416 4.295572  0.04082441846  44.1257 3.787042
## 1985  0.038770108  75.78156 4.327855  0.03228316059  48.0769 3.872802
## 1986 -0.005807325  76.22004 4.333624  0.00576940260  46.1287 3.831435
## 1987 -0.017999743  75.09701 4.318781 -0.01484367461  47.7117 3.865177
## 1988  0.020326896  76.60580 4.338673  0.01989205805  51.6513 3.944515
## 1989  0.029491695  78.48500 4.362907  0.02423466673  57.0974 4.044759
## 1990  0.002825841  79.20604 4.372053  0.00914507450  61.9919 4.127004
## 1991  0.010381208  79.93481 4.381211  0.00915892668  63.8128 4.155954
## 1992  0.005862985  79.88957 4.380645 -0.00056611262  64.6547 4.169061
## 1993  0.008181947  80.21850 4.384754  0.00410884909  63.1204 4.145044
## 1994  0.012156413  81.44617 4.399942  0.01518816255  66.7107 4.200365
## 1995  0.013045776  82.80836 4.416529  0.01658664879  71.5175 4.269942
## 1996  0.023667505  83.54257 4.425356  0.00882727956  74.8348 4.315283
## 1997  0.017577689  84.10509 4.432067  0.00671077574  83.0875 4.419894
## 1998  0.002894393  84.03083 4.431184 -0.00088325806  89.6111 4.495479
## 1999  0.006112062  84.11868 4.432229  0.00104490704  95.3766 4.557833
## 2000  0.026680252  85.51344 4.448674  0.01644487456 108.2759 4.684683
## 2001  0.002564853  85.91428 4.453350  0.00467646799 114.5245 4.740789
## 2002 -0.005657897  86.03550 4.454760  0.00140993283 119.4333 4.782758
## 2003 -0.007601216  86.06957 4.455156  0.00039598484 120.0681 4.788059
## 2004  0.016684986  87.05778 4.466572  0.01141611051 130.4672 4.871122
## 2005  0.027474309  88.76687 4.486014  0.01944142161 139.1630 4.935646
## 2006  0.035366235  90.95574 4.510373  0.02435951722 149.7062 5.008675
## 2007  0.023149835  92.68486 4.529205  0.01883215426 161.0417 5.081663
## 2008  0.037828533  95.06950 4.554608  0.02540299691 164.5374 5.103138
## 2009 -0.046999525  92.42052 4.526349 -0.02825914159 140.8965 4.948026
## 2010  0.045772558  95.16010 4.555561  0.02921169480 159.3977 5.071402
## 2011  0.057843650  99.08311 4.595959  0.04039830324 168.8585 5.129061
## 2012  0.018398290 100.41017 4.609263  0.01330443577 171.2862 5.143336
## 2013 -0.001424722 100.41666 4.609328  0.00006464077 172.3835 5.149722
## 2014 -0.011111332 100.27852 4.607952 -0.00137657737 177.3613 5.178189
## 2015 -0.018475331 100.00000 4.605170 -0.00278134746 182.7693 5.208225
## 2016 -0.013428079  99.48102 4.599967 -0.00520335601 188.3853 5.238489
## 2017  0.029183514 101.13921 4.616498  0.01653108534 197.8453 5.287485
## 2018  0.021412067 102.65846 4.631408  0.01490963878 209.4878 5.344666
##               X_dl        M      M_l         M_dl      rulc     rulc_l
## 1966  0.0650899134  16.6063 2.809782  0.098782960 0.7066453 -0.3472264
## 1967  0.0565631478  16.9817 2.832136  0.022354152 0.7128911 -0.3384267
## 1968  0.0811622534  18.2096 2.901949  0.069812634 0.7077618 -0.3456477
## 1969  0.1620995880  19.8516 2.988285  0.086335681 0.7002778 -0.3562782
## 1970  0.1526967096  23.2179 3.144924  0.156638924 0.6764625 -0.3908783
## 1971  0.0621146205  24.6777 3.205900  0.060976469 0.6895086 -0.3717761
## 1972  0.0966257272  27.6751 3.320533  0.114633090 0.6766342 -0.3906244
## 1973  0.0529775073  30.3189 3.411771  0.091238188 0.6886852 -0.3729711
## 1974  0.1017533147  32.4126 3.478547  0.066775956 0.6852685 -0.3779445
## 1975 -0.0242837418  30.9058 3.430944 -0.047603368 0.7133724 -0.3377518
## 1976  0.1048949684  36.2888 3.591509  0.160565285 0.7025713 -0.3530084
## 1977  0.0236610641  39.3521 3.672549  0.081040187 0.6930270 -0.3666863
## 1978  0.0836844642  38.9553 3.662415 -0.010134506 0.7069996 -0.3467252
## 1979  0.1072779422  42.9467 3.759960  0.097544977 0.6821205 -0.3825490
## 1980  0.0361546384  45.3979 3.815466  0.055506037 0.6786348 -0.3876721
## 1981  0.0476789149  45.1227 3.809385 -0.006080403 0.6789229 -0.3872477
## 1982 -0.0008499894  43.4852 3.772421 -0.036964796 0.6550042 -0.4231137
## 1983  0.0157158215  45.3015 3.813340  0.040919494 0.6351380 -0.4539130
## 1984  0.0799227923  48.3110 3.877659  0.064319133 0.6354119 -0.4534818
## 1985  0.0857594331  50.9865 3.931561  0.053901614 0.6315838 -0.4595247
## 1986 -0.0413664963  49.1809 3.895505 -0.036055555 0.6271738 -0.4665316
## 1987  0.0337413349  51.0661 3.933121  0.037615535 0.6239987 -0.4716070
## 1988  0.0793387138  55.8880 4.023350  0.090228816 0.6181732 -0.4809866
## 1989  0.1002432168  61.5652 4.120097  0.096747088 0.6106882 -0.4931688
## 1990  0.0822451499  66.4784 4.196877  0.076780307 0.6087167 -0.4964024
## 1991  0.0289500658  69.8783 4.246755  0.049878075 0.6088544 -0.4961762
## 1992  0.0131070045  71.3570 4.267695  0.020940289 0.6119951 -0.4910309
## 1993 -0.0240167881  67.4399 4.211237 -0.056458616 0.6142037 -0.4874286
## 1994  0.0553213462  74.4075 4.309557  0.098319912 0.6104753 -0.4935175
## 1995  0.0695768152  78.8011 4.366927  0.057370213 0.5974616 -0.5150653
## 1996  0.0453408424  82.0878 4.407789  0.040862450 0.5907950 -0.5262862
## 1997  0.1046112519  88.0558 4.477971  0.070181298 0.5811873 -0.5426823
## 1998  0.0755849269  93.1257 4.533950  0.055979489 0.5773362 -0.5493305
## 1999  0.0623540691  96.9102 4.573785  0.039834583 0.5766115 -0.5505865
## 2000  0.1268493339 106.7817 4.670787  0.097001787 0.5670652 -0.5672810
## 2001  0.0561061747 112.3262 4.721407  0.050620575 0.5610467 -0.5779511
## 2002  0.0419692826 112.6528 4.724311  0.002903384 0.5560484 -0.5869000
## 2003  0.0053010253 116.6040 4.758784  0.034473056 0.5543043 -0.5900414
## 2004  0.0830627724 125.9034 4.835515  0.076731368 0.5436731 -0.6094071
## 2005  0.0645240538 132.7715 4.888630  0.053114659 0.5350522 -0.6253910
## 2006  0.0730287988 140.5446 4.945525  0.056895271 0.5310228 -0.6329502
## 2007  0.0729886309 148.4643 5.000345  0.054819649 0.5244776 -0.6453525
## 2008  0.0214745623 149.8810 5.009842  0.009497121 0.5319185 -0.6312650
## 2009 -0.1551123217 132.0464 4.883153 -0.126688270 0.5464895 -0.6042402
## 2010  0.1233767589 147.8517 4.996210  0.113056368 0.5418024 -0.6128538
## 2011  0.0576587490 156.6552 5.054047  0.057837467 0.5350745 -0.6253493
## 2012  0.0142747556 158.1021 5.063241  0.009193815 0.5385218 -0.6189273
## 2013  0.0063858043 159.1994 5.070158  0.006916478 0.5426272 -0.6113328
## 2014  0.0284672490 163.9063 5.099295  0.029137419 0.5407582 -0.6147831
## 2015  0.0300358068 169.8564 5.134953  0.035658451 0.5358792 -0.6238465
## 2016  0.0302646318 176.0588 5.170818  0.035864656 0.5324779 -0.6302139
## 2017  0.0489960786 184.9346 5.220002  0.049184219 0.5302679 -0.6343729
## 2018  0.0571800916 193.3802 5.264658  0.044655950 0.5308439 -0.6332873
##            rulc_dl      ulc    ulc_l         ulc_dl       Tau    Tau_l
## 1966 -0.0040358421 14.74613 2.690980  0.02671023258  60.14964 4.096835
## 1967  0.0087997620 15.35961 2.731742  0.04076106282  61.63206 4.121182
## 1968 -0.0072210089 15.68186 2.752505  0.02076310209  63.88342 4.157060
## 1969 -0.0106305575 15.94013 2.768840  0.01633526026  66.89507 4.203125
## 1970 -0.0346000775 16.12826 2.780573  0.01173339277  70.29668 4.252725
## 1971  0.0191022347 17.45957 2.859888  0.07931482775  71.94648 4.275923
## 1972 -0.0188483562 18.43571 2.914290  0.05440147469  74.35750 4.308885
## 1973  0.0176533574 20.27433 3.009355  0.09506589295  75.60996 4.325588
## 1974 -0.0049734756 22.09034 3.095140  0.08578490875  76.55062 4.337952
## 1975  0.0401927804 24.48099 3.197897  0.10275665321  75.18143 4.319904
## 1976 -0.0152566052 25.46705 3.237385  0.03948822468  77.12561 4.345435
## 1977 -0.0136779381 26.42705 3.274388  0.03700292041  79.00764 4.369545
## 1978  0.0199610783 28.57557 3.352552  0.07816411048  77.46744 4.349858
## 1979 -0.0358237533 28.70434 3.357048  0.00449611307  80.16820 4.384127
## 1980 -0.0051231769 30.15136 3.406230  0.04918155726  79.88454 4.380582
## 1981  0.0004244050 32.19018 3.471661  0.06543150301  78.83476 4.367354
## 1982 -0.0358659479 32.71926 3.487964  0.01630231572  80.22950 4.384891
## 1983 -0.0307993370 32.82869 3.491303  0.00333904887  82.13533 4.408368
## 1984  0.0004312312 34.46850 3.540046  0.04874291668  81.47184 4.400257
## 1985 -0.0060429151 35.27598 3.563202  0.02315661300  82.52002 4.413041
## 1986 -0.0070068702 36.06340 3.585278  0.02207602540  83.43739 4.424097
## 1987 -0.0050754366 36.75522 3.604280  0.01900180331  83.71888 4.427465
## 1988 -0.0093795629 36.96804 3.610054  0.00577368158  85.03825 4.443101
## 1989 -0.0121821760 37.60317 3.627088  0.01703446791  86.63057 4.461653
## 1990 -0.0032336297 38.60610 3.653410  0.02632200111  88.20772 4.479694
## 1991  0.0002262013 40.02114 3.689408  0.03599743015  89.32470 4.492278
## 1992  0.0051452544 41.62715 3.728752  0.03934471142  89.79004 4.497474
## 1993  0.0036022853 42.92920 3.759552  0.03079987282  89.51424 4.494398
## 1994 -0.0060888235 43.74597 3.778399  0.01884711458  90.55156 4.505919
## 1995 -0.0215478226 43.59002 3.774828 -0.00357122003  92.08267 4.522687
## 1996 -0.0112208798 43.52873 3.773421 -0.00140713783  92.90017 4.531525
## 1997 -0.0163960918 43.36338 3.769615 -0.00380572888  93.36528 4.536519
## 1998 -0.0066482225 43.26641 3.767376 -0.00223890568  95.03750 4.554272
## 1999 -0.0012560413 43.32287 3.768681  0.00130417626  96.49386 4.569479
## 2000 -0.0166944619 43.18678 3.765534 -0.00314624638  98.05792 4.585558
## 2001 -0.0106701256 43.56039 3.774148  0.00861379335  97.88326 4.583776
## 2002 -0.0089488440 43.66689 3.776590  0.00244199003  98.72557 4.592344
## 2003 -0.0031414693 44.09911 3.786440  0.00984930935  98.40766 4.589119
## 2004 -0.0193656310 44.00580 3.784321 -0.00211804063  99.88820 4.604052
## 2005 -0.0159839415 44.40707 3.793399  0.00907732585 100.62366 4.611387
## 2006 -0.0075592344 44.90658 3.804584  0.01118558940 102.25384 4.627458
## 2007 -0.0124022913 45.33824 3.814151  0.00956637996 104.05824 4.644951
## 2008  0.0140875630 46.88101 3.847613  0.03346188572 103.54599 4.640016
## 2009  0.0270247778 49.07520 3.893354  0.04574117002  99.38465 4.598998
## 2010 -0.0086136501 49.07908 3.893433  0.00007900834 100.27796 4.607946
## 2011 -0.0124954804 49.35827 3.899105  0.00567257892 101.64682 4.621504
## 2012  0.0064220165 50.69674 3.925862  0.02675622504 101.11596 4.616268
## 2013  0.0075945100 51.91276 3.949565  0.02370294992 100.34189 4.608583
## 2014 -0.0034503159 52.85953 3.967638  0.01807344935  99.90305 4.604200
## 2015 -0.0090633569 53.58792 3.981324  0.01368569673 100.00000 4.605170
## 2016 -0.0063674257 54.13577 3.991495  0.01017134475 100.68399 4.611987
## 2017 -0.0041589839 54.52179 3.998600  0.00710535714 101.50724 4.620130
## 2018  0.0010855300 55.51011 4.016565  0.01796477441 102.19544 4.626887
##             Tau_dl        dPxdPm         dPdPm     Trade
## 1966  0.0430655991  0.0009987675  0.0137877540 0.2954235
## 1967  0.0243466454 -0.0098028939  0.0173087761 0.2977178
## 1968  0.0358777830  0.0097735632  0.0219836335 0.3071240
## 1969  0.0460653319 -0.0227956650 -0.0209056865 0.3261037
## 1970  0.0495993114 -0.0071507269 -0.0140644522 0.3553906
## 1971  0.0231980101 -0.0097235211  0.0156175271 0.3595506
## 1972  0.0329620252  0.0133857404  0.0536659759 0.3765099
## 1973  0.0167033822  0.0315714429  0.0372535587 0.3864741
## 1974  0.0123641869 -0.0572426173 -0.0725549857 0.4038546
## 1975 -0.0180479726  0.0071630562  0.0221614428 0.3906635
## 1976  0.0255311379 -0.0103804410  0.0266295605 0.4275974
## 1977  0.0241092804 -0.0073311005 -0.0050547848 0.4301848
## 1978 -0.0196869229  0.0032186459  0.0483139289 0.4450711
## 1979  0.0342692879 -0.0106799000 -0.0144618383 0.4678203
## 1980 -0.0035446640 -0.0345096159 -0.0414866357 0.4817985
## 1981 -0.0132282754 -0.0208167700 -0.0121228612 0.4916845
## 1982  0.0175372584  0.0141719826  0.0323127066 0.4725404
## 1983  0.0234769879 -0.0035500073  0.0234806985 0.4723560
## 1984 -0.0081108735  0.0006971628  0.0081844299 0.5072265
## 1985  0.0127835209 -0.0064869478 -0.0095705803 0.5303376
## 1986  0.0110556511  0.0115767277  0.0348902206 0.4987629
## 1987  0.0033679700  0.0031560686  0.0420769831 0.5099909
## 1988  0.0156365869 -0.0004348375 -0.0051736511 0.5375111
## 1989  0.0185515797 -0.0052570278 -0.0002750506 0.5709162
## 1990  0.0180417302  0.0063192333  0.0267297896 0.5923618
## 1991  0.0125835392 -0.0012222816  0.0253900206 0.5959249
## 1992  0.0051960710 -0.0064290976  0.0283364720 0.5938367
## 1993 -0.0030763283 -0.0040730979  0.0190156405 0.5670482
## 1994  0.0115216535  0.0030317499  0.0127795254 0.5985258
## 1995  0.0167674106  0.0035408732  0.0049308270 0.6209801
## 1996  0.0088386460 -0.0148402250 -0.0138537626 0.6333802
## 1997  0.0049940436 -0.0108669137 -0.0049873265 0.6766130
## 1998  0.0177520603 -0.0037776508  0.0015149241 0.6974684
## 1999  0.0152077843 -0.0050671548 -0.0035518443 0.7087145
## 2000  0.0160790376 -0.0102353777 -0.0131320368 0.7667577
## 2001 -0.0017828641  0.0021116155  0.0167190664 0.7986837
## 2002  0.0085684765  0.0070678298  0.0170487310 0.8038404
## 2003 -0.0032253342  0.0079972007  0.0205919945 0.8120789
## 2004  0.0149328979 -0.0052688753  0.0005626045 0.8562495
## 2005  0.0073359001 -0.0080328874 -0.0024130416 0.8882972
## 2006  0.0160709142 -0.0110067180 -0.0166214115 0.9164737
## 2007  0.0174924237 -0.0043176811 -0.0011811641 0.9421544
## 2008 -0.0049349209 -0.0124255361 -0.0184542103 0.9433314
## 2009 -0.0410182368  0.0187403832  0.0657159170 0.8509288
## 2010  0.0089483400 -0.0165608637 -0.0370799001 0.9406031
## 2011  0.0135582839 -0.0174453464 -0.0396755903 0.9682179
## 2012 -0.0052362817 -0.0050938544  0.0019359184 0.9731209
## 2013 -0.0076847582  0.0014893623  0.0175331615 0.9793548
## 2014 -0.0043829963  0.0097347545  0.0326350971 1.0013377
## 2015  0.0009699693  0.0156939837  0.0412243848 1.0242732
## 2016  0.0068165812  0.0082247235  0.0299668499 1.0370053
## 2017  0.0081434070 -0.0126524289 -0.0179191732 1.0628577
## 2018  0.0067569262 -0.0065024284 -0.0045328228 1.0922071

Adjusted Dickey-fuller testet I(0)

adf.AUT.WS <- adf.test((AUT$WS), alternative = c("stationary"), k = 2)
adf.AUT.PS <- adf.test((AUT$PS), alternative = c("stationary"), k = 2)
adf.AUT.Y <- adf.test((AUT$Y), alternative = c("stationary"), k = 2)
adf.AUT.Yrw <- adf.test((AUT$Yrw), alternative = c("stationary"), k = 2)
adf.AUT.r <- adf.test((AUT$r), alternative = c("stationary"), k = 2)
adf.AUT.R <- adf.test((AUT$R), alternative = c("stationary"), k = 2)
adf.AUT.Tau <- adf.test((AUT$Tau), alternative = c("stationary"), k = 2)
adf.AUT.rulc <- adf.test((AUT$rulc), alternative = c("stationary"), k = 2)
adf.AUT.ulc <- adf.test((AUT$ulc), alternative = c("stationary"), k = 2)
adf.AUT.P <- adf.test((AUT$P), alternative = c("stationary"), k = 2)
adf.AUT.Pm <- adf.test((AUT$Pm), alternative = c("stationary"), k = 2)
adf.AUT.Px <- adf.test((AUT$Px), alternative = c("stationary"), k = 2)
adf.AUT.X <- adf.test((AUT$X), alternative = c("stationary"), k = 2)
adf.AUT.M <- adf.test((AUT$M), alternative = c("stationary"), k = 2)
adf.AUT.I <- adf.test((AUT$I), alternative = c("stationary"), k = 2)
adf.AUT.C <- adf.test((AUT$C), alternative = c("stationary"), k = 2)
adf.AUT.Ipr <- adf.test((AUT$Ipr), alternative = c("stationary"), k = 2)
adf.AUT.Ips <- adf.test((AUT$Ips), alternative = c("stationary"), k = 2)
adf.AUT.It <- adf.test((AUT$It), alternative = c("stationary"), k = 2)
adf.AUT.Itcurr <- adf.test((AUT$Itcurr), alternative = c("stationary"), k = 2)
adf.AUT.Yf <- adf.test((AUT$Yf), alternative = c("stationary"), k = 2)
adf.AUT.W <- adf.test((AUT$W), alternative = c("stationary"), k = 2)

adf.AUT.WS.pval <- adf.AUT.WS$p.value
adf.AUT.PS.pval <- adf.AUT.PS$p.value
adf.AUT.Y.pval <- adf.AUT.Y$p.value
adf.AUT.Yrw.pval <- adf.AUT.Yrw$p.value
adf.AUT.r.pval <- adf.AUT.r$p.value
adf.AUT.R.pval <- adf.AUT.R$p.value
adf.AUT.Tau.pval <- adf.AUT.Tau$p.value
adf.AUT.rulc.pval <- adf.AUT.rulc$p.value
adf.AUT.ulc.pval <- adf.AUT.ulc$p.value
adf.AUT.P.pval <- adf.AUT.P$p.value
adf.AUT.Pm.pval <- adf.AUT.Pm$p.value
adf.AUT.Px.pval <- adf.AUT.Px$p.value
adf.AUT.X.pval <- adf.AUT.X$p.value
adf.AUT.M.pval <- adf.AUT.M$p.value
adf.AUT.I.pval <- adf.AUT.I$p.value
adf.AUT.C.pval <- adf.AUT.C$p.value
adf.AUT.Ipr.pval <- adf.AUT.Ipr$p.value
adf.AUT.Ips.pval <- adf.AUT.Ips$p.value
adf.AUT.It.pval <- adf.AUT.It$p.value
adf.AUT.Itcurr.pval <- adf.AUT.Itcurr$p.value
adf.AUT.Yf.pval <- adf.AUT.Yf$p.value
adf.AUT.W.pval <- adf.AUT.W$p.value

adf.AUT_non <- rbind(adf.AUT.WS.pval,adf.AUT.PS.pval,adf.AUT.Y.pval,adf.AUT.Yrw.pval,adf.AUT.r.pval,adf.AUT.R.pval,adf.AUT.Tau.pval,adf.AUT.rulc.pval,adf.AUT.ulc.pval,adf.AUT.P.pval,adf.AUT.Pm.pval,adf.AUT.Px.pval,adf.AUT.X.pval,adf.AUT.M.pval,adf.AUT.I.pval,adf.AUT.C.pval,adf.AUT.Ipr.pval,adf.AUT.Ips.pval,adf.AUT.It.pval,adf.AUT.Itcurr.pval,adf.AUT.Yf.pval,adf.AUT.W.pval)


colnames(adf.AUT_non) <- c("AUT")
rownames(adf.AUT_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.AUT_non
##               AUT
## WS     0.56797267
## PS     0.56797267
## Y      0.61684431
## Yrw    0.55316530
## r      0.69033762
## R      0.63869620
## Tau    0.52499587
## rulc   0.67415022
## ulc    0.61913833
## P      0.49494096
## Pm     0.71104497
## Px     0.72036872
## X      0.95115097
## M      0.96495729
## I      0.59288909
## C      0.80293622
## Ipr    0.97209763
## Ips    0.87568474
## It     0.41105158
## Itcurr 0.98979710
## Yf     0.55838297
## W      0.02590657

Adjusted Dickey-fuller testet I(1)

adf.AUT.WS_dl <- adf.test((AUT$WS_dl), alternative = c("stationary"), k = 2)
adf.AUT.PS_dl <- adf.test((AUT$PS_dl), alternative = c("stationary"), k = 2)
adf.AUT.Y_dl <- adf.test((AUT$Y_dl), alternative = c("stationary"), k = 2)
adf.AUT.Yrw_dl <- adf.test((AUT$Yrw_dl), alternative = c("stationary"), k = 2)
adf.AUT.r_dl <- adf.test((AUT$r_dl), alternative = c("stationary"), k = 2)
adf.AUT.R_dl <- adf.test((AUT$R_dl), alternative = c("stationary"), k = 2)
adf.AUT.Tau_dl <- adf.test((AUT$Tau_dl), alternative = c("stationary"), k = 2)
adf.AUT.rulc_dl <- adf.test((AUT$rulc_dl), alternative = c("stationary"), k = 2)
adf.AUT.ulc_dl <- adf.test((AUT$ulc_dl), alternative = c("stationary"), k = 2)
adf.AUT.P_dl <- adf.test((AUT$P_dl), alternative = c("stationary"), k = 2)
adf.AUT.Pm_dl <- adf.test((AUT$Pm_dl), alternative = c("stationary"), k = 2)
adf.AUT.Px_dl <- adf.test((AUT$Px_dl), alternative = c("stationary"), k = 2)
adf.AUT.X_dl <- adf.test((AUT$X_dl), alternative = c("stationary"), k = 2)
adf.AUT.M_dl <- adf.test((AUT$M_dl), alternative = c("stationary"), k = 2)
adf.AUT.I_dl <- adf.test((AUT$I_dl), alternative = c("stationary"), k = 2)
adf.AUT.C_dl <- adf.test((AUT$C_dl), alternative = c("stationary"), k = 2)
adf.AUT.Ipr_dl <- adf.test((AUT$Ipr_dl), alternative = c("stationary"), k = 2)
adf.AUT.Ips_dl <- adf.test((AUT$Ips_dl), alternative = c("stationary"), k = 2)
adf.AUT.It_dl <- adf.test((AUT$It_dl), alternative = c("stationary"), k = 2)
adf.AUT.Itcurr_dl <- adf.test((AUT$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.AUT.Yf_dl <- adf.test((AUT$Yf_dl), alternative = c("stationary"), k = 2)
adf.AUT.W_dl <- adf.test((AUT$W_dl), alternative = c("stationary"), k = 2)

adf.AUT.WS_dl.pval <- adf.AUT.WS_dl$p.value
adf.AUT.PS_dl.pval <- adf.AUT.PS_dl$p.value
adf.AUT.Y_dl.pval <- adf.AUT.Y_dl$p.value
adf.AUT.Yrw_dl.pval <- adf.AUT.Yrw_dl$p.value
adf.AUT.r_dl.pval <- adf.AUT.r_dl$p.value
adf.AUT.R_dl.pval <- adf.AUT.R_dl$p.value
adf.AUT.Tau_dl.pval <- adf.AUT.Tau_dl$p.value
adf.AUT.rulc_dl.pval <- adf.AUT.rulc_dl$p.value
adf.AUT.ulc_dl.pval <- adf.AUT.ulc_dl$p.value
adf.AUT.P_dl.pval <- adf.AUT.P_dl$p.value
adf.AUT.Pm_dl.pval <- adf.AUT.Pm_dl$p.value
adf.AUT.Px_dl.pval <- adf.AUT.Px_dl$p.value
adf.AUT.X_dl.pval <- adf.AUT.X_dl$p.value
adf.AUT.M_dl.pval <- adf.AUT.M_dl$p.value
adf.AUT.I_dl.pval <- adf.AUT.I_dl$p.value
adf.AUT.C_dl.pval <- adf.AUT.C_dl$p.value
adf.AUT.Ipr_dl.pval <- adf.AUT.Ipr_dl$p.value
adf.AUT.Ips_dl.pval <- adf.AUT.Ips_dl$p.value
adf.AUT.It_dl.pval <- adf.AUT.It_dl$p.value
adf.AUT.Itcurr_dl.pval <- adf.AUT.Itcurr_dl$p.value
adf.AUT.Yf_dl.pval <- adf.AUT.Yf_dl$p.value
adf.AUT.W_dl.pval <- adf.AUT.W_dl$p.value

adf.AUT_dl <- rbind(adf.AUT.WS_dl.pval,adf.AUT.PS_dl.pval,adf.AUT.Y_dl.pval,adf.AUT.Yrw_dl.pval,adf.AUT.r_dl.pval,adf.AUT.R_dl.pval,adf.AUT.Tau_dl.pval,adf.AUT.rulc_dl.pval,adf.AUT.ulc_dl.pval,adf.AUT.P_dl.pval,adf.AUT.Pm_dl.pval,adf.AUT.Px_dl.pval,adf.AUT.X_dl.pval,adf.AUT.M_dl.pval,adf.AUT.I_dl.pval,adf.AUT.C_dl.pval,adf.AUT.Ipr_dl.pval,adf.AUT.Ips_dl.pval,adf.AUT.It_dl.pval,adf.AUT.Itcurr_dl.pval,adf.AUT.Yf_dl.pval,adf.AUT.W_dl.pval)
colnames(adf.AUT_dl) <- c("AUT")
rownames(adf.AUT_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.AUT_dl
##                     AUT
## dlog(WS)     0.03446441
## dlog(PS)     0.04327349
## dlog(Y)      0.11756054
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01460777
## dlog(Tau)    0.11853721
## dlog(rulc)   0.02993245
## dlog(ulc)    0.33686442
## dlog(P)      0.13906346
## dlog(Pm)     0.01000000
## dlog(Px)     0.04311749
## dlog(X)      0.01000000
## dlog(M)      0.01000000
## dlog(I)      0.01682294
## dlog(C)      0.02310321
## dlog(Ipr)    0.01000000
## dlog(Ips)    0.03520360
## dlog(It)     0.02699915
## dlog(Itcurr) 0.01000000
## dlog(Yf)     0.14509039
## dlog(W)      0.22787844
adf.AUT <- NULL
adf.AUT <- rbind(adf.AUT_non,adf.AUT_dl)

Økonometriske test

#Consumption (C)
AUT_consumption <- dynlm(AUT$C_dl~AUT$R_dl+AUT$W_dl)
AUT_CR <- summary(AUT_consumption)$coefficients["AUT$R_dl","Estimate"]
AUT_CW <- summary(AUT_consumption)$coefficients["AUT$W_dl","Estimate"]
AUT_Ceffekt <- (AUT_CR*mean(AUT$C/AUT$R))-(AUT_CW*mean(AUT$C/AUT$W))
summary(AUT_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$C_dl ~ AUT$R_dl + AUT$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.024718 -0.008414 -0.001105  0.007630  0.034945 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.006118   0.002738   2.234     0.029963 *  
## AUT$R_dl    0.141982   0.033932   4.184     0.000115 ***
## AUT$W_dl    0.633054   0.097800   6.473 0.0000000401 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01231 on 50 degrees of freedom
## Multiple R-squared:  0.5622, Adjusted R-squared:  0.5447 
## F-statistic:  32.1 on 2 and 50 DF,  p-value: 0.000000001078
#Investments (I)
AUT_investment <- dynlm(AUT$I_dl~AUT$PS_dl+AUT$Y_l+AUT$r)
AUT_iPS <- summary(AUT_investment)$coefficients["AUT$PS_dl","Estimate"]
AUT_Ieffekt <- AUT_iPS*mean(AUT$I/AUT$R)
summary(AUT_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$I_dl ~ AUT$PS_dl + AUT$Y_l + AUT$r)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15851 -0.02039  0.00302  0.03149  0.11126 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)  0.217297   0.106597   2.038  0.04692 * 
## AUT$PS_dl    0.505212   0.182615   2.767  0.00797 **
## AUT$Y_l     -0.034249   0.018937  -1.809  0.07665 . 
## AUT$r       -0.003452   0.003808  -0.907  0.36905   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04717 on 49 degrees of freedom
## Multiple R-squared:  0.1728, Adjusted R-squared:  0.1221 
## F-statistic: 3.412 on 3 and 49 DF,  p-value: 0.02455
#Price deflator (P)
AUT_deflator <- dynlm(AUT$P_dl~L(AUT$ulc_dl)+AUT$Pm_dl)
AUT_ePULC <- summary(AUT_deflator)$coefficients["L(AUT$ulc_dl)","Estimate"]
summary(AUT_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$P_dl ~ L(AUT$ulc_dl) + AUT$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0187229 -0.0055944 -0.0002332  0.0026792  0.0272932 
## 
## Coefficients:
##               Estimate Std. Error t value           Pr(>|t|)    
## (Intercept)   0.012468   0.001884   6.619 0.0000000237124256 ***
## L(AUT$ulc_dl) 0.545344   0.053424  10.208 0.0000000000000801 ***
## AUT$Pm_dl     0.195118   0.043948   4.440 0.0000497787928314 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.009397 on 50 degrees of freedom
## Multiple R-squared:  0.7854, Adjusted R-squared:  0.7768 
## F-statistic: 91.47 on 2 and 50 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
AUT_exportdeflator <- dynlm(AUT$Px_dl~AUT$ulc_dl+AUT$Pm_dl)
AUT_ePX <- summary(AUT_exportdeflator)$coefficients["AUT$ulc_dl","Estimate"]
summary(AUT_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$Px_dl ~ AUT$ulc_dl + AUT$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0124095 -0.0047439 -0.0002527  0.0032038  0.0295126 
## 
## Coefficients:
##             Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) 0.001289   0.001548   0.833              0.4089    
## AUT$ulc_dl  0.170625   0.043900   3.887              0.0003 ***
## AUT$Pm_dl   0.615251   0.036114  17.037 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.007722 on 50 degrees of freedom
## Multiple R-squared:  0.8917, Adjusted R-squared:  0.8873 
## F-statistic: 205.8 on 2 and 50 DF,  p-value: < 0.00000000000000022
#Exports (X)
AUT_exports <- dynlm(AUT$X_dl~AUT$dPxdPm+AUT$Yrw_dl)
AUT_eXP <- summary(AUT_exports)$coefficients["AUT$dPxdPm","Estimate"]
AUT_Xeffekt <- -(AUT_eXP*AUT_ePX*(1/(1-AUT_ePULC))*mean(AUT$Yf/AUT$Y)*(mean(AUT$X/AUT$Y)/mean(AUT$rulc)))
summary(AUT_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$X_dl ~ AUT$dPxdPm + AUT$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.079120 -0.017154  0.001561  0.018083  0.098114 
## 
## Coefficients:
##              Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) -0.009697   0.008395  -1.155           0.254    
## AUT$dPxdPm  -1.600813   0.315391  -5.076 0.0000057211277 ***
## AUT$Yrw_dl   2.066471   0.252433   8.186 0.0000000000858 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03113 on 50 degrees of freedom
## Multiple R-squared:  0.6437, Adjusted R-squared:  0.6295 
## F-statistic: 45.18 on 2 and 50 DF,  p-value: 0.000000000006221
#Imports (M)
AUT_imports <- dynlm(AUT$M_dl~AUT$dPdPm+AUT$Y_l)
AUT_eMP <- summary(AUT_imports)$coefficients["AUT$dPdPm","Estimate"]
AUT_Meffekt <- -(AUT_eMP*AUT_ePULC*(1/(1-AUT_ePULC))*mean(AUT$Yf/AUT$Y)*(mean(AUT$M/AUT$Y)/mean(AUT$rulc)))
summary(AUT_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$M_dl ~ AUT$dPdPm + AUT$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.115031 -0.018517  0.008133  0.023803  0.113471 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)   
## (Intercept)  0.26667    0.09276   2.875  0.00592 **
## AUT$dPdPm   -0.76446    0.24645  -3.102  0.00316 **
## AUT$Y_l     -0.03953    0.01716  -2.304  0.02543 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04612 on 50 degrees of freedom
## Multiple R-squared:  0.2179, Adjusted R-squared:  0.1867 
## F-statistic: 6.967 on 2 and 50 DF,  p-value: 0.002143
names(AUT_consumption$coefficients) <- sub("AUT$","",names(AUT_consumption$coefficients),fixed=TRUE)
names(AUT_investment$coefficients) <- sub("AUT$","",names(AUT_investment$coefficients),fixed=TRUE)
names(AUT_deflator$coefficients) <- sub("AUT$","",names(AUT_deflator$coefficients),fixed=TRUE)
names(AUT_exportdeflator$coefficients) <- sub("AUT$","",names(AUT_exportdeflator$coefficients),fixed=TRUE)
names(AUT_exports$coefficients) <- sub("AUT$","",names(AUT_exports$coefficients),fixed=TRUE)
names(AUT_imports$coefficients) <- sub("AUT$","",names(AUT_imports$coefficients),fixed=TRUE)

print("Xeffekt")
## [1] "Xeffekt"
AUT_Xeffekt
## [1] 0.2845606
print("Meffekt")
## [1] "Meffekt"
AUT_Meffekt
## [1] 0.4437707
#Nettoeksport (NX)
print("NXeffekt")
## [1] "NXeffekt"
AUT_NXeffekt <- AUT_Xeffekt - AUT_Meffekt
AUT_NXeffekt
## [1] -0.1592101
#Nettoeffekten
print("Neteffekt")
## [1] "Neteffekt"
AUT_Neteffekt = AUT_Ceffekt + AUT_Ieffekt + AUT_NXeffekt
AUT_Neteffekt
## [1] -0.1084577
AUT_Lukket <- AUT_Ceffekt + AUT_Ieffekt
AUT_Lukket_Konklusion <- ifelse(AUT_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
AUT_Lukket_Konklusion
## [1] "Profit-led domestic"
AUT_Def <- ifelse(AUT_Neteffekt > 0, "Profit-led", "Wage-led")
AUT_Def
## [1] "Wage-led"

Kointegrations-test

summary(ur.df(y=AUT_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.022887 -0.007319 -0.003962  0.001785  0.021019 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.336115   0.461564  -0.728   0.4728  
## z.diff.lag1  -0.720114   0.454589  -1.584   0.1248  
## z.diff.lag2  -0.930484   0.466299  -1.995   0.0562 .
## z.diff.lag3  -0.964681   0.489029  -1.973   0.0589 .
## z.diff.lag4  -0.758430   0.513825  -1.476   0.1515  
## z.diff.lag5  -0.816368   0.511754  -1.595   0.1223  
## z.diff.lag6  -0.366982   0.509152  -0.721   0.4772  
## z.diff.lag7  -0.251408   0.469473  -0.536   0.5967  
## z.diff.lag8  -0.092194   0.410392  -0.225   0.8239  
## z.diff.lag9   0.060206   0.355503   0.169   0.8668  
## z.diff.lag10  0.008801   0.290684   0.030   0.9761  
## z.diff.lag11  0.210375   0.229787   0.916   0.3680  
## z.diff.lag12  0.026557   0.162544   0.163   0.8714  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01084 on 27 degrees of freedom
## Multiple R-squared:  0.712,  Adjusted R-squared:  0.5733 
## F-statistic: 5.134 on 13 and 27 DF,  p-value: 0.000167
## 
## 
## Value of test-statistic is: -0.7282 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=AUT_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09924 -0.03261 -0.00422  0.02427  0.06708 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.59649    0.62316  -2.562   0.0163 *
## z.diff.lag1   0.74855    0.55491   1.349   0.1886  
## z.diff.lag2   0.62359    0.52023   1.199   0.2411  
## z.diff.lag3   0.64068    0.47940   1.336   0.1926  
## z.diff.lag4   0.85339    0.45041   1.895   0.0689 .
## z.diff.lag5   0.61337    0.43763   1.402   0.1724  
## z.diff.lag6   0.55544    0.39156   1.419   0.1675  
## z.diff.lag7   0.50335    0.35849   1.404   0.1717  
## z.diff.lag8   0.49917    0.31887   1.565   0.1291  
## z.diff.lag9   0.50731    0.29350   1.728   0.0953 .
## z.diff.lag10  0.37274    0.26189   1.423   0.1661  
## z.diff.lag11  0.25783    0.21081   1.223   0.2319  
## z.diff.lag12  0.03318    0.16334   0.203   0.8406  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04455 on 27 degrees of freedom
## Multiple R-squared:  0.5774, Adjusted R-squared:  0.3739 
## F-statistic: 2.837 on 13 and 27 DF,  p-value: 0.01072
## 
## 
## Value of test-statistic is: -2.5619 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=AUT_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.060928 -0.016497  0.001375  0.018619  0.044869 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.63995    0.55343  -1.156    0.258
## z.diff.lag1  -0.24556    0.53939  -0.455    0.653
## z.diff.lag2  -0.40420    0.52285  -0.773    0.446
## z.diff.lag3  -0.23357    0.51662  -0.452    0.655
## z.diff.lag4  -0.38721    0.49111  -0.788    0.437
## z.diff.lag5  -0.27803    0.46766  -0.595    0.557
## z.diff.lag6  -0.07556    0.43747  -0.173    0.864
## z.diff.lag7  -0.05514    0.41453  -0.133    0.895
## z.diff.lag8  -0.07011    0.36879  -0.190    0.851
## z.diff.lag9  -0.10383    0.31084  -0.334    0.741
## z.diff.lag10  0.06913    0.26364   0.262    0.795
## z.diff.lag11 -0.10546    0.21274  -0.496    0.624
## z.diff.lag12 -0.02200    0.16133  -0.136    0.893
## 
## Residual standard error: 0.02941 on 27 degrees of freedom
## Multiple R-squared:  0.5998, Adjusted R-squared:  0.4071 
## F-statistic: 3.113 on 13 and 27 DF,  p-value: 0.006157
## 
## 
## Value of test-statistic is: -1.1563 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=AUT_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.095883 -0.017911 -0.004162  0.016941  0.058751 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.62452    0.77202  -2.104   0.0448 *
## z.diff.lag1   0.73481    0.71988   1.021   0.3164  
## z.diff.lag2   0.56892    0.66593   0.854   0.4004  
## z.diff.lag3   0.66975    0.59957   1.117   0.2738  
## z.diff.lag4   0.60234    0.55006   1.095   0.2832  
## z.diff.lag5   0.49986    0.51246   0.975   0.3380  
## z.diff.lag6   0.51247    0.47985   1.068   0.2950  
## z.diff.lag7   0.53462    0.44984   1.188   0.2450  
## z.diff.lag8   0.29024    0.40256   0.721   0.4771  
## z.diff.lag9   0.16106    0.36470   0.442   0.6623  
## z.diff.lag10 -0.05098    0.31089  -0.164   0.8710  
## z.diff.lag11  0.05923    0.23837   0.248   0.8057  
## z.diff.lag12  0.03263    0.16830   0.194   0.8477  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04178 on 27 degrees of freedom
## Multiple R-squared:  0.5696, Adjusted R-squared:  0.3623 
## F-statistic: 2.748 on 13 and 27 DF,  p-value: 0.01286
## 
## 
## Value of test-statistic is: -2.1042 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61

Test plots

plot(AUT_consumption)

plot(AUT_investment)

plot(AUT_deflator)

plot(AUT_exportdeflator)

plot(AUT_exports)

plot(AUT_imports)

bptest(AUT_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  AUT_consumption
## BP = 1.8037, df = 2, p-value = 0.4058
bptest(AUT_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  AUT_investment
## BP = 1.9588, df = 3, p-value = 0.581
bptest(AUT_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  AUT_deflator
## BP = 0.11813, df = 2, p-value = 0.9426
bptest(AUT_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  AUT_exportdeflator
## BP = 9.5572, df = 2, p-value = 0.008408
bptest(AUT_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  AUT_exports
## BP = 0.21658, df = 2, p-value = 0.8974
bptest(AUT_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  AUT_imports
## BP = 6.9428, df = 2, p-value = 0.03107
resettest(AUT_consumption)
## 
##  RESET test
## 
## data:  AUT_consumption
## RESET = 2.2688, df1 = 2, df2 = 48, p-value = 0.1144
resettest(AUT_investment)
## 
##  RESET test
## 
## data:  AUT_investment
## RESET = 3.2626, df1 = 2, df2 = 47, p-value = 0.04712
resettest(AUT_deflator)
## 
##  RESET test
## 
## data:  AUT_deflator
## RESET = 0.30041, df1 = 2, df2 = 48, p-value = 0.7419
resettest(AUT_exportdeflator)
## 
##  RESET test
## 
## data:  AUT_exportdeflator
## RESET = 2.0283, df1 = 2, df2 = 48, p-value = 0.1427
resettest(AUT_exports)
## 
##  RESET test
## 
## data:  AUT_exports
## RESET = 1.608, df1 = 2, df2 = 48, p-value = 0.2109
resettest(AUT_imports)
## 
##  RESET test
## 
## data:  AUT_imports
## RESET = 2.4161, df1 = 2, df2 = 48, p-value = 0.1

Resultater

AUT_regtab <- matrix(c(AUT_Ceffekt, AUT_Ieffekt, AUT_Lukket, AUT_Xeffekt, AUT_Meffekt, AUT_NXeffekt, AUT_Neteffekt,AUT_Lukket_Konklusion, AUT_Def),ncol=9,byrow=TRUE)
colnames(AUT_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(AUT_regtab) <- c("AUT")
AUT_regtab <- as.table(AUT_regtab)
AUT_regtab
##     consumption        investment        Lukket neteffekt  
## AUT -0.307975667166831 0.358728098156485 0.0507524309896539
##     exports           imports           netexports        
## AUT 0.284560572664439 0.443770696791004 -0.159210124126565
##     neteffect          Lukket konklusion   Konklusion
## AUT -0.108457693136911 Profit-led domestic Wage-led
AUT_smoke <- matrix(c(mean(AUT$C/AUT$R), mean(AUT$C/AUT$W), mean(AUT$I/AUT$R), AUT_CR, AUT_CW, AUT_iPS, AUT_ePULC, (1/(1-AUT_ePULC)), AUT_eXP, AUT_ePX, AUT_eMP, mean(AUT$Yf/AUT$Y), mean(AUT$X/AUT$Y), mean(AUT$rulc), (mean(AUT$M/AUT$Y)/mean(AUT$rulc))),ncol=15,byrow=TRUE)
colnames(AUT_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(AUT_smoke) <- c("AUT")
AUT_smoke <- as.table(AUT_smoke)
AUT_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## AUT  1.9261097  0.9184808  0.7100548  0.1419816  0.6330538  0.5052118
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## AUT  0.5453441  2.1994655 -1.6008133  0.1706255 -0.7644633  0.9048058
##            X/Y       RULC (X/Y)/rulc
## AUT  0.3199673  0.6112065  0.5348831

Summary af regressioner

summary(AUT_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$C_dl ~ AUT$R_dl + AUT$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.024718 -0.008414 -0.001105  0.007630  0.034945 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.006118   0.002738   2.234     0.029963 *  
## R_dl        0.141982   0.033932   4.184     0.000115 ***
## W_dl        0.633054   0.097800   6.473 0.0000000401 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01231 on 50 degrees of freedom
## Multiple R-squared:  0.5622, Adjusted R-squared:  0.5447 
## F-statistic:  32.1 on 2 and 50 DF,  p-value: 0.000000001078
summary(AUT_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$I_dl ~ AUT$PS_dl + AUT$Y_l + AUT$r)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15851 -0.02039  0.00302  0.03149  0.11126 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)  0.217297   0.106597   2.038  0.04692 * 
## PS_dl        0.505212   0.182615   2.767  0.00797 **
## Y_l         -0.034249   0.018937  -1.809  0.07665 . 
## r           -0.003452   0.003808  -0.907  0.36905   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04717 on 49 degrees of freedom
## Multiple R-squared:  0.1728, Adjusted R-squared:  0.1221 
## F-statistic: 3.412 on 3 and 49 DF,  p-value: 0.02455
summary(AUT_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$P_dl ~ L(AUT$ulc_dl) + AUT$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0187229 -0.0055944 -0.0002332  0.0026792  0.0272932 
## 
## Coefficients:
##             Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) 0.012468   0.001884   6.619 0.0000000237124256 ***
## L(ulc_dl)   0.545344   0.053424  10.208 0.0000000000000801 ***
## Pm_dl       0.195118   0.043948   4.440 0.0000497787928314 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.009397 on 50 degrees of freedom
## Multiple R-squared:  0.7854, Adjusted R-squared:  0.7768 
## F-statistic: 91.47 on 2 and 50 DF,  p-value: < 0.00000000000000022
summary(AUT_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$Px_dl ~ AUT$ulc_dl + AUT$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0124095 -0.0047439 -0.0002527  0.0032038  0.0295126 
## 
## Coefficients:
##             Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) 0.001289   0.001548   0.833              0.4089    
## ulc_dl      0.170625   0.043900   3.887              0.0003 ***
## Pm_dl       0.615251   0.036114  17.037 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.007722 on 50 degrees of freedom
## Multiple R-squared:  0.8917, Adjusted R-squared:  0.8873 
## F-statistic: 205.8 on 2 and 50 DF,  p-value: < 0.00000000000000022
summary(AUT_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$X_dl ~ AUT$dPxdPm + AUT$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.079120 -0.017154  0.001561  0.018083  0.098114 
## 
## Coefficients:
##              Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) -0.009697   0.008395  -1.155           0.254    
## dPxdPm      -1.600813   0.315391  -5.076 0.0000057211277 ***
## Yrw_dl       2.066471   0.252433   8.186 0.0000000000858 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03113 on 50 degrees of freedom
## Multiple R-squared:  0.6437, Adjusted R-squared:  0.6295 
## F-statistic: 45.18 on 2 and 50 DF,  p-value: 0.000000000006221
summary(AUT_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 53
## 
## Call:
## dynlm(formula = AUT$M_dl ~ AUT$dPdPm + AUT$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.115031 -0.018517  0.008133  0.023803  0.113471 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)   
## (Intercept)  0.26667    0.09276   2.875  0.00592 **
## dPdPm       -0.76446    0.24645  -3.102  0.00316 **
## Y_l         -0.03953    0.01716  -2.304  0.02543 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04612 on 50 degrees of freedom
## Multiple R-squared:  0.2179, Adjusted R-squared:  0.1867 
## F-statistic: 6.967 on 2 and 50 DF,  p-value: 0.002143

Belgium analyse

Test for NA værdier

BEL_df[!complete.cases(BEL_df),]
##             WS       WS_l         WS_dl        PS       PS_l        PS_dl
## 1960 0.6212052 -0.4760938            NA 0.3787948 -0.9707607           NA
## 1961 0.6135419 -0.4885067 -0.0124129259 0.3864581 -0.9507319  0.020028857
## 1962 0.6240937 -0.4714547  0.0170519969 0.3759063 -0.9784155 -0.027683608
## 1963 0.6282495 -0.4648179  0.0066368230 0.3717505 -0.9895324 -0.011116914
## 1964 0.6205555 -0.4771403 -0.0123224307 0.3794445 -0.9690468  0.020485567
## 1965 0.6211624 -0.4761626  0.0009776666 0.3788376 -0.9706478 -0.001600969
## 1966 0.6346938 -0.4546127  0.0215499604 0.3653062 -1.0070192 -0.036371448
## 1967 0.6380041 -0.4494105  0.0052021341 0.3619959 -1.0161224 -0.009103199
## 1968 0.6299497 -0.4621153 -0.0127047074 0.3700503 -0.9941164  0.022006012
## 1969 0.6240429 -0.4715362 -0.0094209289 0.3759571 -0.9782802  0.015836217
## 1970 0.6199834 -0.4780626 -0.0065263901 0.3800166 -0.9675404  0.010739858
## 2019 0.6583165 -0.4180695  0.0012966426 0.3416835 -1.0738703 -0.002493491
## 2020 0.6750069 -0.3930323  0.0250372249 0.3249931 -1.1239515 -0.050081179
## 2021 0.6414967 -0.4439513 -0.0509189916 0.3585033 -1.0258173  0.098134143
## 2022        NA         NA            NA        NA         NA           NA
##             Y      Y_l        Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960  96.4997 4.569540          NA  8905925782011 29.81774         NA
## 1961 101.2996 4.618082  0.04854256  9326084571798 29.86384 0.04609839
## 1962 106.5484 4.668599  0.05051688  9875202733993 29.92105 0.05721157
## 1963 111.2409 4.711698  0.04309878 10416773644065 29.97444 0.05339052
## 1964 118.9695 4.778867  0.06716904 11097262723159 30.03772 0.06328112
## 1965 123.2359 4.814100  0.03523325 11711435418830 30.09159 0.05386727
## 1966 127.0648 4.844697  0.03059679 12424345134348 30.15068 0.05909211
## 1967 131.9807 4.882656  0.03795851 13002148889086 30.19614 0.04545678
## 1968 137.4872 4.923531  0.04087512 13818632625523 30.25704 0.06090323
## 1969 146.5932 4.987661  0.06413058 14618587242839 30.31331 0.05627595
## 1970 155.6703 5.047740  0.06007891 14996847331008 30.33886 0.02554618
## 2019 443.5705 6.094857  0.01355858             NA       NA         NA
## 2020 411.8215 6.020590 -0.07426675             NA       NA         NA
## 2021 439.3720 6.085346  0.06475643             NA       NA         NA
## 2022       NA       NA          NA             NA       NA         NA
##           Tax        Yf     Yf_l       Yf_dl        C      C_l        C_dl
## 1960  1.71361  94.78609 4.551623          NA  55.3789 4.014199          NA
## 1961  1.94115  99.35845 4.598734  0.04711135  56.2882 4.030485  0.01628627
## 1962  2.07858 104.46982 4.648898  0.05016421  58.4799 4.068683  0.03819818
## 1963  2.26234 108.97856 4.691151  0.04225294  61.1270 4.112954  0.04427056
## 1964  2.51455 116.45495 4.757505  0.06635334  62.7238 4.138741  0.02578729
## 1965  2.73445 120.50145 4.791662  0.03415728  65.4128 4.180718  0.04197700
## 1966  3.17925 123.88555 4.819358  0.02769637  67.1091 4.206320  0.02560170
## 1967  3.49922 128.48148 4.855785  0.03642661  69.0097 4.234247  0.02792742
## 1968  3.72255 133.76465 4.896082  0.04029714  72.6671 4.285889  0.05164166
## 1969  4.09323 142.49997 4.959342  0.06325988  76.5405 4.337820  0.05193128
## 1970  4.42864 151.24166 5.018879  0.05953717  79.8949 4.380712  0.04289201
## 2019 65.42420 378.14630 5.935281  0.01221591 227.7541 5.428267  0.01121281
## 2020 60.75621 351.06529 5.860972 -0.07430894 212.0391 5.356771 -0.07149585
## 2021 66.43743 372.93457 5.921403  0.06043077 225.8216 5.419745  0.06297462
## 2022       NA        NA       NA          NA       NA       NA          NA
##              W      W_l        W_dl         R      R_l         R_dl
## 1960  58.88161 4.075529          NA  35.90448 3.580862           NA
## 1961  60.96057 4.110227  0.03469842  38.39788 3.648002  0.067140207
## 1962  65.19896 4.177444  0.06721620  39.27086 3.670483  0.022480599
## 1963  68.46573 4.226333  0.04888976  40.51283 3.701619  0.031136026
## 1964  72.26675 4.280364  0.05403091  44.18820 3.788458  0.086838904
## 1965  74.85098 4.315499  0.03513495  45.65047 3.821014  0.032556314
## 1966  78.62938 4.364745  0.04924633  45.25617 3.812339 -0.008675078
## 1967  81.97171 4.406374  0.04162875  46.50977 3.839662  0.027323415
## 1968  84.26501 4.433967  0.02759244  49.49964 3.901965  0.062303155
## 1969  88.92609 4.487806  0.05383895  53.57388 3.981062  0.079096094
## 1970  93.76732 4.540816  0.05301078  57.47434 4.051339  0.070277023
## 2019 248.93993 5.517212  0.01351255 129.20637 4.861411  0.009722417
## 2020 236.97151 5.467940 -0.04927172 114.09378 4.737021 -0.124390120
## 2021 239.23628 5.477452  0.00951178 133.69829 4.895586  0.158564914
## 2022        NA       NA          NA        NA       NA           NA
##            It     It_l        It_dl   Itcurr Itcurr_l    Itcurr_dl
## 1960  22.3550 3.107050           NA   3.4342 1.233784           NA
## 1961  25.1188 3.223617  0.116566560   3.8995 1.360848  0.127064338
## 1962  26.5958 3.280753  0.057136739   4.2960 1.457684  0.096836017
## 1963  26.6352 3.282234  0.001480341   4.4868 1.501140  0.043455396
## 1964  30.5413 3.419080  0.136846217   5.4340 1.692676  0.191535758
## 1965  31.8007 3.459488  0.040408436   5.9130 1.777153  0.084477806
## 1966  33.9714 3.525519  0.066030692   6.5129 1.873785  0.096631509
## 1967  34.9587 3.554167  0.028648371   6.9757 1.942433  0.068647856
## 1968  34.5189 3.541507 -0.012660365   7.0018 1.946167  0.003734578
## 1969  36.3598 3.593464  0.051956769   7.6913 2.040090  0.093922561
## 1970  39.4243 3.674382  0.080918609   9.1218 2.210667  0.170577333
## 2019 107.7620 4.679925  0.030058825 113.8525 4.734904  0.038372993
## 2020  91.2744 4.513870 -0.166054738  97.0117 4.574832 -0.160072161
## 2021 105.7870 4.661428  0.147557285 114.0106 4.736291  0.161459837
## 2022       NA       NA           NA       NA       NA           NA
##           Ipr    Ipr_l     Ipr_dl       Ips      Ips_l       Ips_dl
## 1960       NA       NA         NA        NA         NA           NA
## 1961       NA       NA         NA        NA         NA           NA
## 1962       NA       NA         NA        NA         NA           NA
## 1963       NA       NA         NA        NA         NA           NA
## 1964       NA       NA         NA        NA         NA           NA
## 1965       NA       NA         NA        NA         NA           NA
## 1966       NA       NA         NA        NA         NA           NA
## 1967       NA       NA         NA        NA         NA           NA
## 1968       NA       NA         NA        NA         NA           NA
## 1969       NA       NA         NA        NA         NA           NA
## 1970   7.5400 2.020222         NA 0.8265912 -0.1904450           NA
## 2019 101.6322 4.621360  0.0425609 0.8926655 -0.1135433  0.004187905
## 2020  86.3972 4.458955 -0.1624051 0.8905854 -0.1158763 -0.002332985
## 2021 102.6632 4.631454  0.1724985 0.9004707 -0.1048377  0.011038623
## 2022       NA       NA         NA        NA         NA           NA
##             I      I_l        I_dl          r      r_l        r_dl
## 1960       NA       NA          NA         NA       NA          NA
## 1961       NA       NA          NA  4.6517693 2.224314          NA
## 1962       NA       NA          NA  3.4856113 2.089513 -0.13480094
## 1963       NA       NA          NA  1.9076810 1.872271 -0.21724189
## 1964       NA       NA          NA  0.9039877 1.704631 -0.16764017
## 1965       NA       NA          NA  1.1656022 1.751106  0.04647495
## 1966       NA       NA          NA  2.4146608 1.947342  0.19623587
## 1967       NA       NA          NA  3.3793348 2.076275  0.12893255
## 1968       NA       NA          NA  3.8073311 2.128553  0.05227859
## 1969       NA       NA          NA  3.1334510 2.044956 -0.08359689
## 1970 32.58778 3.483937          NA  2.9568951 2.021847 -0.02310880
## 2019 96.19542 4.566382  0.03424673 -1.4054068 1.160009 -0.19144611
## 2020 81.28764 4.397994 -0.16838772         NA       NA          NA
## 2021 95.25809 4.556590  0.15859591         NA       NA          NA
## 2022       NA       NA          NA         NA       NA          NA
##              P      P_l       P_dl        Pm     Pm_l        Pm_dl
## 1960  15.50931 2.741441         NA  21.66098 3.075513           NA
## 1961  15.68985 2.753014 0.01157357  22.21991 3.100989  0.025476086
## 1962  15.94674 2.769255 0.01624059  22.39538 3.108855  0.007866034
## 1963  16.43064 2.799148 0.02989303  23.29908 3.148414  0.039559054
## 1964  17.19531 2.844637 0.04548892  24.04499 3.179927  0.031512701
## 1965  18.09181 2.895459 0.05082265  24.08592 3.181627  0.001700924
## 1966  18.83999 2.935982 0.04052257  24.85060 3.212882  0.031254325
## 1967  19.44151 2.967410 0.03142861  24.97872 3.218024  0.005142494
## 1968  19.95517 2.993488 0.02607777  25.11753 3.223566  0.005541543
## 1969  20.75942 3.033000 0.03951165  25.90909 3.254594  0.031028073
## 1970  21.73594 3.078967 0.04596725  27.23463 3.304489  0.049895362
## 2019 106.77872 4.670759 0.01605196 104.67686 4.650878  0.003755050
## 2020 108.31267 4.685022 0.01426345 100.70314 4.612177 -0.038701124
## 2021 110.00056 4.700485 0.01546333 102.27088 4.627625  0.015447956
## 2022        NA       NA         NA        NA       NA           NA
##             Px     Px_l        Px_dl        X      X_l        X_dl
## 1960  22.97140 3.134250           NA  21.4965 3.067890          NA
## 1961  23.09894 3.139787  0.005536814  23.4667 3.155582  0.08769226
## 1962  23.33423 3.149921  0.010134846  25.8419 3.251997  0.09641481
## 1963  23.82787 3.170856  0.020934299  27.9709 3.331165  0.07916748
## 1964  24.82934 3.212026  0.041170355  30.6083 3.421271  0.09010653
## 1965  25.16937 3.225628  0.013601680  32.4672 3.480230  0.05895913
## 1966  26.10236 3.262026  0.036398099  34.9617 3.554253  0.07402283
## 1967  26.22989 3.266900  0.004873631  36.4551 3.596081  0.04182819
## 1968  26.27249 3.268522  0.001622761  40.9038 3.711223  0.11514160
## 1969  27.48472 3.313630  0.045107901  47.1716 3.853792  0.14256905
## 1970  29.06059 3.369383  0.055752712  51.5249 3.942065  0.08827317
## 2019 103.93454 4.643761  0.007297120 371.7032 5.918096  0.01000922
## 2020 100.57782 4.610932 -0.032829492 332.4216 5.806404 -0.11169164
## 2021 102.34507 4.628350  0.017418373 358.0600 5.880701  0.07429653
## 2022        NA       NA           NA       NA       NA          NA
##             M      M_l        M_dl      rulc     rulc_l        rulc_dl
## 1960  23.2025 3.144260          NA 0.6101741 -0.4940110             NA
## 1961  24.8725 3.213763  0.06950274 0.6017849 -0.5078551 -0.01384413923
## 1962  26.9136 3.292632  0.07886896 0.6119187 -0.4911558  0.01669932510
## 1963  29.2414 3.375586  0.08295378 0.6154726 -0.4853648  0.00579098482
## 1964  31.8307 3.460431  0.08484572 0.6074393 -0.4985030 -0.01313813118
## 1965  33.9224 3.524076  0.06364433 0.6073796 -0.4986013 -0.00009829732
## 1966  37.2877 3.618664  0.09458795 0.6188133 -0.4799517  0.01864954202
## 1967  37.8781 3.634373  0.01570960 0.6210886 -0.4762815  0.00367024076
## 1968  42.3145 3.745130  0.11075671 0.6128935 -0.4895642 -0.01328268646
## 1969  48.8679 3.889121  0.14399092 0.6066181 -0.4998558 -0.01029163403
## 1970  52.2922 3.956847  0.06772648 0.6023456 -0.5069239 -0.00706812988
## 2019 369.0507 5.910934  0.01153242 0.5612184 -0.5776451 -0.00004603395
## 2020 331.4305 5.803418 -0.10751590 0.5754229 -0.5526501  0.02499503360
## 2021 358.3233 5.881436  0.07801752 0.5444960 -0.6078947 -0.05524465209
## 2022       NA       NA          NA        NA         NA             NA
##            ulc    ulc_l       ulc_dl      Tau    Tau_l       Tau_dl
## 1960  9.463379 2.247430           NA 45.85431 3.825469           NA
## 1961  9.441916 2.245159 -0.002270565 47.42684 3.859188  0.033719193
## 1962  9.758112 2.278099  0.032939912 48.90926 3.889967  0.030778291
## 1963 10.112607 2.313783  0.035684015 50.47547 3.921488  0.031520876
## 1964 10.445108 2.346134  0.032350791 53.02166 3.970701  0.049212995
## 1965 10.988596 2.396858  0.050724353 54.16891 3.992107  0.021406640
## 1966 11.658437 2.456030  0.059172113 54.94292 4.006295  0.014187716
## 1967 12.074901 2.491129  0.035098851 56.32732 4.031180  0.024884705
## 1968 12.230393 2.503924  0.012795080 57.99713 4.060393  0.029213883
## 1969 12.593038 2.533144  0.029220021 60.49891 4.102625  0.042231817
## 1970 13.092548 2.572043  0.038899125 62.73998 4.138999  0.036373539
## 2019 59.926183 4.093114  0.016005925 99.83622 4.603531 -0.003685562
## 2020 62.325585 4.132372  0.039258485 93.09728 4.533645 -0.069886044
## 2021 59.894860 4.092591 -0.039781325 98.00005 4.584968  0.051322928
## 2022        NA       NA           NA       NA       NA           NA
##             dPxdPm          dPdPm     Trade
## 1960            NA             NA 0.4632035
## 1961 -0.0199392722 -0.01390251147 0.4771904
## 1962  0.0022688126  0.00837455315 0.4951318
## 1963 -0.0186247546 -0.00966602333 0.5143099
## 1964  0.0096576535  0.01397622125 0.5248320
## 1965  0.0119007561  0.04912172666 0.5387196
## 1966  0.0051437731  0.00926824551 0.5686028
## 1967 -0.0002688624  0.02628611616 0.5632127
## 1968 -0.0039187818  0.02053622322 0.6052803
## 1969  0.0140798275  0.00848358192 0.6551429
## 1970  0.0058573494 -0.00392810762 0.6669037
## 2019  0.0035420703  0.01229690842 1.6699801
## 2020  0.0058716325  0.05296457609 1.6119899
## 2021  0.0019704168  0.00001537128 1.6304710
## 2022            NA             NA        NA
BEL <- BEL_df[12:59,]
BEL[!complete.cases(BEL),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
BEL %>% head()
##             WS       WS_l       WS_dl        PS      PS_l       PS_dl
## 1971 0.6428991 -0.4417675 0.036295058 0.3571009 -1.029737 -0.06219651
## 1972 0.6535566 -0.4253262 0.016441306 0.3464434 -1.060036 -0.03029884
## 1973 0.6579850 -0.4185732 0.006753017 0.3420150 -1.072901 -0.01286490
## 1974 0.6809531 -0.3842619 0.034311307 0.3190469 -1.142417 -0.06951649
## 1975 0.7002464 -0.3563230 0.027938841 0.2997536 -1.204794 -0.06237731
## 1976 0.7106544 -0.3415691 0.014753938 0.2893456 -1.240133 -0.03533892
##             Y      Y_l        Y_dl            Yrw    Yrw_l        Yrw_dl
## 1971 161.5126 5.084583  0.03684285 15590529697161 30.37768  0.0388236581
## 1972 170.0011 5.135805  0.05122175 16464037227845 30.43220  0.0545147810
## 1973 180.4091 5.195227  0.05942214 17506281338848 30.49358  0.0613813099
## 1974 187.9857 5.236366  0.04113885 17710067245613 30.50515  0.0115734987
## 1975 185.4911 5.223007 -0.01335899 17697175885619 30.50443 -0.0007281765
## 1976 195.9764 5.277994  0.05498734 18575157786378 30.55285  0.0484200128
##          Tax       Yf     Yf_l       Yf_dl        C      C_l        C_dl
## 1971 4.86828 156.6443 5.053978  0.03509880  83.8251 4.428732 0.048020464
## 1972 5.05673 164.9444 5.105608  0.05163051  88.7871 4.486241 0.057508884
## 1973 5.67673 174.7324 5.163255  0.05764722  96.0232 4.564590 0.078348460
## 1974 6.58380 181.4019 5.200715  0.03745952  98.7161 4.592248 0.027658225
## 1975 7.16433 178.3268 5.183618 -0.01709736  99.5608 4.600769 0.008520459
## 1976 8.51714 187.4593 5.233562  0.04994389 104.6226 4.650360 0.049591077
##             W      W_l       W_dl        R      R_l        R_dl      It
## 1971 100.7065 4.612210 0.07139386 55.93783 4.024241 -0.02709771 38.6750
## 1972 107.8005 4.680282 0.06807181 57.14390 4.045573  0.02133167 39.9879
## 1973 114.9713 4.744682 0.06440024 59.76110 4.090355  0.04478232 42.7964
## 1974 123.5262 4.816453 0.07177083 57.87572 4.058298 -0.03205697 45.7657
## 1975 124.8727 4.827295 0.01084148 53.45410 3.978823 -0.07947467 44.9111
## 1976 133.2187 4.891992 0.06469783 54.24052 3.993428  0.01460497 46.7046
##          It_l       It_dl  Itcurr Itcurr_l  Itcurr_dl     Ipr    Ipr_l
## 1971 3.655193 -0.01918898  9.6047 2.262253 0.05158541  7.6092 2.029358
## 1972 3.688577  0.03338351 10.2366 2.325970 0.06371697  8.0125 2.081003
## 1973 3.756454  0.06787708 11.6323 2.453786 0.12781618  9.4573 2.246787
## 1974 3.823535  0.06708092 14.3056 2.660651 0.20686536 11.9609 2.481643
## 1975 3.804685 -0.01884992 15.8638 2.764040 0.10338871 12.9363 2.560037
## 1976 3.843843  0.03915768 17.5083 2.862675 0.09863527 14.1623 2.650584
##           Ipr_dl       Ips      Ips_l       Ips_dl        I      I_l
## 1971 0.009135859 0.7922371 -0.2328945 -0.042449549 30.63977 3.422299
## 1972 0.051644781 0.7827306 -0.2449667 -0.012072190 31.29975 3.443610
## 1973 0.165784108 0.8130206 -0.2069988  0.037967930 34.79436 3.549455
## 1974 0.234856066 0.8360991 -0.1790081  0.027990709 38.26466 3.644527
## 1975 0.078394317 0.8154604 -0.2040025 -0.024994398 36.62322 3.600683
## 1976 0.090546191 0.8088906 -0.2120915 -0.008089079 37.77891 3.631751
##             I_dl          r       r_l        r_dl        P      P_l
## 1971 -0.06163853  2.3310893 1.9353486 -0.08649878 22.79563 3.126569
## 1972  0.02131132  1.5018693 1.8078360 -0.12751268 24.03940 3.179694
## 1973  0.10584501  0.4024518 1.6090020 -0.19883395 25.73877 3.247998
## 1974  0.09507162 -2.7741198 0.5995227 -1.00947927 28.79486 3.360197
## 1975 -0.04384432 -3.5953692 0.0000000 -0.59952275 32.41357 3.478577
## 1976  0.03106860  1.4054382 1.7918940  1.79189403 34.86989 3.551624
##            P_dl       Pm     Pm_l      Pm_dl       Px     Px_l      Px_dl
## 1971 0.04760150 28.05853 3.334293 0.02980353 29.65487 3.389626 0.02024359
## 1972 0.05312538 28.10951 3.336108 0.00181504 30.18331 3.407289 0.01766277
## 1973 0.06830422 30.18126 3.407221 0.07111326 32.71765 3.487915 0.08062542
## 1974 0.11219863 38.44284 3.649173 0.24195148 40.71010 3.706476 0.21856164
## 1975 0.11838025 41.01214 3.713868 0.06469561 42.58799 3.751572 0.04509592
## 1976 0.07304651 43.68639 3.777037 0.06316831 45.37096 3.814872 0.06330011
##            X      X_l        X_dl       M      M_l        M_dl      rulc
## 1971 53.8461 3.986130  0.04406479 54.1980 3.992644  0.03579679 0.6235210
## 1972 59.7996 4.090999  0.10486899 59.3842 4.084028  0.09138419 0.6341163
## 1973 68.2452 4.223107  0.13210813 70.4217 4.254501  0.17047326 0.6372809
## 1974 70.7740 4.259492  0.03638460 73.5318 4.297718  0.04321651 0.6571041
## 1975 64.9101 4.173003 -0.08648847 66.8533 4.202501 -0.09521730 0.6732004
## 1976 73.2621 4.294043  0.12104019 75.1335 4.319267  0.11676586 0.6797693
##          rulc_l     rulc_dl      ulc    ulc_l     ulc_dl      Tau    Tau_l
## 1971 -0.4723729 0.034551012 14.21355 2.654196 0.08215251 63.97218 4.158448
## 1972 -0.4555228 0.016850065 15.24377 2.724171 0.06997545 66.58298 4.198449
## 1973 -0.4505448 0.004978098 16.40282 2.797454 0.07328232 69.31438 4.238652
## 1974 -0.4199128 0.030631984 18.92122 2.940284 0.14283061 70.45426 4.254964
## 1975 -0.3957123 0.024200477 21.82083 3.082865 0.14258073 69.10254 4.235591
## 1976 -0.3860018 0.009710484 23.70348 3.165622 0.08275699 72.13399 4.278525
##           Tau_dl       dPxdPm        dPdPm     Trade
## 1971  0.01944951 -0.009559934  0.017797970 0.6689515
## 1972  0.04000066  0.015847726  0.051310341 0.7010766
## 1973  0.04020336  0.009512154 -0.002809041 0.7686248
## 1974  0.01631129 -0.023389841 -0.129752852 0.7676424
## 1975 -0.01937216 -0.019599692  0.053684638 0.7103489
## 1976  0.04293381  0.000131800  0.009878196 0.7572116

DATA

BEL %>% head(100)
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1971 0.6428991 -0.4417675  0.036295058 0.3571009 -1.029737 -0.062196508
## 1972 0.6535566 -0.4253262  0.016441306 0.3464434 -1.060036 -0.030298835
## 1973 0.6579850 -0.4185732  0.006753017 0.3420150 -1.072901 -0.012864901
## 1974 0.6809531 -0.3842619  0.034311307 0.3190469 -1.142417 -0.069516488
## 1975 0.7002464 -0.3563230  0.027938841 0.2997536 -1.204794 -0.062377308
## 1976 0.7106544 -0.3415691  0.014753938 0.2893456 -1.240133 -0.035338917
## 1977 0.7143841 -0.3363346  0.005234546 0.2856159 -1.253107 -0.012973939
## 1978 0.7151266 -0.3352956  0.001038912 0.2848734 -1.255711 -0.002603268
## 1979 0.7121759 -0.3394303 -0.004134661 0.2878241 -1.245406  0.010304667
## 1980 0.7239124 -0.3230848  0.016345483 0.2760876 -1.287037 -0.041631392
## 1981 0.7264782 -0.3195467  0.003538085 0.2735218 -1.296374 -0.009336882
## 1982 0.7146444 -0.3359702 -0.016423479 0.2853556 -1.254019  0.042355006
## 1983 0.7076543 -0.3457996 -0.009829349 0.2923457 -1.229818  0.024200812
## 1984 0.6996528 -0.3571711 -0.011371493 0.3003472 -1.202816  0.027002150
## 1985 0.6941819 -0.3650212 -0.007850147 0.3058181 -1.184765  0.018051264
## 1986 0.6897413 -0.3714387 -0.006417542 0.3102587 -1.170349  0.014416234
## 1987 0.6870513 -0.3753463 -0.003907561 0.3129487 -1.161716  0.008632643
## 1988 0.6681307 -0.4032714 -0.027925105 0.3318693 -1.103014  0.058701851
## 1989 0.6646852 -0.4084417 -0.005170260 0.3353148 -1.092686  0.010328562
## 1990 0.6755278 -0.3922610  0.016180719 0.3244722 -1.125555 -0.032869838
## 1991 0.6937668 -0.3656194  0.026641507 0.3062332 -1.183408 -0.057852820
## 1992 0.6961375 -0.3622081  0.003411376 0.3038625 -1.191180 -0.007771741
## 1993 0.7050115 -0.3495411  0.012666938 0.2949885 -1.220819 -0.029638975
## 1994 0.6990651 -0.3580115 -0.008470341 0.3009349 -1.200861  0.019957817
## 1995 0.6903559 -0.3705480 -0.012536570 0.3096441 -1.172332  0.028529516
## 1996 0.6954331 -0.3632204  0.007327610 0.3045669 -1.188865 -0.016532930
## 1997 0.6935662 -0.3659087 -0.002688220 0.3064338 -1.182753  0.006111197
## 1998 0.6890175 -0.3724887 -0.006580005 0.3109825 -1.168019  0.014734851
## 1999 0.6958478 -0.3626244  0.009864305 0.3041522 -1.190227 -0.022208440
## 2000 0.6840224 -0.3797646 -0.017140201 0.3159776 -1.152084  0.038142889
## 2001 0.6939460 -0.3653611  0.014403481 0.3060540 -1.183994 -0.031909772
## 2002 0.7008853 -0.3554110  0.009950072 0.2991147 -1.206928 -0.022934378
## 2003 0.6935800 -0.3658887 -0.010477690 0.3064200 -1.182799  0.024129668
## 2004 0.6768285 -0.3903374 -0.024448733 0.3231715 -1.129572  0.053226559
## 2005 0.6655815 -0.4070942 -0.016756728 0.3344185 -1.095362  0.034209865
## 2006 0.6625832 -0.4116091 -0.004514957 0.3374168 -1.086436  0.008925753
## 2007 0.6575735 -0.4191987 -0.007589619 0.3424265 -1.071698  0.014738131
## 2008 0.6763204 -0.3910883  0.028110382 0.3236796 -1.128001 -0.056302896
## 2009 0.6912433 -0.3692634  0.021824926 0.3087567 -1.175202 -0.047200537
## 2010 0.6721368 -0.3972934 -0.028029962 0.3278632 -1.115159  0.060042844
## 2011 0.6778317 -0.3888562  0.008437198 0.3221683 -1.132681 -0.017522499
## 2012 0.6861385 -0.3766758  0.012180429 0.3138615 -1.158804 -0.026122179
## 2013 0.6879765 -0.3740006  0.002675155 0.3120235 -1.164677 -0.005873249
## 2014 0.6788845 -0.3873043 -0.013303654 0.3211155 -1.135954  0.028722332
## 2015 0.6626401 -0.4115232 -0.024218974 0.3373599 -1.086605  0.049349387
## 2016 0.6564525 -0.4209049 -0.009381696 0.3435475 -1.068430  0.018175125
## 2017 0.6552944 -0.4226707 -0.001765742 0.3447056 -1.065065  0.003365344
## 2018 0.6574634 -0.4193662  0.003304495 0.3425366 -1.071377 -0.006312203
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1971 161.5126 5.084583  0.036842849 15590529697161 30.37768  0.0388236581
## 1972 170.0011 5.135805  0.051221749 16464037227845 30.43220  0.0545147810
## 1973 180.4091 5.195227  0.059422142 17506281338848 30.49358  0.0613813099
## 1974 187.9857 5.236366  0.041138846 17710067245613 30.50515  0.0115734987
## 1975 185.4911 5.223007 -0.013358994 17697175885619 30.50443 -0.0007281765
## 1976 195.9764 5.277994  0.054987341 18575157786378 30.55285  0.0484200128
## 1977 197.2036 5.284237  0.006242454 19302957928011 30.59128  0.0384332596
## 1978 202.8079 5.312259  0.028022528 20100133624249 30.63175  0.0404681183
## 1979 207.5558 5.335400  0.023140994 20936264031741 30.67250  0.0407563135
## 1980 216.7797 5.378882  0.043481411 21241474614448 30.68698  0.0144728437
## 1981 216.1742 5.376085 -0.002797066 21667525316148 30.70684  0.0198589902
## 1982 217.4605 5.382017  0.005932661 21653315319741 30.70618 -0.0006560351
## 1983 218.1386 5.385131  0.003113416 22244998198481 30.73314  0.0269586080
## 1984 223.5187 5.409495  0.024364439 23261571316609 30.77782  0.0446855160
## 1985 227.2108 5.425878  0.016383141 24099945677419 30.81323  0.0354068872
## 1986 231.3523 5.443942  0.018063436 24883743135981 30.84524  0.0320051177
## 1987 236.6888 5.466746  0.022804541 25756568471503 30.87971  0.0344749767
## 1988 247.8681 5.512897  0.046150552 26998035087089 30.92679  0.0470744080
## 1989 256.4671 5.547000  0.034103641 28051527184585 30.96506  0.0382789868
## 1990 264.5135 5.577892  0.030891898 28935273724605 30.99608  0.0310183194
## 1991 269.3622 5.596057  0.018164653 29375150816973 31.01117  0.0150877117
## 1992 273.4852 5.611248  0.015190565 29985738832736 31.03174  0.0205727897
## 1993 270.8546 5.601582 -0.009665362 30353049635589 31.04392  0.0121750983
## 1994 279.5950 5.633342  0.031759982 31319706175852 31.07527  0.0313504950
## 1995 286.2627 5.656910  0.023567793 32235436767527 31.10409  0.0288188784
## 1996 290.0456 5.670038  0.013128231 33195801582996 31.13344  0.0293570414
## 1997 301.0489 5.707273  0.037234558 34304971785394 31.16631  0.0328668841
## 1998 306.9550 5.726701  0.019428447 35242407143289 31.19327  0.0269598122
## 1999 317.8296 5.761515  0.034814233 36390281916775 31.22532  0.0320516528
## 2000 329.6423 5.798008  0.036492737 37858173483017 31.26487  0.0395451420
## 2001 333.2671 5.808944  0.010936143 38428352969215 31.27982  0.0149486451
## 2002 338.9556 5.825869  0.016924855 39010815428305 31.29486  0.0150433806
## 2003 342.4738 5.836195  0.010326033 39869256421739 31.31663  0.0217665848
## 2004 354.7042 5.871284  0.035089044 41189663570467 31.34921  0.0325818295
## 2005 362.9395 5.894236  0.022951951 42370214120600 31.37747  0.0282582775
## 2006 372.2030 5.919439  0.025203251 43699690297306 31.40836  0.0308953968
## 2007 385.8886 5.955549  0.036109322 44914624271646 31.43578  0.0274224343
## 2008 387.6132 5.960008  0.004459208 45086492054671 31.43960  0.0038192413
## 2009 379.7806 5.939594 -0.020414218 43583863418488 31.40571 -0.0338957139
## 2010 390.6586 5.967834  0.028240315 44875700731254 31.43492  0.0292094851
## 2011 397.2783 5.984637  0.016803010 45710585144001 31.45335  0.0184334316
## 2012 400.2151 5.992002  0.007365110 46299142632659 31.46614  0.0127935498
## 2013 402.0530 5.996584  0.004581768 46970604023819 31.48054  0.0143985165
## 2014 408.3995 6.012246  0.015661941 47924491758892 31.50065  0.0201047242
## 2015 416.7014 6.032370  0.020124036 49042799036426 31.52371  0.0230666826
## 2016 422.9982 6.047368  0.014998026 49884173941136 31.54072  0.0170104304
## 2017 431.3067 6.066819  0.019451514 51034658520172 31.56353  0.0228011838
## 2018 437.5969 6.081298  0.014478729 52180887422109 31.58574  0.0222113058
##           Tax       Yf     Yf_l         Yf_dl        C      C_l
## 1971  4.86828 156.6443 5.053978  0.0350988027  83.8251 4.428732
## 1972  5.05673 164.9444 5.105608  0.0516305080  88.7871 4.486241
## 1973  5.67673 174.7324 5.163255  0.0576472235  96.0232 4.564590
## 1974  6.58380 181.4019 5.200715  0.0374595227  98.7161 4.592248
## 1975  7.16433 178.3268 5.183618 -0.0170973579  99.5608 4.600769
## 1976  8.51714 187.4593 5.233562  0.0499438880 104.6226 4.650360
## 1977  9.56011 187.6435 5.234544  0.0009822909 107.3755 4.676332
## 1978 10.15023 192.6577 5.260915  0.0263710507 110.0559 4.700988
## 1979 11.16062 196.3952 5.280129  0.0192139705 115.7034 4.751030
## 1980 11.32029 205.4594 5.325248  0.0451196423 118.4310 4.774331
## 1981 12.06269 204.1115 5.318666 -0.0065820340 118.9259 4.778501
## 1982 13.21896 204.2415 5.319303  0.0006368509 121.8260 4.802594
## 1983 14.31058 203.8280 5.317277 -0.0020267140 121.6430 4.801091
## 1984 15.02211 208.4966 5.339923  0.0226460871 122.0919 4.804774
## 1985 15.79718 211.4136 5.353816  0.0138938128 125.3987 4.831498
## 1986 16.16539 215.1869 5.371507  0.0176905003 128.8081 4.858324
## 1987 17.44546 219.2433 5.390182  0.0186752552 131.0434 4.875529
## 1988 18.46913 229.3990 5.435463  0.0452804602 135.3914 4.908170
## 1989 19.95574 236.5114 5.465996  0.0305335259 139.8698 4.940712
## 1990 21.36880 243.1447 5.493657  0.0276604988 144.3100 4.971964
## 1991 22.31214 247.0501 5.509591  0.0159342488 148.6686 5.001720
## 1992 23.29305 250.1922 5.522229  0.0126382345 151.5054 5.020621
## 1993 24.50667 246.3479 5.506745 -0.0154843364 150.8262 5.016128
## 1994 26.39246 253.2025 5.534190  0.0274448355 154.4384 5.039795
## 1995 26.83540 259.4273 5.558477  0.0242867874 156.8724 5.055433
## 1996 28.34290 261.7027 5.567209  0.0087326174 159.9523 5.074876
## 1997 29.99650 271.0524 5.602312  0.0351030335 162.4046 5.090091
## 1998 31.14700 275.8080 5.619705  0.0173928113 167.5025 5.120998
## 1999 33.10970 284.7199 5.651506  0.0318009185 171.0412 5.141904
## 2000 34.57120 295.0711 5.687216  0.0357104543 175.8592 5.169684
## 2001 34.65710 298.6100 5.699138  0.0119220299 177.5180 5.179072
## 2002 35.82510 303.1305 5.714163  0.0150250317 178.6037 5.185169
## 2003 37.33240 305.1414 5.720775  0.0066118699 179.8858 5.192322
## 2004 39.64430 315.0599 5.752763  0.0319875037 181.8001 5.202908
## 2005 41.64150 321.2980 5.772369  0.0196062619 184.4258 5.217247
## 2006 43.67500 328.5280 5.794622  0.0222530288 187.6991 5.234840
## 2007 45.82920 340.0594 5.829120  0.0344982380 191.6263 5.255547
## 2008 47.02650 340.5867 5.830670  0.0015494105 194.2611 5.269203
## 2009 46.12430 333.6563 5.810111 -0.0205582975 195.3966 5.275031
## 2010 49.14710 341.5115 5.833381  0.0232699322 201.2762 5.304678
## 2011 51.24070 346.0376 5.846547  0.0131660863 203.0181 5.313295
## 2012 53.99120 346.2239 5.847086  0.0005382359 205.9973 5.327863
## 2013 54.71590 347.3371 5.850296  0.0032101025 209.4359 5.344418
## 2014 55.55570 352.8438 5.866025  0.0157296880 210.5920 5.349923
## 2015 56.80830 359.8931 5.885807  0.0197815768 213.9301 5.365649
## 2016 59.87520 363.1230 5.894742  0.0089345769 217.9659 5.384339
## 2017 61.84810 369.4586 5.912039  0.0172970710 221.9596 5.402495
## 2018 64.04190 373.5550 5.923065  0.0110265586 225.2146 5.417054
##              C_dl        W      W_l          W_dl         R      R_l
## 1971  0.048020464 100.7065 4.612210  0.0713938607  55.93783 4.024241
## 1972  0.057508884 107.8005 4.680282  0.0680718142  57.14390 4.045573
## 1973  0.078348460 114.9713 4.744682  0.0644002401  59.76110 4.090355
## 1974  0.027658225 123.5262 4.816453  0.0717708298  57.87572 4.058298
## 1975  0.008520459 124.8727 4.827295  0.0108414832  53.45410 3.978823
## 1976  0.049591077 133.2187 4.891992  0.0646978258  54.24052 3.993428
## 1977  0.025972447 134.0495 4.898209  0.0062168368  53.59397 3.981437
## 1978  0.024656382 137.7746 4.925619  0.0274099629  54.88304 4.005204
## 1979  0.050041602 139.8679 4.940699  0.0150793093  56.52726 4.034723
## 1980  0.023300492 148.7346 5.002164  0.0614651256  56.72479 4.038211
## 1981  0.004170098 148.2826 4.999120 -0.0030439492  55.82894 4.022292
## 1982  0.024093187 145.9601 4.983333 -0.0157866285  58.28147 4.065284
## 1983 -0.001503272 144.2398 4.971477 -0.0118560632  59.58824 4.087458
## 1984  0.003683514 145.8752 4.982752  0.0112745945  62.62137 4.137107
## 1985  0.026724221 146.7595 4.988795  0.0060436653  64.65411 4.169052
## 1986  0.026825439 148.4233 5.000068  0.0112729588  66.76362 4.201158
## 1987  0.017204866 150.6314 5.014836  0.0147676942  68.61192 4.228466
## 1988  0.032641277 153.2685 5.032191  0.0173553550  76.13047 4.332449
## 1989  0.032542147 157.2056 5.057555  0.0253632657  79.30575 4.373311
## 1990  0.031251774 164.2510 5.101396  0.0438412181  78.89369 4.368101
## 1991  0.029755904 171.3951 5.143972  0.0425757562  75.65494 4.326183
## 1992  0.018901600 174.1681 5.160021  0.0160496109  76.02401 4.331049
## 1993 -0.004493087 173.6781 5.157204 -0.0028173988  72.66980 4.285926
## 1994  0.023667131 177.0050 5.176178  0.0189744947  76.19749 4.333329
## 1995  0.015637425 179.0972 5.187928  0.0117502179  80.33014 4.386145
## 1996  0.019442910 181.9967 5.203989  0.0160602275  79.70598 4.378345
## 1997  0.015215107 187.9928 5.236404  0.0324148130  83.05963 4.419559
## 1998  0.030907524 190.0365 5.247216  0.0108128066  85.77147 4.451686
## 1999  0.020906187 198.1217 5.288882  0.0416652233  86.59819 4.461279
## 2000  0.027779212 201.8353 5.307452  0.0185702531  93.23585 4.535132
## 2001  0.009388337 207.2192 5.333777  0.0263255112  91.39077 4.515145
## 2002  0.006097373 212.4597 5.358752  0.0249751037  90.67078 4.507235
## 2003  0.007152820 211.6400 5.354887 -0.0038658204  93.50143 4.537977
## 2004  0.010585527 213.2415 5.362425  0.0075387704 101.81839 4.623191
## 2005  0.014339483 213.8500 5.365275  0.0028495343 107.44799 4.677007
## 2006  0.017592934 217.6771 5.383013  0.0177380722 110.85086 4.708186
## 2007  0.020706973 223.6141 5.409922  0.0269086194 116.44535 4.757422
## 2008  0.013656009 230.3457 5.439581  0.0296597923 110.24097 4.702669
## 2009  0.005828209 230.6377 5.440848  0.0012666286 103.01862 4.634910
## 2010  0.029646755 229.5424 5.436088 -0.0047600294 111.96905 4.718223
## 2011  0.008617043 234.5553 5.457691  0.0216032840 111.48233 4.713866
## 2012  0.014567924 237.5576 5.470410  0.0127186653 108.66635 4.688282
## 2013  0.016554664 238.9598 5.476295  0.0058852572 108.37734 4.685619
## 2014  0.005504886 239.5402 5.478721  0.0024260338 113.30361 4.730071
## 2015  0.015726714 238.4796 5.474284 -0.0044373970 121.41349 4.799202
## 2016  0.018689302 238.3730 5.473837 -0.0004471196 124.75000 4.826312
## 2017  0.018156755 242.1042 5.489368  0.0155313290 127.35445 4.846974
## 2018  0.014558342 245.5987 5.503699  0.0143310539 127.95626 4.851688
##              R_dl       It     It_l          It_dl   Itcurr Itcurr_l
## 1971 -0.027097706  38.6750 3.655193 -0.01918898100   9.6047 2.262253
## 1972  0.021331673  39.9879 3.688577  0.03338351189  10.2366 2.325970
## 1973  0.044782322  42.7964 3.756454  0.06787707855  11.6323 2.453786
## 1974 -0.032056965  45.7657 3.823535  0.06708091535  14.3056 2.660651
## 1975 -0.079474666  44.9111 3.804685 -0.01884992202  15.8638 2.764040
## 1976  0.014604971  46.7046 3.843843  0.03915768066  17.5083 2.862675
## 1977 -0.011991648  46.7242 3.844262  0.00041957085  18.8510 2.936566
## 1978  0.023767782  48.0158 3.871530  0.02726789167  20.0234 2.996902
## 1979  0.029518637  46.7091 3.843939 -0.02759111691  20.7752 3.033760
## 1980  0.003488250  49.3416 3.898768  0.05482853212  22.8194 3.127611
## 1981 -0.015918916  41.6770 3.729949 -0.16881812074  20.7808 3.034029
## 1982  0.042991857  40.0099 3.689127 -0.04082249440  21.1699 3.052580
## 1983  0.022174098  37.8845 3.634542 -0.05458486603  20.6874 3.029525
## 1984  0.049648237  38.7718 3.657693  0.02315112079  21.9283 3.087778
## 1985  0.031945077  40.5032 3.701381  0.04368780508  23.8997 3.173866
## 1986  0.032106735  41.7454 3.731589  0.03020828225  24.8082 3.211174
## 1987  0.027307898  43.8108 3.779880  0.04829109674  26.4205 3.274140
## 1988  0.103982311  50.8284 3.928455  0.14857489116  31.1784 3.439726
## 1989  0.040862087  56.8023 4.039577  0.11112156438  36.6324 3.600933
## 1990 -0.005209339  61.6763 4.121900  0.08232292256  40.7899 3.708435
## 1991 -0.041918571  59.1205 4.079578 -0.04232200645  39.9014 3.686411
## 1992  0.004866494  59.7619 4.090368  0.01079060018  41.3503 3.722080
## 1993 -0.045123312  58.2569 4.064863 -0.02550579379  41.0845 3.715631
## 1994  0.047402653  58.4805 4.068693  0.00383082497  42.2432 3.743443
## 1995  0.052816304  60.4648 4.102061  0.03336801220  44.6905 3.799761
## 1996 -0.007800312  60.7992 4.107577  0.00551525346  45.3960 3.815424
## 1997  0.041214230  64.8723 4.172421  0.06484409113  48.9758 3.891326
## 1998  0.032127663  66.3331 4.194689  0.02226829634  50.6666 3.925267
## 1999  0.009592478  69.0496 4.234825  0.04013606847  53.7112 3.983622
## 2000  0.073853343  72.4810 4.283324  0.04849937161  57.7028 4.055306
## 2001 -0.019987742  73.6597 4.299456  0.01613137969  59.1853 4.080673
## 2002 -0.007909346  70.6172 4.257274 -0.04218209735  56.5542 4.035199
## 2003  0.030741538  70.5239 4.255952 -0.00132208143  57.6297 4.054038
## 2004  0.085214062  76.8922 4.342404  0.08645278148  63.7030 4.154232
## 2005  0.053816127  81.3039 4.398194  0.05578954494  68.6854 4.229537
## 2006  0.031178782  82.8531 4.417069  0.01887517431  72.5915 4.284848
## 2007  0.049236369  88.8863 4.487358  0.07028886472  80.0392 4.382517
## 2008 -0.054753485  90.5813 4.506248  0.01888976507  84.8339 4.440695
## 2009 -0.067758834  84.5824 4.437726 -0.06852158283  78.9421 4.368715
## 2010  0.083312777  84.5882 4.437795  0.00006856983  80.3378 4.386240
## 2011 -0.004356413  89.0039 4.488680  0.05088541202  86.5116 4.460279
## 2012 -0.025583943  89.5813 4.495147  0.00646640384  88.6730 4.484955
## 2013 -0.002663147  87.5481 4.472188 -0.02295823623  87.1133 4.467210
## 2014  0.044452020  92.2377 4.524369  0.05218058409  91.9083 4.520791
## 2015  0.069130963  95.6889 4.561102  0.03673336357  95.6889 4.561102
## 2016  0.027109702  99.3217 4.598364  0.03726177261  99.9038 4.604208
## 2017  0.020662415 100.5742 4.610896  0.01253168666 103.1723 4.636400
## 2018  0.004714355 104.5710 4.649866  0.03897050300 109.5664 4.696531
##         Itcurr_dl     Ipr    Ipr_l       Ipr_dl       Ips       Ips_l
## 1971  0.051585409  7.6092 2.029358  0.009135859 0.7922371 -0.23289452
## 1972  0.063716971  8.0125 2.081003  0.051644781 0.7827306 -0.24496671
## 1973  0.127816178  9.4573 2.246787  0.165784108 0.8130206 -0.20699878
## 1974  0.206865358 11.9609 2.481643  0.234856066 0.8360991 -0.17900807
## 1975  0.103388715 12.9363 2.560037  0.078394317 0.8154604 -0.20400247
## 1976  0.098635270 14.1623 2.650584  0.090546191 0.8088906 -0.21209155
## 1977  0.073890909 15.3034 2.728075  0.077491521 0.8118084 -0.20849094
## 1978  0.060335627 16.3306 2.793041  0.064965623 0.8155758 -0.20386094
## 1979  0.036858378 16.6975 2.815259  0.022218359 0.8037227 -0.21850096
## 1980  0.093851084 18.1211 2.897077  0.081817998 0.7941094 -0.23053405
## 1981 -0.093581568 15.8252 2.761604 -0.135473399 0.7615299 -0.27242588
## 1982  0.018550878 16.1807 2.783819  0.022215568 0.7643258 -0.26876119
## 1983 -0.023055542 16.0055 2.772932 -0.010886761 0.7736835 -0.25659241
## 1984  0.058253221 17.7774 2.877928  0.104995575 0.8107058 -0.20985005
## 1985  0.086087867 19.7423 2.982764  0.104835554 0.8260480 -0.19110236
## 1986  0.037308337 20.8523 3.037464  0.054700712 0.8405406 -0.17370999
## 1987  0.062965980 22.7824 3.125988  0.088524054 0.8623001 -0.14815192
## 1988  0.165585323 27.1322 3.300721  0.174732906 0.8702243 -0.13900433
## 1989  0.161207547 33.2731 3.504749  0.204028048 0.9082970 -0.09618383
## 1990  0.107501407 37.4789 3.623778  0.119028845 0.9188279 -0.08465639
## 1991 -0.022023091 36.2135 3.589432 -0.034346130 0.9075747 -0.09697943
## 1992  0.035668266 37.3038 3.619095  0.029663221 0.9021410 -0.10298448
## 1993 -0.006448755 36.4120 3.594898 -0.024196807 0.8862710 -0.12073253
## 1994  0.027812473 37.4641 3.623383  0.028484750 0.8868670 -0.12006025
## 1995  0.056317557 40.0189 3.689352  0.065968701 0.8954677 -0.11040911
## 1996  0.015663044 40.9414 3.712142  0.022789934 0.9018724 -0.10328222
## 1997  0.075902303 44.2446 3.789733  0.077591554 0.9033972 -0.10159297
## 1998  0.033940618 45.8777 3.825979  0.036245830 0.9054821 -0.09928776
## 1999  0.058354629 48.0157 3.871528  0.045548881 0.8939607 -0.11209351
## 2000  0.071684153 51.6048 3.943615  0.072086651 0.8943206 -0.11169101
## 2001  0.025367501 53.5790 3.981157  0.037542509 0.9052755 -0.09951600
## 2002 -0.045473730 50.9124 3.930107 -0.051050691 0.9002408 -0.10509296
## 2003  0.018838589 51.7392 3.946216  0.016109206 0.8977871 -0.10782235
## 2004  0.100193597 57.7271 4.055727  0.109511019 0.9061912 -0.09850492
## 2005  0.075305001 62.2838 4.131701  0.075974626 0.9067982 -0.09783530
## 2006  0.055311177 66.3798 4.195393  0.063691433 0.9144294 -0.08945504
## 2007  0.097668680 73.2217 4.293492  0.098099032 0.9148230 -0.08902469
## 2008  0.058178712 77.6587 4.352324  0.058831759 0.9154206 -0.08837164
## 2009 -0.071980555 71.0426 4.263280 -0.089043887 0.8999330 -0.10543498
## 2010  0.017525573 72.1898 4.279299  0.016019065 0.8985783 -0.10694148
## 2011  0.074038264 77.5169 4.350496  0.071197215 0.8960290 -0.10978253
## 2012  0.024676937 79.0801 4.370461  0.019965286 0.8918171 -0.11449418
## 2013 -0.017745876 77.9772 4.356416 -0.014044787 0.8951239 -0.11079309
## 2014  0.053581771 81.5800 4.401584  0.045167658 0.8876239 -0.11920721
## 2015  0.040310963 85.3014 4.446191  0.044606733 0.8914451 -0.11491144
## 2016  0.043105419 89.5409 4.494696  0.048504637 0.8962712 -0.10951222
## 2017  0.032192683 92.4583 4.526758  0.032062228 0.8961543 -0.10964267
## 2018  0.060130352 97.3974 4.578800  0.052041784 0.8889349 -0.11773124
##             Ips_dl        I      I_l         I_dl          r       r_l
## 1971 -0.0424495495 30.63977 3.422299 -0.061638530  2.3310893 1.9353486
## 1972 -0.0120721905 31.29975 3.443610  0.021311321  1.5018693 1.8078360
## 1973  0.0379679297 34.79436 3.549455  0.105845008  0.4024518 1.6090020
## 1974  0.0279907088 38.26466 3.644527  0.095071624 -2.7741198 0.5995227
## 1975 -0.0249943984 36.62322 3.600683 -0.043844320 -3.5953692 0.0000000
## 1976 -0.0080890789 37.77891 3.631751  0.031068602  1.4054382 1.7918940
## 1977  0.0036006128 37.93110 3.635771  0.004020184  1.1732495 1.7524327
## 1978  0.0046299958 39.16052 3.667669  0.031897887  4.6805828 2.2274252
## 1979 -0.0146400189 37.54116 3.625438 -0.042231136  4.4686381 2.2043113
## 1980 -0.0120330862 39.18263 3.668233  0.042795446  8.0611050 2.5381689
## 1981 -0.0418918311 31.73828 3.457524 -0.210709952  7.8957370 2.5250169
## 1982  0.0036646898 30.58060 3.420366 -0.037157805  5.4460678 2.3067202
## 1983  0.0121687814 29.31061 3.377950 -0.042416085  5.9918898 2.3596513
## 1984  0.0467423537 31.43252 3.447843  0.069893475  6.4494571 2.4019621
## 1985  0.0187476877 33.45759 3.510279  0.062435493  6.0617355 2.3662268
## 1986  0.0173923749 35.08870 3.557879  0.047600657  5.6745159 2.3292158
## 1987  0.0255580738 37.77806 3.631728  0.073849171  6.3883032 2.3964098
## 1988  0.0091475830 44.23211 3.789451  0.157722474  5.7170085 2.3333449
## 1989  0.0428205010 51.59336 3.943393  0.153942065  3.6857213 2.1139747
## 1990  0.0115274382 56.66991 4.037243  0.093850361  7.0007086 2.4506669
## 1991 -0.0123230397 53.65627 3.982598 -0.054645046  6.2340454 2.3822660
## 1992 -0.0060050449 53.91366 3.987384  0.004785555  5.0524530 2.2667322
## 1993 -0.0177480523 51.63140 3.944130 -0.043253846  3.1124796 2.0422391
## 1994  0.0006722778 51.86443 3.948633  0.004503103  5.5396772 2.3159994
## 1995  0.0096511445 54.14428 3.991652  0.043019157  6.1837413 2.3776100
## 1996  0.0071268891 54.83312 4.004294  0.012642143  5.9848841 2.3589894
## 1997  0.0016892510 58.60545 4.070828  0.066533342  4.9548236 2.2565613
## 1998  0.0023052123 60.06344 4.095401  0.024573509  2.8921676 2.0132399
## 1999 -0.0128057490 61.72763 4.122732  0.027330320  4.1263801 2.1658198
## 2000  0.0004024973 64.82125 4.171633  0.048901869  3.5047725 2.0918816
## 2001  0.0121750078 66.68232 4.199940  0.028306387  3.0860051 2.0387985
## 2002 -0.0055769616 63.57249 4.152181 -0.047759059  3.2959432 2.0657625
## 2003 -0.0027293836 63.31545 4.148129 -0.004051465  2.2875590 1.9290442
## 2004  0.0093174218 69.67904 4.243900  0.095770203  2.1930018 1.9152110
## 2005  0.0006696247 73.72623 4.300359  0.056459170  1.3194412 1.7774594
## 2006  0.0083802568 75.76331 4.327614  0.027255431  1.5110753 1.8093447
## 2007  0.0004303522 81.31523 4.398333  0.070719217  2.3528654 1.9384876
## 2008  0.0006530470 82.91999 4.417876  0.019542812  2.4641059 1.9543707
## 2009 -0.0170633327 76.11849 4.332291 -0.085584916  3.3489828 2.0724612
## 2010 -0.0015065080 76.00912 4.330853 -0.001437938  1.5387994 1.8138746
## 2011 -0.0028410486 79.75007 4.378898  0.048044363  2.3796758 1.9423388
## 2012 -0.0047116514 79.89014 4.380652  0.001754752  1.0189115 1.7253135
## 2013  0.0037010893 78.36640 4.361395 -0.019257147  1.1244330 1.7439342
## 2014 -0.0084141130 81.87238 4.405162  0.043766471  0.7202668 1.6706527
## 2015  0.0042957697 85.30140 4.446191  0.041029133 -0.4924032 1.4117101
## 2016  0.0053992184 89.01918 4.488852  0.042660991 -1.2416020 1.2100843
## 2017 -0.0001304553 90.13000 4.501253  0.012401231 -0.9812419 1.2848504
## 2018 -0.0080885678 92.95681 4.532135  0.030881935 -0.7323261 1.3514552
##             r_dl         P      P_l        P_dl        Pm     Pm_l
## 1971 -0.08649878  22.79563 3.126569 0.047601496  28.05853 3.334293
## 1972 -0.12751268  24.03940 3.179694 0.053125381  28.10951 3.336108
## 1973 -0.19883395  25.73877 3.247998 0.068304221  30.18126 3.407221
## 1974 -1.00947927  28.79486 3.360197 0.112198629  38.44284 3.649173
## 1975 -0.59952275  32.41357 3.478577 0.118380249  41.01214 3.713868
## 1976  1.79189403  34.86989 3.551624 0.073046508  43.68639 3.777037
## 1977 -0.03946137  37.48470 3.623933 0.072309231  45.31698 3.813682
## 1978  0.47499259  39.00636 3.663725 0.039791828  45.91947 3.826889
## 1979 -0.02311392  40.95590 3.712496 0.048771293  49.95301 3.911083
## 1980  0.33385755  42.41087 3.747405 0.034908761  56.86948 4.040759
## 1981 -0.01315199  44.59017 3.797513 0.050108702  64.49968 4.166660
## 1982 -0.21829666  47.96635 3.870500 0.072986290  73.35565 4.295319
## 1983  0.05293107  50.65815 3.925100 0.054600433  78.91814 4.368411
## 1984  0.04231081  53.41381 3.978069 0.052969145  85.23978 4.445468
## 1985 -0.03573533  55.88566 4.023308 0.045238559  86.90043 4.464763
## 1986 -0.03701094  57.44866 4.050892 0.027583848  77.93667 4.355897
## 1987  0.06719401  58.41616 4.067593 0.016700868  74.57888 4.311857
## 1988 -0.06306495  59.68320 4.089051 0.021458022  76.22742 4.333721
## 1989 -0.21937023  62.54648 4.135910 0.046859328  81.10756 4.395776
## 1990  0.33669226  64.30554 4.163646 0.027735814  79.98599 4.381852
## 1991 -0.06840091  66.15537 4.192006 0.028360266  79.43297 4.374914
## 1992 -0.11553379  68.42087 4.225678 0.033671929  77.22950 4.346782
## 1993 -0.22449308  71.15308 4.264834 0.039155632  75.06801 4.318394
## 1994  0.27376022  72.64324 4.285560 0.020726761  76.39610 4.335932
## 1995  0.06161069  73.53005 4.297694 0.012133780  77.66462 4.352400
## 1996 -0.01862068  73.88049 4.302449 0.004754604  77.24369 4.346965
## 1997 -0.10242802  74.44023 4.309997 0.007547811  78.36619 4.361393
## 1998 -0.24332146  75.78433 4.327892 0.017895036  76.96251 4.343318
## 1999  0.15257995  76.23821 4.333863 0.005971204  77.64279 4.352119
## 2000 -0.07393827  77.77412 4.353809 0.019945946  83.57512 4.425746
## 2001 -0.05308308  79.31623 4.373443 0.019634039  84.68496 4.438938
## 2002  0.02696398  80.61702 4.389710 0.016267005  83.17272 4.420919
## 2003 -0.13671829  82.10853 4.408042 0.018332119  82.32367 4.410659
## 2004 -0.01383317  83.68091 4.427011 0.018968968  84.73611 4.439542
## 2005 -0.13775156  85.42404 4.447628 0.020616746  88.49919 4.482993
## 2006  0.03188525  87.35865 4.470022 0.022394397  91.43654 4.515645
## 2007  0.12914292  89.04614 4.489155 0.019132644  93.28957 4.535708
## 2008  0.01588309  90.74590 4.508063 0.018908677  99.48818 4.600039
## 2009  0.11809054  91.22973 4.513381 0.005317454  91.24563 4.513555
## 2010 -0.25858668  92.95587 4.532125 0.018744079  97.10989 4.575843
## 2011  0.12846423  94.63588 4.550037 0.017911782 103.72124 4.641707
## 2012 -0.21702530  96.49179 4.569458 0.019421246 106.65711 4.669619
## 2013  0.01862075  97.71846 4.582090 0.012632596 106.28494 4.666124
## 2014 -0.07328156  98.67870 4.591869 0.009778587 103.91175 4.643542
## 2015 -0.25894254 100.00000 4.605170 0.013301112 100.00000 4.605170
## 2016 -0.20162588 101.74325 4.622452 0.017282260  98.30711 4.588096
## 2017  0.07476616 103.49130 4.639488 0.017035081 101.07240 4.615837
## 2018  0.06660483 105.07840 4.654707 0.015219165 104.28453 4.647123
##             Pm_dl        Px     Px_l         Px_dl        X      X_l
## 1971  0.029803525  29.65487 3.389626  0.0202435913  53.8461 3.986130
## 1972  0.001815040  30.18331 3.407289  0.0176627659  59.7996 4.090999
## 1973  0.071113262  32.71765 3.487915  0.0806254160  68.2452 4.223107
## 1974  0.241951480  40.71010 3.706476  0.2185616398  70.7740 4.259492
## 1975  0.064695611  42.58799 3.751572  0.0450959188  64.9101 4.173003
## 1976  0.063168312  45.37096 3.814872  0.0633001125  73.2621 4.294043
## 1977  0.036645228  46.89114 3.847829  0.0329565263  74.8299 4.315218
## 1978  0.013207438  47.47732 3.860252  0.0124233223  76.5402 4.337816
## 1979  0.084193658  51.79221 3.947240  0.0869876712  81.8951 4.405439
## 1980  0.129675929  56.61204 4.036222  0.0889817599  81.3913 4.399268
## 1981  0.125901521  61.92830 4.125977  0.0897555897  84.1517 4.432621
## 1982  0.128659197  70.07309 4.249539  0.1235616247  86.4901 4.460030
## 1983  0.073091685  75.19084 4.320029  0.0704905528  88.7619 4.485958
## 1984  0.077057017  81.37199 4.399031  0.0790018062  94.5065 4.548669
## 1985  0.019294737  83.63502 4.426462  0.0274311694  94.8208 4.551989
## 1986 -0.108866309  78.15337 4.358673 -0.0677891953  97.4164 4.578995
## 1987 -0.044039238  75.54239 4.324694 -0.0339792342 102.2542 4.627462
## 1988  0.021863804  78.39647 4.361779  0.0370849927 112.1042 4.719429
## 1989  0.062055034  84.10257 4.432037  0.0702581815 121.2426 4.797793
## 1990 -0.013924661  82.65989 4.414734 -0.0173026489 126.7881 4.842517
## 1991 -0.006938025  82.14153 4.408444 -0.0062906656 130.6620 4.872614
## 1992 -0.028132026  81.24126 4.397423 -0.0110205390 135.4532 4.908626
## 1993 -0.028387053  80.18421 4.384327 -0.0130966162 134.8540 4.904193
## 1994  0.017537236  81.23066 4.397293  0.0129661272 146.0842 4.984183
## 1995  0.016468105  82.49903 4.412786  0.0154937351 153.3766 5.032896
## 1996 -0.005434623  81.44190 4.399890 -0.0128966281 161.0073 5.081450
## 1997  0.014427379  82.35834 4.411080  0.0111898370 176.2878 5.172118
## 1998 -0.018074160  81.31769 4.398364 -0.0127161339 183.5822 5.212663
## 1999  0.008800281  81.27466 4.397834 -0.0005292980 192.4846 5.260016
## 2000  0.073627239  85.97049 4.454004  0.0561698199 216.3468 5.376883
## 2001  0.013192063  87.16490 4.467802  0.0137976340 217.1693 5.380677
## 2002 -0.018018573  86.15345 4.456130 -0.0116717209 224.6581 5.414580
## 2003 -0.010260669  85.03801 4.443098 -0.0130316911 228.2871 5.430604
## 2004  0.028883101  86.81576 4.463788  0.0206898708 242.4258 5.490696
## 2005  0.043451606  90.03800 4.500232  0.0364436838 255.7861 5.544342
## 2006  0.032651787  92.36783 4.525779  0.0255469348 270.3675 5.599782
## 2007  0.020063117  94.38549 4.547387  0.0216085359 285.0648 5.652717
## 2008  0.064330516  98.02710 4.585244  0.0378566654 290.2177 5.670631
## 2009 -0.086483704  92.61977 4.528503 -0.0567413350 257.4948 5.551000
## 2010  0.062288075  96.85876 4.573254  0.0447511743 284.3749 5.650293
## 2011  0.065863717 101.96642 4.624644  0.0513897608 297.5451 5.695566
## 2012  0.027912144 104.86507 4.652674  0.0280308810 296.0965 5.690685
## 2013 -0.003495452 104.88280 4.652844  0.0001691116 297.1407 5.694206
## 2014 -0.022581697 102.88510 4.633613 -0.0192307952 312.5824 5.744868
## 2015 -0.038371752 100.00000 4.605170 -0.0284425999 324.2157 5.781409
## 2016 -0.017073800  98.91368 4.594248 -0.0109226657 345.3669 5.844607
## 2017  0.027740743 101.04263 4.615543  0.0212950075 363.6182 5.896104
## 2018  0.031285943 103.17887 4.636464  0.0209216008 368.0013 5.908086
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1971  0.044064792  54.1980 3.992644  0.035796787 0.6235210 -0.4723729
## 1972  0.104868994  59.3842 4.084028  0.091384190 0.6341163 -0.4555228
## 1973  0.132108130  70.4217 4.254501  0.170473257 0.6372809 -0.4505448
## 1974  0.036384600  73.5318 4.297718  0.043216511 0.6571041 -0.4199128
## 1975 -0.086488466  66.8533 4.202501 -0.095217299 0.6732004 -0.3957123
## 1976  0.121040186  75.1335 4.319267  0.116765865 0.6797693 -0.3860018
## 1977  0.021174116  78.7180 4.365872  0.046605315 0.6797519 -0.3860274
## 1978  0.022598555  80.8185 4.392206  0.026334054 0.6793356 -0.3866400
## 1979  0.067623067  88.0565 4.477979  0.085772754 0.6738810 -0.3947017
## 1980 -0.006170772  85.5830 4.449487 -0.028491989 0.6861096 -0.3767180
## 1981  0.033352735  83.9268 4.429945 -0.019541675 0.6859402 -0.3769648
## 1982  0.027408834  85.0638 4.443402  0.013456573 0.6712027 -0.3986841
## 1983  0.025927547  84.0156 4.431002 -0.012399067 0.6612300 -0.4136536
## 1984  0.062711111  89.3863 4.492967  0.061964931 0.6526310 -0.4267435
## 1985  0.003320179  89.7503 4.497031  0.004063943 0.6459179 -0.4370829
## 1986  0.027005780  93.8689 4.541899  0.044867758 0.6415466 -0.4438734
## 1987  0.048467296 100.2078 4.607246  0.065346902 0.6364113 -0.4519103
## 1988  0.091966926 110.6496 4.706368  0.099122422 0.6183470 -0.4807055
## 1989  0.078364701 121.3754 4.798888  0.092519771 0.6129660 -0.4894458
## 1990  0.044723692 127.2848 4.846427  0.047538873 0.6209551 -0.4764965
## 1991  0.030096647 130.9242 4.874619  0.028191434 0.6362998 -0.4520854
## 1992  0.036012357 136.3144 4.914964  0.040345453 0.6368467 -0.4512264
## 1993 -0.004433481 135.8225 4.911349 -0.003615096 0.6412227 -0.4443784
## 1994  0.079990456 145.7110 4.981625  0.070276322 0.6330766 -0.4571639
## 1995  0.048713167 152.4890 5.027092  0.045467254 0.6256392 -0.4689815
## 1996  0.048553371 160.9584 5.081146  0.054053484 0.6274762 -0.4660495
## 1997  0.090668181 174.1607 5.159978  0.078832490 0.6244592 -0.4708692
## 1998  0.040544637 182.9700 5.209322  0.049343769 0.6191022 -0.4794848
## 1999  0.047353627 189.1421 5.242499  0.033176379 0.6233583 -0.4726339
## 2000  0.116866525 213.7599 5.364853  0.122354838 0.6122857 -0.4905563
## 2001  0.003794558 212.1450 5.357270 -0.007583419 0.6217812 -0.4751670
## 2002  0.033902457 214.3852 5.367774  0.010504394 0.6268069 -0.4671167
## 2003  0.016024356 217.5141 5.382264  0.014489279 0.6179742 -0.4813086
## 2004  0.060091637 231.2320 5.443422  0.061157860 0.6011812 -0.5088588
## 2005  0.053645864 246.0923 5.505707  0.062285133 0.5892167 -0.5289613
## 2006  0.055440596 258.7460 5.555847  0.050140217 0.5848345 -0.5364264
## 2007  0.052934378 273.1823 5.610139  0.054292452 0.5794783 -0.5456271
## 2008  0.017914808 283.5769 5.647483  0.037344001 0.5942670 -0.5204266
## 2009 -0.119631805 252.7836 5.532534 -0.114949552 0.6072919 -0.4987457
## 2010  0.099293912 277.2732 5.625003  0.092469515 0.5875781 -0.5317461
## 2011  0.045272372 292.8699 5.679728  0.054725181 0.5904054 -0.5269458
## 2012 -0.004880395 290.8936 5.672958 -0.006770919 0.5935747 -0.5215922
## 2013  0.003520349 290.2715 5.670817 -0.002140873 0.5943489 -0.5202887
## 2014  0.050662350 306.3185 5.724625  0.053808718 0.5865340 -0.5335247
## 2015  0.036540921 318.3068 5.763016  0.038390287 0.5723034 -0.5580861
## 2016  0.063198295 342.2733 5.835610  0.072593843 0.5635320 -0.5735312
## 2017  0.051497086 357.3561 5.878733  0.043123223 0.5613271 -0.5774514
## 2018  0.011982055 364.8191 5.899402  0.020668851 0.5612442 -0.5775991
##             rulc_dl      ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1971  0.03455101170 14.21355 2.654196  0.0821525073  63.97218 4.158448
## 1972  0.01685006475 15.24377 2.724171  0.0699754455  66.58298 4.198449
## 1973  0.00497809788 16.40282 2.797454  0.0732823193  69.31438 4.238652
## 1974  0.03063198355 18.92122 2.940284  0.1428306121  70.45426 4.254964
## 1975  0.02420047686 21.82083 3.082865  0.1425807259  69.10254 4.235591
## 1976  0.00971048440 23.70348 3.165622  0.0827569927  72.13399 4.278525
## 1977 -0.00002561692 25.48030 3.237905  0.0722836136  71.79701 4.273843
## 1978 -0.00061256511 26.49841 3.277085  0.0391792631  72.81040 4.287859
## 1979 -0.00806168426 27.59941 3.317794  0.0407096088  73.24474 4.293806
## 1980  0.01798371433 29.09851 3.370687  0.0528924752  75.57187 4.325084
## 1981 -0.00024688281 30.58619 3.420549  0.0498618189  75.69005 4.326647
## 1982 -0.02171928925 32.19514 3.471816  0.0512670010  76.32440 4.334993
## 1983 -0.01496947891 33.49669 3.511447  0.0396309538  76.90819 4.342612
## 1984 -0.01308984436 34.85951 3.551326  0.0398793011  78.51727 4.363319
## 1985 -0.01033947613 36.09755 3.586225  0.0348990828  79.21750 4.372197
## 1986 -0.00679047723 36.85600 3.607018  0.0207933703  79.95024 4.381404
## 1987 -0.00803684692 37.17670 3.615682  0.0086640212  80.94490 4.393769
## 1988 -0.02879519675 36.90493 3.608345 -0.0073371743  82.97147 4.418497
## 1989 -0.00874037572 38.33886 3.646464  0.0381189525  83.98709 4.430663
## 1990  0.01294931965 39.93085 3.687149  0.0406851332  84.83749 4.440738
## 1991  0.02441110359 42.09465 3.739921  0.0527713692  85.23638 4.445428
## 1992  0.00085904614 43.57361 3.774452  0.0345309753  85.68671 4.450698
## 1993  0.00684796277 45.62497 3.820455  0.0460035946  84.44120 4.436055
## 1994 -0.01278548725 45.98873 3.828396  0.0079412733  86.66826 4.462088
## 1995 -0.01181757531 46.00328 3.828713  0.0003162049  87.16505 4.467803
## 1996  0.00293199620 46.35825 3.836399  0.0076866002  87.52479 4.471922
## 1997 -0.00481974500 46.48489 3.839127  0.0027280658  89.71284 4.496614
## 1998 -0.00861564046 46.91825 3.848407  0.0092793951  89.78293 4.497395
## 1999  0.00685099019 47.52372 3.861229  0.0128221947  91.43828 4.515664
## 2000 -0.01792248393 47.61998 3.863252  0.0020234620  92.88329 4.531344
## 2001  0.01538936776 49.31734 3.898276  0.0350234068  92.38313 4.525944
## 2002  0.00805024897 50.53131 3.922593  0.0243172540  93.30660 4.535891
## 2003 -0.01419185347 50.74095 3.926733  0.0041402657  93.90058 4.542237
## 2004 -0.02755027387 50.30739 3.918152 -0.0085813062  96.06123 4.564986
## 2005 -0.02010241672 50.33327 3.918666  0.0005143293  96.74760 4.572106
## 2006 -0.00746517844 51.09035 3.933596  0.0149292182  97.87080 4.583648
## 2007 -0.00920070304 51.60030 3.943528  0.0099319410  99.62297 4.601393
## 2008  0.02520058388 53.92730 3.987637  0.0441092610  98.20775 4.587085
## 2009  0.02168084621 55.40307 4.014635  0.0269983004  95.85472 4.562834
## 2010 -0.03300034467 54.61884 4.000379 -0.0142562661  97.80251 4.582950
## 2011  0.00480027413 55.87354 4.023091  0.0227120560  98.13164 4.586310
## 2012  0.00535355538 57.27508 4.047866  0.0247748009  98.10682 4.586057
## 2013  0.00130348904 58.07886 4.061802  0.0139360853  98.34336 4.588465
## 2014 -0.01323590752 57.87841 4.058344 -0.0034573204  99.13066 4.596439
## 2015 -0.02456143313 57.23034 4.047084 -0.0112603212 100.00000 4.605170
## 2016 -0.01544514511 57.33557 4.048921  0.0018371146 100.05865 4.605757
## 2017 -0.00392018526 58.09247 4.062036  0.0131148961 100.34450 4.608609
## 2018 -0.00014767517 58.97464 4.077108  0.0150714903 100.20485 4.607217
##             Tau_dl        dPxdPm         dPdPm     Trade
## 1971  0.0194495106 -0.0095599341  0.0177979702 0.6689515
## 1972  0.0400006624  0.0158477261  0.0513103410 0.7010766
## 1973  0.0402033637  0.0095121535 -0.0028090410 0.7686248
## 1974  0.0163112886 -0.0233898405 -0.1297528518 0.7676424
## 1975 -0.0193721596 -0.0195996918  0.0536846385 0.7103489
## 1976  0.0429338120  0.0001318000  0.0098781958 0.7572116
## 1977 -0.0046825317 -0.0036887016  0.0356640026 0.7786263
## 1978  0.0140159739 -0.0007841158  0.0265843901 0.7759002
## 1979  0.0059476551  0.0027940134 -0.0354223647 0.8188237
## 1980  0.0312776739 -0.0406941689 -0.0947671679 0.7702488
## 1981  0.0015625933 -0.0361459308 -0.0757928188 0.7775142
## 1982  0.0083460130 -0.0050975723 -0.0556729068 0.7888968
## 1983  0.0076196432 -0.0026011323 -0.0184912524 0.7920538
## 1984  0.0207063038  0.0019447897 -0.0240878711 0.8227177
## 1985  0.0088785561  0.0081364329  0.0259438224 0.8123342
## 1986  0.0092072788  0.0410771139  0.1364501568 0.8268139
## 1987  0.0123641965  0.0100600034  0.0607401057 0.8553932
## 1988  0.0247281100  0.0152211886 -0.0004057817 0.8986788
## 1989  0.0121663261  0.0082031472 -0.0151957060 0.9460005
## 1990  0.0100744664 -0.0033779876  0.0416604749 0.9605290
## 1991  0.0046907503  0.0006473598  0.0352982911 0.9711318
## 1992  0.0052694243  0.0171114867  0.0618039548 0.9937196
## 1993 -0.0146422621  0.0152904363  0.0675426844 0.9993425
## 1994  0.0260322384 -0.0045711091  0.0031895242 1.0436353
## 1995  0.0057157566 -0.0009743699 -0.0043343248 1.0684787
## 1996  0.0041185602 -0.0074620048  0.0101892273 1.1100520
## 1997  0.0246918448 -0.0032375416 -0.0068795678 1.1640916
## 1998  0.0007809978  0.0053580257  0.0359691952 1.1941561
## 1999  0.0182693080 -0.0093295786 -0.0028290761 1.2007274
## 2000  0.0156795597 -0.0174574194 -0.0536812934 1.3047679
## 2001 -0.0053993997  0.0006055709  0.0064419759 1.2881989
## 2002  0.0099465512  0.0063468525  0.0342855784 1.2952826
## 2003  0.0063456357 -0.0027710222  0.0285927881 1.3017089
## 2004  0.0227492300 -0.0081932302 -0.0099141334 1.3353600
## 2005  0.0071197943 -0.0070079222 -0.0228348600 1.3828156
## 2006  0.0115426493 -0.0071048520 -0.0102573901 1.4215724
## 2007  0.0177445487  0.0015454188 -0.0009304731 1.4466535
## 2008 -0.0143076451 -0.0264738502 -0.0454218385 1.4803278
## 2009 -0.0242513704  0.0297423689  0.0918011581 1.3436137
## 2010  0.0201164778 -0.0175369003 -0.0435439960 1.4376955
## 2011  0.0033596238 -0.0144739561 -0.0479519351 1.4861496
## 2012 -0.0002529423  0.0001187370 -0.0084908984 1.4666865
## 2013  0.0024081384  0.0036645638  0.0161280484 1.4610318
## 2014  0.0079736999  0.0033509016  0.0323602839 1.5154301
## 2015  0.0087314484  0.0099291520  0.0516728638 1.5419255
## 2016  0.0005863770  0.0061511346  0.0343560600 1.6256339
## 2017  0.0028526766 -0.0064457351 -0.0107056613 1.6716047
## 2018 -0.0013926210 -0.0103643419 -0.0160667772 1.6746471

Adjusted Dickey-fuller testet I(0)

adf.BEL.WS <- adf.test((BEL$WS), alternative = c("stationary"), k = 2)
adf.BEL.PS <- adf.test((BEL$PS), alternative = c("stationary"), k = 2)
adf.BEL.Y <- adf.test((BEL$Y), alternative = c("stationary"), k = 2)
adf.BEL.Yrw <- adf.test((BEL$Yrw), alternative = c("stationary"), k = 2)
adf.BEL.r <- adf.test((BEL$r), alternative = c("stationary"), k = 2)
adf.BEL.R <- adf.test((BEL$R), alternative = c("stationary"), k = 2)
adf.BEL.Tau <- adf.test((BEL$Tau), alternative = c("stationary"), k = 2)
adf.BEL.rulc <- adf.test((BEL$rulc), alternative = c("stationary"), k = 2)
adf.BEL.ulc <- adf.test((BEL$ulc), alternative = c("stationary"), k = 2)
adf.BEL.P <- adf.test((BEL$P), alternative = c("stationary"), k = 2)
adf.BEL.Pm <- adf.test((BEL$Pm), alternative = c("stationary"), k = 2)
adf.BEL.Px <- adf.test((BEL$Px), alternative = c("stationary"), k = 2)
adf.BEL.X <- adf.test((BEL$X), alternative = c("stationary"), k = 2)
adf.BEL.M <- adf.test((BEL$M), alternative = c("stationary"), k = 2)
adf.BEL.I <- adf.test((BEL$I), alternative = c("stationary"), k = 2)
adf.BEL.C <- adf.test((BEL$C), alternative = c("stationary"), k = 2)
adf.BEL.Ipr <- adf.test((BEL$Ipr), alternative = c("stationary"), k = 2)
adf.BEL.Ips <- adf.test((BEL$Ips), alternative = c("stationary"), k = 2)
adf.BEL.It <- adf.test((BEL$It), alternative = c("stationary"), k = 2)
adf.BEL.Itcurr <- adf.test((BEL$Itcurr), alternative = c("stationary"), k = 2)
adf.BEL.Yf <- adf.test((BEL$Yf), alternative = c("stationary"), k = 2)
adf.BEL.W <- adf.test((BEL$W), alternative = c("stationary"), k = 2)

adf.BEL.WS.pval <- adf.BEL.WS$p.value
adf.BEL.PS.pval <- adf.BEL.PS$p.value
adf.BEL.Y.pval <- adf.BEL.Y$p.value
adf.BEL.Yrw.pval <- adf.BEL.Yrw$p.value
adf.BEL.r.pval <- adf.BEL.r$p.value
adf.BEL.R.pval <- adf.BEL.R$p.value
adf.BEL.Tau.pval <- adf.BEL.Tau$p.value
adf.BEL.rulc.pval <- adf.BEL.rulc$p.value
adf.BEL.ulc.pval <- adf.BEL.ulc$p.value
adf.BEL.P.pval <- adf.BEL.P$p.value
adf.BEL.Pm.pval <- adf.BEL.Pm$p.value
adf.BEL.Px.pval <- adf.BEL.Px$p.value
adf.BEL.X.pval <- adf.BEL.X$p.value
adf.BEL.M.pval <- adf.BEL.M$p.value
adf.BEL.I.pval <- adf.BEL.I$p.value
adf.BEL.C.pval <- adf.BEL.C$p.value
adf.BEL.Ipr.pval <- adf.BEL.Ipr$p.value
adf.BEL.Ips.pval <- adf.BEL.Ips$p.value
adf.BEL.It.pval <- adf.BEL.It$p.value
adf.BEL.Itcurr.pval <- adf.BEL.Itcurr$p.value
adf.BEL.Yf.pval <- adf.BEL.Yf$p.value
adf.BEL.W.pval <- adf.BEL.W$p.value

adf.BEL_non <- rbind(adf.BEL.WS.pval,adf.BEL.PS.pval,adf.BEL.Y.pval,adf.BEL.Yrw.pval,adf.BEL.r.pval,adf.BEL.R.pval,adf.BEL.Tau.pval,adf.BEL.rulc.pval,adf.BEL.ulc.pval,adf.BEL.P.pval,adf.BEL.Pm.pval,adf.BEL.Px.pval,adf.BEL.X.pval,adf.BEL.M.pval,adf.BEL.I.pval,adf.BEL.C.pval,adf.BEL.Ipr.pval,adf.BEL.Ips.pval,adf.BEL.It.pval,adf.BEL.Itcurr.pval,adf.BEL.Yf.pval,adf.BEL.W.pval)


colnames(adf.BEL_non) <- c("BEL")
rownames(adf.BEL_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.BEL_non
##               BEL
## WS     0.01000000
## PS     0.01000000
## Y      0.53894832
## Yrw    0.25380606
## r      0.50252575
## R      0.07927323
## Tau    0.97367662
## rulc   0.01000000
## ulc    0.25709158
## P      0.21906778
## Pm     0.30044120
## Px     0.37287202
## X      0.77070717
## M      0.88923086
## I      0.29362011
## C      0.19275067
## Ipr    0.80350006
## Ips    0.68112925
## It     0.47484493
## Itcurr 0.95680610
## Yf     0.48235124
## W      0.31379140

Adjusted Dickey-fuller testet I(1)

adf.BEL.WS_dl <- adf.test((BEL$WS_dl), alternative = c("stationary"), k = 2)
adf.BEL.PS_dl <- adf.test((BEL$PS_dl), alternative = c("stationary"), k = 2)
adf.BEL.Y_dl <- adf.test((BEL$Y_dl), alternative = c("stationary"), k = 2)
adf.BEL.Yrw_dl <- adf.test((BEL$Yrw_dl), alternative = c("stationary"), k = 2)
adf.BEL.r_dl <- adf.test((BEL$r_dl), alternative = c("stationary"), k = 2)
adf.BEL.R_dl <- adf.test((BEL$R_dl), alternative = c("stationary"), k = 2)
adf.BEL.Tau_dl <- adf.test((BEL$Tau_dl), alternative = c("stationary"), k = 2)
adf.BEL.rulc_dl <- adf.test((BEL$rulc_dl), alternative = c("stationary"), k = 2)
adf.BEL.ulc_dl <- adf.test((BEL$ulc_dl), alternative = c("stationary"), k = 2)
adf.BEL.P_dl <- adf.test((BEL$P_dl), alternative = c("stationary"), k = 2)
adf.BEL.Pm_dl <- adf.test((BEL$Pm_dl), alternative = c("stationary"), k = 2)
adf.BEL.Px_dl <- adf.test((BEL$Px_dl), alternative = c("stationary"), k = 2)
adf.BEL.X_dl <- adf.test((BEL$X_dl), alternative = c("stationary"), k = 2)
adf.BEL.M_dl <- adf.test((BEL$M_dl), alternative = c("stationary"), k = 2)
adf.BEL.I_dl <- adf.test((BEL$I_dl), alternative = c("stationary"), k = 2)
adf.BEL.C_dl <- adf.test((BEL$C_dl), alternative = c("stationary"), k = 2)
adf.BEL.Ipr_dl <- adf.test((BEL$Ipr_dl), alternative = c("stationary"), k = 2)
adf.BEL.Ips_dl <- adf.test((BEL$Ips_dl), alternative = c("stationary"), k = 2)
adf.BEL.It_dl <- adf.test((BEL$It_dl), alternative = c("stationary"), k = 2)
adf.BEL.Itcurr_dl <- adf.test((BEL$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.BEL.Yf_dl <- adf.test((BEL$Yf_dl), alternative = c("stationary"), k = 2)
adf.BEL.W_dl <- adf.test((BEL$W_dl), alternative = c("stationary"), k = 2)

adf.BEL.WS_dl.pval <- adf.BEL.WS_dl$p.value
adf.BEL.PS_dl.pval <- adf.BEL.PS_dl$p.value
adf.BEL.Y_dl.pval <- adf.BEL.Y_dl$p.value
adf.BEL.Yrw_dl.pval <- adf.BEL.Yrw_dl$p.value
adf.BEL.r_dl.pval <- adf.BEL.r_dl$p.value
adf.BEL.R_dl.pval <- adf.BEL.R_dl$p.value
adf.BEL.Tau_dl.pval <- adf.BEL.Tau_dl$p.value
adf.BEL.rulc_dl.pval <- adf.BEL.rulc_dl$p.value
adf.BEL.ulc_dl.pval <- adf.BEL.ulc_dl$p.value
adf.BEL.P_dl.pval <- adf.BEL.P_dl$p.value
adf.BEL.Pm_dl.pval <- adf.BEL.Pm_dl$p.value
adf.BEL.Px_dl.pval <- adf.BEL.Px_dl$p.value
adf.BEL.X_dl.pval <- adf.BEL.X_dl$p.value
adf.BEL.M_dl.pval <- adf.BEL.M_dl$p.value
adf.BEL.I_dl.pval <- adf.BEL.I_dl$p.value
adf.BEL.C_dl.pval <- adf.BEL.C_dl$p.value
adf.BEL.Ipr_dl.pval <- adf.BEL.Ipr_dl$p.value
adf.BEL.Ips_dl.pval <- adf.BEL.Ips_dl$p.value
adf.BEL.It_dl.pval <- adf.BEL.It_dl$p.value
adf.BEL.Itcurr_dl.pval <- adf.BEL.Itcurr_dl$p.value
adf.BEL.Yf_dl.pval <- adf.BEL.Yf_dl$p.value
adf.BEL.W_dl.pval <- adf.BEL.W_dl$p.value

adf.BEL_dl <- rbind(adf.BEL.WS_dl.pval,adf.BEL.PS_dl.pval,adf.BEL.Y_dl.pval,adf.BEL.Yrw_dl.pval,adf.BEL.r_dl.pval,adf.BEL.R_dl.pval,adf.BEL.Tau_dl.pval,adf.BEL.rulc_dl.pval,adf.BEL.ulc_dl.pval,adf.BEL.P_dl.pval,adf.BEL.Pm_dl.pval,adf.BEL.Px_dl.pval,adf.BEL.X_dl.pval,adf.BEL.M_dl.pval,adf.BEL.I_dl.pval,adf.BEL.C_dl.pval,adf.BEL.Ipr_dl.pval,adf.BEL.Ips_dl.pval,adf.BEL.It_dl.pval,adf.BEL.Itcurr_dl.pval,adf.BEL.Yf_dl.pval,adf.BEL.W_dl.pval)
colnames(adf.BEL_dl) <- c("BEL")
rownames(adf.BEL_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.BEL_dl
##                     BEL
## dlog(WS)     0.08423274
## dlog(PS)     0.07994039
## dlog(Y)      0.01000000
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.02378420
## dlog(Tau)    0.01000000
## dlog(rulc)   0.05550679
## dlog(ulc)    0.22937945
## dlog(P)      0.06400132
## dlog(Pm)     0.03060071
## dlog(Px)     0.02274642
## dlog(X)      0.01000000
## dlog(M)      0.01000000
## dlog(I)      0.02458770
## dlog(C)      0.01000000
## dlog(Ipr)    0.02213720
## dlog(Ips)    0.02815860
## dlog(It)     0.03248560
## dlog(Itcurr) 0.03812250
## dlog(Yf)     0.01000000
## dlog(W)      0.03033068
adf.BEL <- NULL
adf.BEL <- rbind(adf.BEL_non,adf.BEL_dl)

Økonometriske test

#Consumption (C)
BEL_consumption <- dynlm(BEL$C_dl~BEL$R_dl+BEL$W_dl)
BEL_CR <- summary(BEL_consumption)$coefficients["BEL$R_dl","Estimate"]
BEL_CW <- summary(BEL_consumption)$coefficients["BEL$W_dl","Estimate"]
BEL_Ceffekt <- (BEL_CR*mean(BEL$C/BEL$R))-(BEL_CW*mean(BEL$C/BEL$W))
summary(BEL_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$C_dl ~ BEL$R_dl + BEL$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.018132 -0.007132 -0.001204  0.005511  0.030734 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.009264   0.002349   3.944     0.000277 ***
## BEL$R_dl    0.139631   0.040799   3.422     0.001332 ** 
## BEL$W_dl    0.498398   0.073281   6.801 0.0000000201 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0109 on 45 degrees of freedom
## Multiple R-squared:  0.5286, Adjusted R-squared:  0.5077 
## F-statistic: 25.23 on 2 and 45 DF,  p-value: 0.00000004479
#Investments (I)
BEL_investment <- dynlm(BEL$I_dl~BEL$PS_l+BEL$Y_l+BEL$r)
BEL_iPS <- summary(BEL_investment)$coefficients["BEL$PS_l","Estimate"]
BEL_Ieffekt <- BEL_iPS*mean(BEL$I/BEL$R)
summary(BEL_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$I_dl ~ BEL$PS_l + BEL$Y_l + BEL$r)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.181481 -0.024068  0.004471  0.036379  0.091434 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  0.763166   0.278893   2.736 0.008925 ** 
## BEL$PS_l     0.551479   0.154442   3.571 0.000876 ***
## BEL$Y_l     -0.020055   0.030641  -0.655 0.516187    
## BEL$r        0.003843   0.003514   1.094 0.279992    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05661 on 44 degrees of freedom
## Multiple R-squared:  0.2328, Adjusted R-squared:  0.1805 
## F-statistic: 4.451 on 3 and 44 DF,  p-value: 0.008139
#Price deflator (P)
BEL_deflator <- dynlm(BEL$P_dl~L(BEL$ulc_dl)+BEL$Pm_dl)
BEL_ePULC <- summary(BEL_deflator)$coefficients["L(BEL$ulc_dl)","Estimate"]
summary(BEL_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$P_dl ~ L(BEL$ulc_dl) + BEL$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.024768 -0.007421  0.002203  0.006835  0.019199 
## 
## Coefficients:
##               Estimate Std. Error t value            Pr(>|t|)    
## (Intercept)   0.011779   0.002075   5.678 0.00000093675653920 ***
## L(BEL$ulc_dl) 0.589618   0.052102  11.317 0.00000000000000939 ***
## BEL$Pm_dl     0.091566   0.030551   2.997             0.00442 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01055 on 45 degrees of freedom
## Multiple R-squared:  0.8368, Adjusted R-squared:  0.8296 
## F-statistic: 115.4 on 2 and 45 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
BEL_exportdeflator <- dynlm(BEL$Px_dl~BEL$ulc_l+BEL$Pm_dl+L(BEL$Px_l))
BEL_ePX <- summary(BEL_exportdeflator)$coefficients["BEL$ulc_l","Estimate"]
summary(BEL_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$Px_dl ~ BEL$ulc_l + BEL$Pm_dl + L(BEL$Px_l))
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0191571 -0.0027826  0.0001546  0.0047249  0.0163231 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.01201    0.02338  -0.514             0.610125    
## BEL$ulc_l   -0.05684    0.01599  -3.555             0.000918 ***
## BEL$Pm_dl    0.77402    0.02461  31.454 < 0.0000000000000002 ***
## L(BEL$Px_l)  0.05237    0.01763   2.970             0.004806 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.008796 on 44 degrees of freedom
## Multiple R-squared:  0.9696, Adjusted R-squared:  0.9675 
## F-statistic: 467.7 on 3 and 44 DF,  p-value: < 0.00000000000000022
#Exports (X)
BEL_exports <- dynlm(BEL$X_dl~L(BEL$dPxdPm)+BEL$Yrw_dl)
BEL_eXP <- summary(BEL_exports)$coefficients["L(BEL$dPxdPm)","Estimate"]
BEL_eXP <- 0
BEL_Xeffekt <- -(BEL_eXP*BEL_ePX*(1/(1-BEL_ePULC))*mean(BEL$Yf/BEL$Y)*(mean(BEL$X/BEL$Y)/mean(BEL$rulc)))
summary(BEL_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$X_dl ~ L(BEL$dPxdPm) + BEL$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.071386 -0.012137  0.001313  0.016637  0.047074 
## 
## Coefficients:
##                Estimate Std. Error t value         Pr(>|t|)    
## (Intercept)   -0.019806   0.007499  -2.641           0.0113 *  
## L(BEL$dPxdPm) -0.326133   0.266469  -1.224           0.2274    
## BEL$Yrw_dl     2.319437   0.245674   9.441 0.00000000000305 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02664 on 45 degrees of freedom
## Multiple R-squared:  0.6647, Adjusted R-squared:  0.6498 
## F-statistic:  44.6 on 2 and 45 DF,  p-value: 0.00000000002102
#Imports (M)
BEL_imports <- dynlm(BEL$M_dl~BEL$dPdPm+BEL$Y_dl)
BEL_eMP <- summary(BEL_imports)$coefficients["BEL$dPdPm","Estimate"]
BEL_eMP <- 0
BEL_Meffekt <- -(BEL_eMP*BEL_ePULC*(1/(1-BEL_ePULC))*mean(BEL$Yf/BEL$Y)*(mean(BEL$M/BEL$Y)/mean(BEL$rulc)))
summary(BEL_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$M_dl ~ BEL$dPdPm + BEL$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.114726 -0.017022  0.001347  0.020919  0.050247 
## 
## Coefficients:
##              Estimate Std. Error t value       Pr(>|t|)    
## (Intercept) -0.009304   0.007942  -1.171          0.248    
## BEL$dPdPm    0.047547   0.103571   0.459          0.648    
## BEL$Y_dl     2.300841   0.291052   7.905 0.000000000474 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03235 on 45 degrees of freedom
## Multiple R-squared:  0.5935, Adjusted R-squared:  0.5755 
## F-statistic: 32.85 on 2 and 45 DF,  p-value: 0.000000001596
names(BEL_consumption$coefficients) <- sub("BEL$","",names(BEL_consumption$coefficients),fixed=TRUE)
names(BEL_investment$coefficients) <- sub("BEL$","",names(BEL_investment$coefficients),fixed=TRUE)
names(BEL_deflator$coefficients) <- sub("BEL$","",names(BEL_deflator$coefficients),fixed=TRUE)
names(BEL_exportdeflator$coefficients) <- sub("BEL$","",names(BEL_exportdeflator$coefficients),fixed=TRUE)
names(BEL_exports$coefficients) <- sub("BEL$","",names(BEL_exports$coefficients),fixed=TRUE)
names(BEL_imports$coefficients) <- sub("BEL$","",names(BEL_imports$coefficients),fixed=TRUE)

BEL_Xeffekt
## [1] 0
BEL_Meffekt
## [1] 0
#Nettoeksport (NX)
BEL_NXeffekt <- BEL_Xeffekt - BEL_Meffekt

BEL_NXeffekt
## [1] 0
#Nettoeffekten
BEL_Neteffekt = BEL_Ceffekt + BEL_Ieffekt + BEL_NXeffekt

BEL_Neteffekt
## [1] 0.2022299
BEL_Lukket <- BEL_Ceffekt + BEL_Ieffekt
BEL_Lukket_Konklusion <- ifelse(BEL_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
BEL_Lukket_Konklusion
## [1] "Profit-led domestic"
BEL_Def <- ifelse(BEL_Neteffekt > 0, "Profit-led", "Wage-led")
BEL_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=BEL_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0146292 -0.0055282 -0.0007002  0.0035424  0.0135059 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.48273    0.40926  -1.180    0.251
## z.diff.lag1  -0.62273    0.40816  -1.526    0.141
## z.diff.lag2  -0.41211    0.42166  -0.977    0.339
## z.diff.lag3  -0.07097    0.41292  -0.172    0.865
## z.diff.lag4   0.21312    0.36063   0.591    0.561
## z.diff.lag5   0.03063    0.33204   0.092    0.927
## z.diff.lag6  -0.20518    0.31631  -0.649    0.523
## z.diff.lag7  -0.18397    0.31815  -0.578    0.569
## z.diff.lag8  -0.14513    0.31913  -0.455    0.654
## z.diff.lag9   0.09061    0.31090   0.291    0.773
## z.diff.lag10  0.26358    0.27540   0.957    0.349
## z.diff.lag11  0.10657    0.23670   0.450    0.657
## z.diff.lag12  0.06979    0.15121   0.462    0.649
## 
## Residual standard error: 0.008205 on 22 degrees of freedom
## Multiple R-squared:  0.6855, Adjusted R-squared:  0.4996 
## F-statistic: 3.688 on 13 and 22 DF,  p-value: 0.003474
## 
## 
## Value of test-statistic is: -1.1795 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=BEL_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.084222 -0.013437  0.003653  0.020750  0.055649 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.75965    0.61992  -1.225    0.233
## z.diff.lag1   0.17433    0.62027   0.281    0.781
## z.diff.lag2  -0.04404    0.59277  -0.074    0.941
## z.diff.lag3   0.08287    0.57367   0.144    0.886
## z.diff.lag4   0.18126    0.51850   0.350    0.730
## z.diff.lag5   0.03773    0.45960   0.082    0.935
## z.diff.lag6  -0.08204    0.41247  -0.199    0.844
## z.diff.lag7  -0.04072    0.36864  -0.110    0.913
## z.diff.lag8  -0.15475    0.32782  -0.472    0.642
## z.diff.lag9  -0.13231    0.29979  -0.441    0.663
## z.diff.lag10  0.12543    0.25544   0.491    0.628
## z.diff.lag11  0.13784    0.20453   0.674    0.507
## z.diff.lag12  0.22649    0.14532   1.559    0.133
## 
## Residual standard error: 0.03808 on 22 degrees of freedom
## Multiple R-squared:  0.5804, Adjusted R-squared:  0.3324 
## F-statistic:  2.34 on 13 and 22 DF,  p-value: 0.03802
## 
## 
## Value of test-statistic is: -1.2254 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=BEL_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.033099 -0.008363  0.002397  0.013737  0.030397 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.41587    0.37739  -1.102   0.2824  
## z.diff.lag1  -0.56100    0.39411  -1.423   0.1686  
## z.diff.lag2  -0.55375    0.39881  -1.388   0.1789  
## z.diff.lag3  -0.39300    0.37532  -1.047   0.3064  
## z.diff.lag4  -0.56229    0.36732  -1.531   0.1401  
## z.diff.lag5  -0.33109    0.36886  -0.898   0.3791  
## z.diff.lag6   0.17586    0.36812   0.478   0.6376  
## z.diff.lag7   0.10781    0.36597   0.295   0.7711  
## z.diff.lag8   0.18863    0.33033   0.571   0.5738  
## z.diff.lag9   0.20468    0.28468   0.719   0.4797  
## z.diff.lag10  0.54139    0.25956   2.086   0.0488 *
## z.diff.lag11  0.26885    0.24211   1.110   0.2788  
## z.diff.lag12  0.09097    0.17234   0.528   0.6029  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01976 on 22 degrees of freedom
## Multiple R-squared:  0.6981, Adjusted R-squared:  0.5197 
## F-statistic: 3.913 on 13 and 22 DF,  p-value: 0.002416
## 
## 
## Value of test-statistic is: -1.1019 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=BEL_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042621 -0.007034  0.002721  0.017159  0.033733 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1       -1.1556     0.7402  -1.561   0.1327  
## z.diff.lag1   -0.2770     0.7038  -0.394   0.6977  
## z.diff.lag2   -0.1830     0.6347  -0.288   0.7758  
## z.diff.lag3    0.1303     0.5721   0.228   0.8220  
## z.diff.lag4    0.3200     0.5512   0.581   0.5674  
## z.diff.lag5    0.5192     0.5340   0.972   0.3415  
## z.diff.lag6    0.4635     0.5278   0.878   0.3893  
## z.diff.lag7    0.3496     0.5107   0.685   0.5008  
## z.diff.lag8    0.3409     0.4643   0.734   0.4706  
## z.diff.lag9    0.1427     0.4035   0.354   0.7269  
## z.diff.lag10   0.1242     0.3409   0.364   0.7190  
## z.diff.lag11   0.2831     0.2508   1.129   0.2712  
## z.diff.lag12   0.2673     0.1461   1.830   0.0808 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02312 on 22 degrees of freedom
## Multiple R-squared:  0.7974, Adjusted R-squared:  0.6776 
## F-statistic: 6.659 on 13 and 22 DF,  p-value: 0.00005722
## 
## 
## Value of test-statistic is: -1.5612 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(BEL_consumption)

plot(BEL_investment)

plot(BEL_deflator)

plot(BEL_exportdeflator)

plot(BEL_exports)

plot(BEL_imports)

bptest(BEL_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  BEL_consumption
## BP = 4.5914, df = 2, p-value = 0.1007
bptest(BEL_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  BEL_investment
## BP = 8.3931, df = 3, p-value = 0.03855
bptest(BEL_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  BEL_deflator
## BP = 3.6311, df = 2, p-value = 0.1628
bptest(BEL_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  BEL_exportdeflator
## BP = 16.552, df = 3, p-value = 0.0008735
bptest(BEL_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  BEL_exports
## BP = 2.9998, df = 2, p-value = 0.2232
bptest(BEL_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  BEL_imports
## BP = 3.1802, df = 2, p-value = 0.2039
resettest(BEL_consumption)
## 
##  RESET test
## 
## data:  BEL_consumption
## RESET = 7.434, df1 = 2, df2 = 43, p-value = 0.001687
resettest(BEL_investment)
## 
##  RESET test
## 
## data:  BEL_investment
## RESET = 11.274, df1 = 2, df2 = 42, p-value = 0.0001204
resettest(BEL_deflator)
## 
##  RESET test
## 
## data:  BEL_deflator
## RESET = 4.4168, df1 = 2, df2 = 43, p-value = 0.01801
resettest(BEL_exportdeflator)
## 
##  RESET test
## 
## data:  BEL_exportdeflator
## RESET = 2.5447, df1 = 2, df2 = 42, p-value = 0.09054
resettest(BEL_exports)
## 
##  RESET test
## 
## data:  BEL_exports
## RESET = 0.45356, df1 = 2, df2 = 43, p-value = 0.6384
resettest(BEL_imports)
## 
##  RESET test
## 
## data:  BEL_imports
## RESET = 7.5034, df1 = 2, df2 = 43, p-value = 0.001602

Resultater

BEL_regtab <- matrix(c(BEL_Ceffekt, BEL_Ieffekt, BEL_Lukket, BEL_Xeffekt, BEL_Meffekt, BEL_NXeffekt, BEL_Neteffekt,BEL_Lukket_Konklusion, BEL_Def),ncol=9,byrow=TRUE)
colnames(BEL_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(BEL_regtab) <- c("BEL")
BEL_regtab <- as.table(BEL_regtab)
BEL_regtab
##     consumption        investment        Lukket neteffekt  exports imports
## BEL -0.164150578239597 0.366380487752166 0.202229909512569 0       0      
##     netexports neteffect         Lukket konklusion   Konklusion
## BEL 0          0.202229909512569 Profit-led domestic Profit-led
BEL_smoke <- matrix(c(mean(BEL$C/BEL$R), mean(BEL$C/BEL$W), mean(BEL$I/BEL$R), BEL_CR, BEL_CW, BEL_iPS, BEL_ePULC, (1/(1-BEL_ePULC)), BEL_eXP, BEL_ePX, BEL_eMP, mean(BEL$Yf/BEL$Y), mean(BEL$X/BEL$Y), mean(BEL$rulc), (mean(BEL$X/BEL$Y)/mean(BEL$rulc))),ncol=15,byrow=TRUE)
colnames(BEL_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(BEL_smoke) <- c("BEL")
BEL_smoke <- as.table(BEL_smoke)
BEL_smoke
##             C/R         C/W         I/R          CR          CW
## BEL  1.87716652  0.85526125  0.66436026  0.13963065  0.49839807
##             iPS       ePULC   1/1-epulc         eXP         ePX
## BEL  0.55147864  0.58961825  2.43675555  0.00000000 -0.05684191
##             eMP        Yf/Y         X/Y        RULC  (X/Y)/rulc
## BEL  0.00000000  0.91007077  0.55791853  0.62468050  0.89312621

Summary af regressioner

summary(BEL_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$C_dl ~ BEL$R_dl + BEL$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.018132 -0.007132 -0.001204  0.005511  0.030734 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.009264   0.002349   3.944     0.000277 ***
## R_dl        0.139631   0.040799   3.422     0.001332 ** 
## W_dl        0.498398   0.073281   6.801 0.0000000201 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0109 on 45 degrees of freedom
## Multiple R-squared:  0.5286, Adjusted R-squared:  0.5077 
## F-statistic: 25.23 on 2 and 45 DF,  p-value: 0.00000004479
summary(BEL_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$I_dl ~ BEL$PS_l + BEL$Y_l + BEL$r)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.181481 -0.024068  0.004471  0.036379  0.091434 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  0.763166   0.278893   2.736 0.008925 ** 
## PS_l         0.551479   0.154442   3.571 0.000876 ***
## Y_l         -0.020055   0.030641  -0.655 0.516187    
## r            0.003843   0.003514   1.094 0.279992    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05661 on 44 degrees of freedom
## Multiple R-squared:  0.2328, Adjusted R-squared:  0.1805 
## F-statistic: 4.451 on 3 and 44 DF,  p-value: 0.008139
summary(BEL_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$P_dl ~ L(BEL$ulc_dl) + BEL$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.024768 -0.007421  0.002203  0.006835  0.019199 
## 
## Coefficients:
##             Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) 0.011779   0.002075   5.678 0.00000093675653920 ***
## L(ulc_dl)   0.589618   0.052102  11.317 0.00000000000000939 ***
## Pm_dl       0.091566   0.030551   2.997             0.00442 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01055 on 45 degrees of freedom
## Multiple R-squared:  0.8368, Adjusted R-squared:  0.8296 
## F-statistic: 115.4 on 2 and 45 DF,  p-value: < 0.00000000000000022
summary(BEL_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$Px_dl ~ BEL$ulc_l + BEL$Pm_dl + L(BEL$Px_l))
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0191571 -0.0027826  0.0001546  0.0047249  0.0163231 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.01201    0.02338  -0.514             0.610125    
## ulc_l       -0.05684    0.01599  -3.555             0.000918 ***
## Pm_dl        0.77402    0.02461  31.454 < 0.0000000000000002 ***
## L(Px_l)      0.05237    0.01763   2.970             0.004806 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.008796 on 44 degrees of freedom
## Multiple R-squared:  0.9696, Adjusted R-squared:  0.9675 
## F-statistic: 467.7 on 3 and 44 DF,  p-value: < 0.00000000000000022
summary(BEL_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$X_dl ~ L(BEL$dPxdPm) + BEL$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.071386 -0.012137  0.001313  0.016637  0.047074 
## 
## Coefficients:
##              Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) -0.019806   0.007499  -2.641           0.0113 *  
## L(dPxdPm)   -0.326133   0.266469  -1.224           0.2274    
## Yrw_dl       2.319437   0.245674   9.441 0.00000000000305 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02664 on 45 degrees of freedom
## Multiple R-squared:  0.6647, Adjusted R-squared:  0.6498 
## F-statistic:  44.6 on 2 and 45 DF,  p-value: 0.00000000002102
summary(BEL_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = BEL$M_dl ~ BEL$dPdPm + BEL$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.114726 -0.017022  0.001347  0.020919  0.050247 
## 
## Coefficients:
##              Estimate Std. Error t value       Pr(>|t|)    
## (Intercept) -0.009304   0.007942  -1.171          0.248    
## dPdPm        0.047547   0.103571   0.459          0.648    
## Y_dl         2.300841   0.291052   7.905 0.000000000474 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03235 on 45 degrees of freedom
## Multiple R-squared:  0.5935, Adjusted R-squared:  0.5755 
## F-statistic: 32.85 on 2 and 45 DF,  p-value: 0.000000001596

Danmark analyse

Test for NA værdier

DNK_df[!complete.cases(DNK_df),]
##             WS       WS_l         WS_dl        PS       PS_l        PS_dl
## 1960 0.6434089 -0.4409748            NA 0.3565911 -1.0311656           NA
## 1961 0.6517143 -0.4281490  0.0128257862 0.3482857 -1.0547322 -0.023566552
## 1962 0.6575550 -0.4192269  0.0089220726 0.3424450 -1.0716441 -0.016911940
## 1963 0.6609908 -0.4140153  0.0052115806 0.3390092 -1.0817281 -0.010083950
## 1964 0.6541311 -0.4244475 -0.0104321128 0.3458689 -1.0616955  0.020032522
## 1965 0.6789097 -0.3872671  0.0371803406 0.3210903 -1.1360330 -0.074337421
## 1966 0.6897227 -0.3714656  0.0158014785 0.3102773 -1.1702889 -0.034255926
## 1967 0.6981569 -0.3593114  0.0121542311 0.3018431 -1.1978480 -0.027559072
## 1968 0.7003837 -0.3561269  0.0031844965 0.2996163 -1.2052527 -0.007404764
## 1969 0.6939636 -0.3653358 -0.0092089129 0.3060364 -1.1840511  0.021201611
## 1970 0.7053172 -0.3491077  0.0162281673 0.2946828 -1.2218557 -0.037804630
## 1971 0.7146269 -0.3359947  0.0131129759 0.2853731 -1.2539579 -0.032102122
## 2019 0.6312528 -0.4600489 -0.0102474363 0.3687472 -0.9976439  0.017789927
## 2020 0.6360546 -0.4524708  0.0075780777 0.3639454 -1.0107515 -0.013107605
## 2021 0.6364285 -0.4518833  0.0005875583 0.3635715 -1.0117792 -0.001027685
## 2022        NA         NA            NA        NA         NA           NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960  557.908 6.324194           NA             NA       NA         NA
## 1961  593.496 6.386030  0.061836400             NA       NA         NA
## 1962  627.129 6.441152  0.055121787             NA       NA         NA
## 1963  631.124 6.447502  0.006350096             NA       NA         NA
## 1964  689.628 6.536152  0.088649965             NA       NA         NA
## 1965  721.043 6.580699  0.044546453             NA       NA         NA
## 1966  740.807 6.607740  0.027041358             NA       NA         NA
## 1967  781.776 6.661568  0.053828122             NA       NA         NA
## 1968  825.189 6.715612  0.054044197             NA       NA         NA
## 1969  878.902 6.778673  0.063060950             NA       NA         NA
## 1970  892.937 6.794516  0.015842629 13649766353529 30.24474         NA
## 1971  919.770 6.824124  0.029607609 14202880361249 30.28447 0.03972238
## 2019 2248.533 7.718033  0.023383227             NA       NA         NA
## 2020 2116.796 7.657659 -0.060374379             NA       NA         NA
## 2021 2224.375 7.707231  0.049572353             NA       NA         NA
## 2022       NA       NA           NA             NA       NA         NA
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1960   5.1548  552.7532 6.314912           NA  300.669 5.706010
## 1961   5.7699  587.7261 6.376261  0.061349414  322.740 5.776847
## 1962   6.8761  620.2529 6.430127  0.053866275  341.788 5.834191
## 1963   7.8234  623.3006 6.435029  0.004901608  341.881 5.834463
## 1964   8.8640  680.7640 6.523216  0.088186790  368.701 5.909986
## 1965  10.0471  710.9959 6.566667  0.043450966  381.363 5.943752
## 1966  11.7428  729.0642 6.591762  0.025095131  397.666 5.985612
## 1967  13.5500  768.2260 6.644084  0.052322167  424.427 6.050740
## 1968  16.2534  808.9356 6.695719  0.051635349  439.671 6.086027
## 1969  18.5334  860.3686 6.757361  0.061641593  464.795 6.141596
## 1970  20.6295  872.3075 6.771142  0.013781097  476.327 6.166105
## 1971  22.7942  896.9758 6.799029  0.027886884  480.322 6.174457
## 2019 366.6084 1881.9246 7.540050  0.026464529 1047.474 6.954137
## 2020 349.7502 1767.0458 7.477064 -0.062985864  980.436 6.887997
## 2021 366.9504 1857.4246 7.526946  0.049881792 1038.282 6.945323
## 2022       NA        NA       NA           NA       NA       NA
##               C_dl         W      W_l        W_dl        R      R_l
## 1960            NA  355.6463 5.873937          NA 197.1069 5.283746
## 1961  0.0708370536  383.0295 5.948112  0.07417520 204.6966 5.321529
## 1962  0.0573436163  407.8504 6.010900  0.06278835 212.4025 5.358483
## 1963  0.0002720615  411.9960 6.021014  0.01011319 211.3046 5.353301
## 1964  0.0755232942  445.3089 6.098768  0.07775468 235.4551 5.461520
## 1965  0.0337656600  482.7020 6.179400  0.08063131 228.2939 5.430634
## 1966  0.0418607795  502.8521 6.220296  0.04089661 226.2121 5.421473
## 1967  0.0651275670  536.3423 6.284773  0.06447640 231.8837 5.446236
## 1968  0.0352866960  566.5653 6.339592  0.05481985 242.3703 5.490467
## 1969  0.0555697282  597.0645 6.392025  0.05243268 263.3041 5.573310
## 1970  0.0245081450  615.2535 6.422034  0.03000926 257.0540 5.549286
## 1971  0.0083521192  641.0030 6.463034  0.04099986 255.9728 5.545071
## 2019  0.0218948138 1187.9701 7.080001  0.01621709 693.9545 6.542406
## 2020 -0.0661394598 1123.9377 7.024594 -0.05540779 643.1081 6.466313
## 2021  0.0573253324 1182.1179 7.075063  0.05046935 675.3067 6.515167
## 2022            NA        NA       NA          NA       NA       NA
##              R_dl       It     It_l        It_dl   Itcurr Itcurr_l
## 1960           NA  76.0151 4.330932           NA   9.6703 2.269059
## 1961  0.037782862  86.5895 4.461179  0.130246556  11.5336 2.445265
## 1962  0.036954335  92.3576 4.525668  0.064489438  12.9466 2.560833
## 1963 -0.005182342  90.1280 4.501231 -0.024437117  13.1240 2.574443
## 1964  0.108219312 111.2806 4.712055  0.210824057  16.7082 2.815900
## 1965 -0.030886455 116.4963 4.757860  0.045804573  18.4573 2.915460
## 1966 -0.009160795 121.4631 4.799611  0.041751000  20.2423 3.007774
## 1967  0.024763095 131.7981 4.881271  0.081660693  22.4539 3.111464
## 1968  0.044230585 138.2506 4.929068  0.047796774  24.3685 3.193291
## 1969  0.082843204 155.5888 5.047217  0.118148649  29.2518 3.375941
## 1970 -0.024023532 160.1969 5.076404  0.029187054  32.3142 3.475507
## 1971 -0.004215238 161.4556 5.084230  0.007826499  34.9879 3.555002
## 2019  0.044254456 489.4969 6.193378  0.032961837 515.1534 6.244465
## 2020 -0.076093469 442.8219 6.093168 -0.100210471 458.9862 6.129020
## 2021  0.048854107 477.6484 6.168875  0.075707239 505.0607 6.224679
## 2022           NA       NA       NA           NA       NA       NA
##        Itcurr_dl      Ipr    Ipr_l      Ipr_dl       Ips      Ips_l
## 1960          NA       NA       NA          NA        NA         NA
## 1961  0.17620518       NA       NA          NA        NA         NA
## 1962  0.11556869       NA       NA          NA        NA         NA
## 1963  0.01360941       NA       NA          NA        NA         NA
## 1964  0.24145700       NA       NA          NA        NA         NA
## 1965  0.09956034       NA       NA          NA        NA         NA
## 1966  0.09231452       NA       NA          NA        NA         NA
## 1967  0.10368984       NA       NA          NA        NA         NA
## 1968  0.08182700       NA       NA          NA        NA         NA
## 1969  0.18264980       NA       NA          NA        NA         NA
## 1970  0.09956565       NA       NA          NA        NA         NA
## 1971  0.07949553  28.3299 3.343918          NA 0.8097056 -0.2110845
## 2019  0.04049642 437.9264 6.082051  0.04770332 0.8500893 -0.1624139
## 2020 -0.11544458 378.8246 5.937073 -0.14497756 0.8253507 -0.1919468
## 2021  0.09565848 427.2916 6.057467  0.12039338 0.8460203 -0.1672119
## 2022          NA       NA       NA          NA        NA         NA
##            Ips_dl        I      I_l        I_dl          r       r_l
## 1960           NA       NA       NA          NA         NA        NA
## 1961           NA       NA       NA          NA  2.1986857 1.4682783
## 1962           NA       NA       NA          NA -0.0524234 0.7374723
## 1963           NA       NA       NA          NA  0.6490383 1.0267962
## 1964           NA       NA       NA          NA  2.3697035 1.5069114
## 1965           NA       NA       NA          NA  1.1016012 1.1770133
## 1966           NA       NA       NA          NA  1.7772138 1.3661635
## 1967           NA       NA       NA          NA  4.4093817 1.8798389
## 1968           NA       NA       NA          NA  2.8849178 1.6150194
## 1969           NA       NA       NA          NA  2.3498000 1.5024912
## 1970           NA       NA       NA          NA  1.8881361 1.3940651
## 1971           NA 130.7315 4.873146          NA  3.2706806 1.6889417
## 2019  0.007206899 416.1161 6.030964  0.04016874 -1.1430678 0.0000000
## 2020 -0.029532982 365.4834 5.901221 -0.12974345         NA        NA
## 2021  0.024734907 404.1002 6.001663  0.10044215         NA        NA
## 2022           NA       NA       NA          NA         NA        NA
##            r_dl          P      P_l        P_dl        Pm     Pm_l
## 1960         NA   7.875477 2.063754          NA  19.78376 2.984861
## 1961         NA   8.214644 2.105918 0.042164697  19.80486 2.985928
## 1962 -0.7308060   8.759760 2.170169 0.064250066  19.78375 2.984861
## 1963  0.2893238   9.265504 2.226298 0.056129726  20.16910 3.004152
## 1964  0.4801153   9.692739 2.271377 0.045078802  20.43448 3.017224
## 1965 -0.3298981  10.413538 2.343107 0.071729584  20.75995 3.033026
## 1966  0.1891501  11.124926 2.409188 0.066081498  21.09205 3.048896
## 1967  0.5136755  11.620454 2.452767 0.043578655  21.13727 3.051038
## 1968 -0.2648195  12.274986 2.507564 0.054796730  21.80882 3.082314
## 1969 -0.1125282  13.154109 2.576734 0.069170671  22.40616 3.109336
## 1970 -0.1084261  14.342102 2.663199 0.086465183  23.68650 3.164905
## 1971  0.2948767  15.409985 2.735016 0.071816264  24.86199 3.213340
## 2019 -0.5600176 103.244565 4.637101 0.009694888 102.77668 4.632558
## 2020         NA 103.759014 4.642071 0.004970441 101.62981 4.621337
## 2021         NA 105.658430 4.660212 0.018140499 102.55394 4.630389
## 2022         NA         NA       NA          NA        NA       NA
##             Pm_dl        Px     Px_l       Px_dl        X      X_l
## 1960           NA  15.75581 2.757209          NA   88.487 4.482856
## 1961  0.001066231  15.56525 2.745041 -0.01216869   92.271 4.524730
## 1962 -0.001066792  15.95002 2.769460  0.02441967   96.803 4.572678
## 1963  0.019291132  16.40020 2.797294  0.02783354  106.461 4.667779
## 1964  0.013072002  16.95860 2.830775  0.03348126  115.554 4.749738
## 1965  0.015801683  17.32955 2.852413  0.02163818  124.663 4.825614
## 1966  0.015870492  17.84296 2.881609  0.02919562  129.519 4.863828
## 1967  0.002141679  18.08233 2.894935  0.01332617  134.327 4.900277
## 1968  0.031276710  18.52293 2.919009  0.02407423  147.493 4.993781
## 1969  0.027021394  19.75787 2.983552  0.06454246  156.336 5.052008
## 1970  0.055569506  21.42338 3.064483  0.08093107  162.305 5.089477
## 1971  0.048434891  22.03040 3.092423  0.02794046  172.580 5.150861
## 2019  0.022509448 101.41695 4.619240  0.02131175 1278.827 7.153699
## 2020 -0.011221568 100.33255 4.608490 -0.01075003 1141.717 7.040289
## 2021  0.009051989 101.38945 4.618969  0.01047888 1241.216 7.123847
## 2022           NA        NA       NA          NA       NA       NA
##             X_dl        M      M_l         M_dl      rulc     rulc_l
## 1960          NA   73.329 4.294956           NA 0.6374641 -0.4502572
## 1961  0.04187425   76.591 4.338480  0.043523411 0.6453784 -0.4379184
## 1962  0.04794809   86.828 4.463929  0.125449574 0.6503453 -0.4302519
## 1963  0.09510074   85.881 4.452963 -0.010966533 0.6527972 -0.4264888
## 1964  0.08195923  102.674 4.631559  0.178596303 0.6457234 -0.4373841
## 1965  0.07587614  109.741 4.698123  0.066564124 0.6694497 -0.4012992
## 1966  0.03821349  115.713 4.751113  0.052989943 0.6787897 -0.3874440
## 1967  0.03644954  123.817 4.818805  0.067691682 0.6860562 -0.3767957
## 1968  0.09350359  131.701 4.880534  0.061729533 0.6865886 -0.3760200
## 1969  0.05822682  148.568 5.001043  0.120508564 0.6793300 -0.3866483
## 1970  0.03746974  162.113 5.088294  0.087250857 0.6890223 -0.3724817
## 1971  0.06138362  164.471 5.102734  0.014440640 0.6969167 -0.3610894
## 2019  0.01580979 1109.837 7.011968  0.001251417 0.5283312 -0.6380319
## 2020 -0.11340998 1012.177 6.919859 -0.092109701 0.5309617 -0.6330653
## 2021  0.08355827 1094.155 6.997738  0.077878919 0.5314382 -0.6321683
## 2022          NA       NA       NA           NA        NA         NA
##            rulc_dl       ulc    ulc_l      ulc_dl       Tau    Tau_l
## 1960            NA  5.020334 1.613497          NA  50.95404 3.930924
## 1961  0.0123388001  5.301554 1.668000 0.054503497  53.22203 3.974473
## 1962  0.0076665609  5.696869 1.739917 0.071916627  55.16818 4.010386
## 1963  0.0037630933  6.048495 1.799809 0.059892820  54.65221 4.000990
## 1964 -0.0108952875  6.258828 1.833993 0.034183515  58.28691 4.065378
## 1965  0.0360848538  6.971340 1.941807 0.107814437  59.56619 4.087088
## 1966  0.0138552516  7.551485 2.021744 0.079936750  60.27571 4.098929
## 1967  0.0106482759  7.972285 2.075971 0.054226931  62.79228 4.139832
## 1968  0.0007756487  8.427865 2.131543 0.055572378  65.13990 4.176537
## 1969 -0.0106282704  8.935980 2.190086 0.058542401  67.60905 4.213742
## 1970  0.0141666361  9.882027 2.290718 0.100631819  67.17787 4.207344
## 1971  0.0113922503 10.739475 2.373926 0.083208514  68.23708 4.222988
## 2019 -0.0071661346 54.547324 3.999069 0.002528753 103.01435 4.634868
## 2020  0.0049665926 55.092065 4.009006 0.009937034  97.34909 4.578303
## 2021  0.0008969977 56.150927 4.028043 0.019037497 100.67809 4.611928
## 2022            NA        NA       NA          NA        NA       NA
##            Tau_dl        dPxdPm       dPdPm     Trade
## 1960           NA            NA          NA 0.2900407
## 1961  0.043548507 -0.0132349226  0.04109847 0.2845209
## 1962  0.035913761  0.0254864607  0.06531686 0.2928122
## 1963 -0.009396532  0.0085424127  0.03683859 0.3047610
## 1964  0.064387831  0.0204092552  0.03200680 0.3164431
## 1965  0.021710524  0.0058364954  0.05592790 0.3250902
## 1966  0.011841149  0.0133251313  0.05021101 0.3310336
## 1967  0.040902892  0.0111844920  0.04143698 0.3302020
## 1968  0.036705181 -0.0072024787  0.02352002 0.3383395
## 1969  0.037204609  0.0375210635  0.04214928 0.3469147
## 1970 -0.006398106  0.0253615641  0.03089568 0.3633157
## 1971  0.015644367 -0.0204944302  0.02338137 0.3664514
## 2019  0.006459280 -0.0011977010 -0.01281456 1.0623211
## 2020 -0.056564996  0.0004715422  0.01619201 1.0175255
## 2021  0.033624819  0.0014268924  0.00908851 1.0498999
## 2022           NA            NA          NA        NA
DNK <- DNK_df[13:59,]
DNK[!complete.cases(DNK),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
DNK %>% head()
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1972 0.6915460 -0.3688256 -0.032830900 0.3084540 -1.176183  0.077775240
## 1973 0.6796177 -0.3862249 -0.017399302 0.3203823 -1.138240  0.037942390
## 1974 0.7014663 -0.3545824  0.031642454 0.2985337 -1.208872 -0.070632208
## 1975 0.7093792 -0.3433650  0.011217419 0.2906208 -1.235736 -0.026863637
## 1976 0.6998825 -0.3568429 -0.013477854 0.3001175 -1.203581  0.032154971
## 1977 0.7024614 -0.3531648  0.003678029 0.2975386 -1.212211 -0.008630193
##             Y      Y_l        Y_dl            Yrw    Yrw_l        Yrw_dl
## 1972  955.911 6.862665  0.03854117 15018693588595 30.34032  0.0558508781
## 1973  995.036 6.902779  0.04011410 15995245970929 30.40331  0.0629958868
## 1974  983.868 6.891492 -0.01128718 16193769958058 30.41565  0.0123350465
## 1975  969.536 6.876818 -0.01467414 16191460417898 30.41551 -0.0001426292
## 1976 1026.977 6.934375  0.05755721 16996527079796 30.46403  0.0485250652
## 1977 1046.185 6.952905  0.01853068 17664921829740 30.50260  0.0385718219
##          Tax       Yf     Yf_l       Yf_dl       C      C_l          C_dl
## 1972 26.0402 929.8708 6.835046  0.03601677 480.567 6.174967  0.0005099444
## 1973 28.8983 966.1377 6.873306  0.03826072 516.931 6.247909  0.0729427465
## 1974 30.5748 953.2932 6.859923 -0.01338385 505.210 6.224974 -0.0229352189
## 1975 33.2848 936.2512 6.841884 -0.01803870 521.085 6.255913  0.0309389918
## 1976 40.3786 986.5984 6.894263  0.05237925 560.824 6.329407  0.0734939546
## 1977 47.5783 998.6067 6.906361  0.01209794 571.950 6.349052  0.0196444442
##             W      W_l         W_dl        R      R_l         R_dl
## 1972 643.0485 6.466220  0.003185869 286.8223 5.658863  0.113792009
## 1973 656.6043 6.487081  0.020861416 309.5334 5.735066  0.076203109
## 1974 668.7031 6.505340  0.018258600 284.5901 5.651050 -0.084016062
## 1975 664.1572 6.498519 -0.006821280 272.0940 5.606148 -0.044902337
## 1976 690.5029 6.537420  0.038901397 296.0955 5.690682  0.084534221
## 1977 701.4827 6.553196  0.015775970 297.1240 5.694150  0.003467747
##            It     It_l        It_dl  Itcurr Itcurr_l   Itcurr_dl     Ipr
## 1972 177.2256 5.177423  0.093193315 41.6842 3.730122 0.175119873 34.6802
## 1973 186.6780 5.229385  0.051961710 47.7818 3.866645 0.136522654 40.7408
## 1974 173.3070 5.155065 -0.074320619 51.7042 3.945539 0.078894202 43.4562
## 1975 156.6746 5.054171 -0.100893545 51.9286 3.949870 0.004330682 42.6046
## 1976 182.8112 5.208454  0.154282883 65.1933 4.177357 0.227487005 54.8103
## 1977 181.7275 5.202508 -0.005945614 70.0430 4.249109 0.071752636 58.0810
##         Ipr_l      Ipr_dl       Ips      Ips_l      Ips_dl        I
## 1972 3.546169  0.20225113 0.8319747 -0.1839532  0.02713126 147.4472
## 1973 3.707230  0.16106113 0.8526426 -0.1594148  0.02453847 159.1696
## 1974 3.771754  0.06452349 0.8404772 -0.1737855 -0.01437072 145.6606
## 1975 3.751962 -0.01979131 0.8204458 -0.1979075 -0.02412199 128.5430
## 1976 4.003878  0.25191590 0.8407352 -0.1734786  0.02442890 153.6958
## 1977 4.061839  0.05796046 0.8292192 -0.1872708 -0.01379218 150.6919
##           I_l        I_dl          r       r_l       r_dl        P
## 1972 4.993470  0.12032458  1.2671869 1.2267870 -0.4621547 16.88952
## 1973 5.069970  0.07650018  1.7625137 1.3624067  0.1356197 18.68324
## 1974 4.981279 -0.08869133  2.2897845 1.4890432  0.1266366 21.16184
## 1975 4.856264 -0.12501553 -0.5608925 0.4588007 -1.0302426 23.98817
## 1976 5.034975  0.17871178  5.0191124 1.9688144  1.5100138 26.23829
## 1977 5.015238 -0.01973779  6.7454124 2.1847561  0.2159416 28.56716
##           P_l       P_dl       Pm     Pm_l      Pm_dl       Px     Px_l
## 1972 2.826693 0.09167767 26.02241 3.258958 0.04561785 23.46816 3.155645
## 1973 2.927627 0.10093345 28.33216 3.343998 0.08503955 26.41906 3.274086
## 1974 3.052200 0.12457275 36.87114 3.607429 0.26343147 31.35545 3.445388
## 1975 3.177561 0.12536140 38.65438 3.654660 0.04723106 33.80084 3.520486
## 1976 3.267220 0.08965870 41.43428 3.724108 0.06944832 36.40300 3.594651
## 1977 3.352258 0.08503827 44.38971 3.793008 0.06889930 39.14289 3.667219
##           Px_dl       X      X_l         X_dl       M      M_l
## 1972 0.06322141 181.662 5.202148  0.051286921 166.365 5.114184
## 1973 0.11844090 196.841 5.282396  0.080248479 195.974 5.277982
## 1974 0.17130244 203.562 5.315971  0.033574331 192.019 5.257594
## 1975 0.07509774 202.088 5.308703 -0.007267381 182.488 5.206684
## 1976 0.07416530 209.021 5.342435  0.033731479 213.112 5.361818
## 1977 0.07256771 216.517 5.377669  0.035234341 214.943 5.370373
##              M_dl      rulc     rulc_l      rulc_dl      ulc    ulc_l
## 1972  0.011449907 0.6727075 -0.3964447 -0.035355304 11.36171 2.430249
## 1973  0.163797828 0.6598799 -0.4156974 -0.019252688 12.32869 2.511929
## 1974 -0.020387672 0.6796674 -0.3861517  0.029545775 14.38301 2.666048
## 1975 -0.050909908 0.6850258 -0.3782988  0.007852855 16.43252 2.799262
## 1976  0.155133432 0.6723645 -0.3969546 -0.018655811 17.64169 2.870265
## 1977  0.008555028 0.6705149 -0.3997093 -0.002754709 19.15471 2.952549
##          ulc_dl      Tau    Tau_l       Tau_dl       dPxdPm       dPdPm
## 1972 0.05632236 69.03983 4.234684  0.011695372  0.017603562  0.04605982
## 1973 0.08168076 70.22585 4.251716  0.017032903  0.033401349  0.01589390
## 1974 0.15411853 68.81203 4.231379 -0.020337921 -0.092129033 -0.13885872
## 1975 0.13321425 67.52988 4.212570 -0.018808374  0.027866676  0.07813034
## 1976 0.07100289 69.91316 4.247254  0.034683806  0.004716984  0.02021038
## 1977 0.08228356 70.46688 4.255143  0.007888801  0.003668415  0.01613897
##          Trade
## 1972 0.3640789
## 1973 0.3947747
## 1974 0.4020671
## 1975 0.3966598
## 1976 0.4110443
## 1977 0.4124127

DATA

DNK %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1972 0.6915460 -0.3688256 -0.0328308996 0.3084540 -1.1761826  0.0777752404
## 1973 0.6796177 -0.3862249 -0.0173993024 0.3203823 -1.1382402  0.0379423897
## 1974 0.7014663 -0.3545824  0.0316424538 0.2985337 -1.2088724 -0.0706322077
## 1975 0.7093792 -0.3433650  0.0112174193 0.2906208 -1.2357361 -0.0268636370
## 1976 0.6998825 -0.3568429 -0.0134778540 0.3001175 -1.2035811  0.0321549706
## 1977 0.7024614 -0.3531648  0.0036780293 0.2975386 -1.2122113 -0.0086301934
## 1978 0.7032187 -0.3520874  0.0010774359 0.2967813 -1.2147596 -0.0025483426
## 1979 0.7085738 -0.3445011  0.0075862890 0.2914262 -1.2329684 -0.0182087251
## 1980 0.7150752 -0.3353675  0.0091335775 0.2849248 -1.2555301 -0.0225617193
## 1981 0.7025838 -0.3529907 -0.0176231371 0.2974162 -1.2126226  0.0429074785
## 1982 0.6877517 -0.3743275 -0.0213367875 0.3122483 -1.1639565  0.0486661379
## 1983 0.6806223 -0.3847477 -0.0104202381 0.3193777 -1.1413810  0.0225754795
## 1984 0.6634238 -0.4103413 -0.0255935732 0.3365762 -1.0889307  0.0524502620
## 1985 0.6616093 -0.4130801 -0.0027388541 0.3383907 -1.0835541  0.0053766765
## 1986 0.6724208 -0.3968709  0.0162091724 0.3275792 -1.1160254 -0.0324713610
## 1987 0.6904666 -0.3703877  0.0264832761 0.3095334 -1.1726893 -0.0566638780
## 1988 0.6927595 -0.3670723  0.0033153524 0.3072405 -1.1801246 -0.0074353009
## 1989 0.6737112 -0.3949537 -0.0278814103 0.3262888 -1.1199724  0.0601521569
## 1990 0.6653653 -0.4074191 -0.0124653807 0.3346347 -1.0947157  0.0252567338
## 1991 0.6599047 -0.4156598 -0.0082407177 0.3400953 -1.0785295  0.0161862556
## 1992 0.6512619 -0.4288434 -0.0131835480 0.3487381 -1.0534341  0.0250953078
## 1993 0.6538076 -0.4249422  0.0039011841 0.3461924 -1.0607605 -0.0073263914
## 1994 0.6313731 -0.4598583 -0.0349161196 0.3686269 -0.9979703  0.0627902794
## 1995 0.6309141 -0.4605856 -0.0007272989 0.3690859 -0.9967258  0.0012444681
## 1996 0.6343304 -0.4551852  0.0054003606 0.3656696 -1.0060252 -0.0092994328
## 1997 0.6329657 -0.4573390 -0.0021537215 0.3670343 -1.0023001  0.0037251139
## 1998 0.6517827 -0.4280440  0.0292949570 0.3482173 -1.0549286 -0.0526285436
## 1999 0.6523703 -0.4271430  0.0009010508 0.3476297 -1.0566174 -0.0016887452
## 2000 0.6285569 -0.4643287 -0.0371857450 0.3714431 -0.9903596  0.0662577781
## 2001 0.6399171 -0.4464167  0.0179120092 0.3600829 -1.0214209 -0.0310612827
## 2002 0.6469090 -0.4355497  0.0108669932 0.3530910 -1.0410294 -0.0196084554
## 2003 0.6510491 -0.4291703  0.0063794482 0.3489509 -1.0528240 -0.0117946283
## 2004 0.6393251 -0.4473422 -0.0181719081 0.3606749 -1.0197783  0.0330456552
## 2005 0.6401971 -0.4459792  0.0013629621 0.3598029 -1.0221989 -0.0024205338
## 2006 0.6389174 -0.4479800 -0.0020008301 0.3610826 -1.0186487  0.0035502071
## 2007 0.6569204 -0.4201925  0.0277875629 0.3430796 -1.0697927 -0.0511440500
## 2008 0.6599520 -0.4155882  0.0046042691 0.3400480 -1.0786684 -0.0088757406
## 2009 0.6825916 -0.3818586  0.0337296014 0.3174084 -1.1475659 -0.0688974542
## 2010 0.6551946 -0.4228230 -0.0409644434 0.3448054 -1.0647750  0.0827909215
## 2011 0.6511494 -0.4290162 -0.0061931668 0.3488506 -1.0531115  0.0116635206
## 2012 0.6414425 -0.4440358 -0.0150195819 0.3585575 -1.0256661  0.0274453189
## 2013 0.6408679 -0.4449319 -0.0008961388 0.3591321 -1.0240650  0.0016011493
## 2014 0.6380864 -0.4492816 -0.0043496838 0.3619136 -1.0163497  0.0077152744
## 2015 0.6412136 -0.4443927  0.0048889226 0.3587864 -1.0250280 -0.0086782640
## 2016 0.6386882 -0.4483389 -0.0039461970 0.3613118 -1.0180140  0.0070139858
## 2017 0.6379048 -0.4495663 -0.0012273812 0.3620952 -1.0158480  0.0021659544
## 2018 0.6377548 -0.4498015 -0.0002352023 0.3622452 -1.0154338  0.0004142223
##             Y      Y_l          Y_dl            Yrw    Yrw_l        Yrw_dl
## 1972  955.911 6.862665  0.0385411737 15018693588595 30.34032  0.0558508781
## 1973  995.036 6.902779  0.0401141049 15995245970929 30.40331  0.0629958868
## 1974  983.868 6.891492 -0.0112871757 16193769958058 30.41565  0.0123350465
## 1975  969.536 6.876818 -0.0146741352 16191460417898 30.41551 -0.0001426292
## 1976 1026.977 6.934375  0.0575572078 16996527079796 30.46403  0.0485250652
## 1977 1046.185 6.952905  0.0185306789 17664921829740 30.50260  0.0385718219
## 1978 1069.476 6.974924  0.0220185946 18412412858652 30.54405  0.0414441934
## 1979 1110.855 7.012885  0.0379611802 19173979232979 30.58458  0.0405290625
## 1980 1105.490 7.008044 -0.0048413135 19462118099504 30.59949  0.0149158030
## 1981 1098.126 7.001360 -0.0066835850 19876593903351 30.62056  0.0210729391
## 1982 1138.587 7.037543  0.0361829293 19872089548063 30.62034 -0.0002266417
## 1983 1168.146 7.063173  0.0256298567 20432389433842 30.64814  0.0278051471
## 1984 1216.813 7.103990  0.0408172691 21396835971208 30.69426  0.0461217002
## 1985 1265.531 7.143247  0.0392566513 22189939888010 30.73066  0.0363959687
## 1986 1327.595 7.191124  0.0478772377 22928749490803 30.76341  0.0327525315
## 1987 1330.970 7.193663  0.0025389651 23776739114872 30.79973  0.0363161952
## 1988 1330.789 7.193527 -0.0001360003 24947769283319 30.84781  0.0480766561
## 1989 1339.375 7.199958  0.0064310878 25920067514301 30.88604  0.0382330655
## 1990 1359.134 7.214603  0.0146446450 26685119504356 30.91513  0.0290886119
## 1991 1378.076 7.228444  0.0138405912 26999387169426 30.92684  0.0117080802
## 1992 1405.045 7.247825  0.0193810073 27562850798100 30.94749  0.0206547122
## 1993 1405.195 7.247931  0.0001067524 27953948720426 30.96158  0.0140895871
## 1994 1480.126 7.299882  0.0519511361 28865837745646 30.99368  0.0321003433
## 1995 1524.939 7.329710  0.0298271900 29746832140268 31.02374  0.0300638327
## 1996 1569.163 7.358298  0.0285879469 30688530643253 31.05491  0.0311663465
## 1997 1620.332 7.390386  0.0320887103 31760157641495 31.08923  0.0343236098
## 1998 1656.274 7.412326  0.0219394347 32645999967744 31.11674  0.0275097359
## 1999 1705.101 7.441380  0.0290538453 33750990087844 31.15003  0.0332874171
## 2000 1768.989 7.478163  0.0367838504 35145683627492 31.19052  0.0404920592
## 2001 1783.550 7.486361  0.0081975632 35667384945006 31.20526  0.0147348722
## 2002 1791.868 7.491014  0.0046528909 36263144347966 31.22182  0.0165652340
## 2003 1798.857 7.494907  0.0038928121 37148499821439 31.24594  0.0241214704
## 2004 1846.854 7.521239  0.0263321878 38446572461120 31.28029  0.0343461605
## 2005 1890.009 7.544337  0.0230979400 39614308389831 31.31021  0.0299208268
## 2006 1963.965 7.582721  0.0383837980 40833018132008 31.34051  0.0303006461
## 2007 1981.822 7.591772  0.0090512346 41965583201577 31.36787  0.0273588127
## 2008 1971.675 7.586639 -0.0051331883 42106625032185 31.37123  0.0033552577
## 2009 1874.934 7.536329 -0.0503099765 40791307928794 31.33949 -0.0317360747
## 2010 1910.014 7.554866  0.0185371131 41960298285083 31.36775  0.0282548745
## 2011 1935.546 7.568145  0.0132788853 42670054945642 31.38452  0.0167734926
## 2012 1939.930 7.570407  0.0022624327 43247419410439 31.39796  0.0134401799
## 2013 1958.036 7.579697  0.0092900401 43905964669832 31.41307  0.0151126155
## 2014 1989.745 7.595762  0.0160645598 44788439734169 31.43297  0.0198998842
## 2015 2036.356 7.618917  0.0231554462 45853660932463 31.45648  0.0235049769
## 2016 2102.455 7.650861  0.0319437735 46620230034078 31.47306  0.0165795265
## 2017 2145.265 7.671018  0.0201573783 47687649225983 31.49569  0.0226378705
## 2018 2196.565 7.694650  0.0236316887 48782387754566 31.51839  0.0226969028
##           Tax        Yf     Yf_l         Yf_dl        C      C_l
## 1972  26.0402  929.8708 6.835046  0.0360167689  480.567 6.174967
## 1973  28.8983  966.1377 6.873306  0.0382607189  516.931 6.247909
## 1974  30.5748  953.2932 6.859923 -0.0133838543  505.210 6.224974
## 1975  33.2848  936.2512 6.841884 -0.0180386998  521.085 6.255913
## 1976  40.3786  986.5984 6.894263  0.0523792505  560.824 6.329407
## 1977  47.5783  998.6067 6.906361  0.0120979404  571.950 6.349052
## 1978  56.2302 1013.2458 6.920914  0.0145531130  581.839 6.366194
## 1979  65.3752 1045.4798 6.952231  0.0313170774  587.843 6.376460
## 1980  69.5522 1035.9378 6.943062 -0.0091688154  574.690 6.353831
## 1981  74.7655 1023.3605 6.930847 -0.0122152836  567.472 6.341191
## 1982  81.6273 1056.9597 6.963152  0.0323047596  575.463 6.355175
## 1983  91.0831 1077.0629 6.981993  0.0188412201  586.469 6.374120
## 1984 101.4616 1115.3514 7.016925  0.0349317128  607.096 6.408687
## 1985 111.4574 1154.0736 7.051053  0.0341284320  634.350 6.452601
## 1986 129.7288 1197.8662 7.088297  0.0372438631  679.577 6.521471
## 1987 134.6347 1196.3353 7.087018 -0.0012788399  666.640 6.502250
## 1988 138.6299 1192.1591 7.083521 -0.0034969345  654.423 6.483754
## 1989 138.9517 1200.4233 7.090430  0.0069082117  656.505 6.486930
## 1990 139.7641 1219.3699 7.106090  0.0156600053  661.763 6.494907
## 1991 143.0180 1235.0580 7.118873  0.0127836826  672.500 6.511002
## 1992 146.9560 1258.0890 7.137349  0.0184759705  689.753 6.536334
## 1993 151.8971 1253.2979 7.133534 -0.0038155059  683.815 6.527687
## 1994 167.0137 1313.1123 7.180155  0.0466217239  729.345 6.592147
## 1995 171.4985 1353.4405 7.210405  0.0302497480  741.590 6.608797
## 1996 183.5320 1385.6310 7.233911  0.0235057626  759.796 6.633050
## 1997 196.0246 1424.3074 7.261441  0.0275300289  782.177 6.662081
## 1998 214.8312 1441.4428 7.273400  0.0119588959  800.577 6.685333
## 1999 223.3257 1481.7753 7.300996  0.0275963395  799.618 6.684134
## 2000 223.7261 1545.2629 7.342949  0.0419531617  802.710 6.687994
## 2001 232.6810 1550.8690 7.346571  0.0036213613  804.544 6.690276
## 2002 242.3255 1549.5425 7.345715 -0.0008556929  816.177 6.704631
## 2003 245.0343 1553.8227 7.348473  0.0027584267  827.067 6.717886
## 2004 259.6616 1587.1924 7.369722  0.0212485165  865.503 6.763311
## 2005 279.0426 1610.9664 7.384590  0.0148675781  897.511 6.799625
## 2006 294.2602 1669.7048 7.420402  0.0358125970  923.968 6.828677
## 2007 307.1018 1674.7202 7.423401  0.0029992622  940.313 6.846213
## 2008 300.2923 1671.3827 7.421407 -0.0019948586  944.924 6.851105
## 2009 284.4664 1590.4676 7.371783 -0.0496231869  912.493 6.816180
## 2010 296.5697 1613.4443 7.386126  0.0143431496  919.644 6.823987
## 2011 304.1800 1631.3660 7.397173  0.0110464900  922.180 6.826740
## 2012 312.4450 1627.4850 7.394791 -0.0023818222  926.905 6.831851
## 2013 320.0162 1638.0198 7.401243  0.0064521948  929.495 6.834641
## 2014 324.7889 1664.9561 7.417554  0.0163106834  937.966 6.843714
## 2015 334.8769 1701.4791 7.439253  0.0216991749  959.357 6.866263
## 2016 343.5301 1758.9249 7.472458  0.0332048385  982.598 6.890200
## 2017 351.4437 1793.8213 7.492103  0.0196453787  998.334 6.906088
## 2018 363.7914 1832.7736 7.513586  0.0214822990 1024.789 6.932242
##               C_dl         W      W_l           W_dl        R      R_l
## 1972  0.0005099444  643.0485 6.466220  0.00318586934 286.8223 5.658863
## 1973  0.0729427465  656.6043 6.487081  0.02086141646 309.5334 5.735066
## 1974 -0.0229352189  668.7031 6.505340  0.01825859957 284.5901 5.651050
## 1975  0.0309389918  664.1572 6.498519 -0.00682128050 272.0940 5.606148
## 1976  0.0734939546  690.5029 6.537420  0.03890139653 296.0955 5.690682
## 1977  0.0196444442  701.4827 6.553196  0.01577596966 297.1240 5.694150
## 1978  0.0171422022  712.5334 6.568827  0.01563054888 300.7124 5.706154
## 1979  0.0102661283  740.7996 6.607730  0.03890336634 304.6802 5.719263
## 1980 -0.0226291405  740.7735 6.607695 -0.00003523791 295.1643 5.687532
## 1981 -0.0126393560  718.9965 6.577856 -0.02983842073 304.3640 5.718224
## 1982  0.0139835252  726.9258 6.588824  0.01096797210 330.0339 5.799195
## 1983  0.0189448766  733.0731 6.597245  0.00842098194 343.9898 5.840612
## 1984  0.0345671226  739.9507 6.606584  0.00933813955 375.4007 5.927994
## 1985  0.0439139192  763.5458 6.637973  0.03138957792 390.5278 5.967499
## 1986  0.0688696932  805.4701 6.691426  0.05345303549 392.3961 5.972272
## 1987 -0.0192203757  826.0296 6.716631  0.02520443618 370.3057 5.914329
## 1988 -0.0184962387  825.8796 6.716449 -0.00018158207 366.2795 5.903397
## 1989  0.0031763785  808.7386 6.695476 -0.02097319863 391.6847 5.970457
## 1990  0.0079771759  811.3264 6.698670  0.00319462465 408.0435 6.011374
## 1991  0.0160946257  815.0206 6.703213  0.00454296495 420.0374 6.040344
## 1992  0.0253314510  819.3455 6.708506  0.00529242244 438.7435 6.083915
## 1993 -0.0086461493  819.4157 6.708591  0.00008567820 433.8822 6.072773
## 1994  0.0644594579  829.0638 6.720297  0.01170560431 484.0485 6.182185
## 1995  0.0166496587  853.9047 6.749820  0.02952244914 499.5358 6.213679
## 1996  0.0242534464  878.9479 6.778726  0.02890612312 506.6831 6.227886
## 1997  0.0290310814  901.5378 6.804102  0.02537630743 522.7696 6.259141
## 1998  0.0232516600  939.5075 6.845356  0.04125385297 501.9353 6.218471
## 1999 -0.0011986041  966.6662 6.873853  0.02849739030 515.1091 6.244379
## 2000  0.0038593894  971.2857 6.878621  0.00476741670 573.9772 6.352590
## 2001  0.0022821543  992.4275 6.900154  0.02153337047 558.4415 6.325150
## 2002  0.0143555859 1002.4129 6.910165  0.01001130024 547.1296 6.304686
## 2003  0.0132544643 1011.6148 6.919303  0.00913787492 542.2079 6.295649
## 2004  0.0454251334 1014.7320 6.922380  0.00307660835 572.4604 6.349944
## 2005  0.0363145357 1031.3360 6.938610  0.01623054024 579.6304 6.362391
## 2006  0.0290520625 1066.8035 6.972422  0.03381176687 602.9013 6.401753
## 2007  0.0175353596 1100.1578 7.003209  0.03078682515 574.5624 6.353609
## 2008  0.0048917024 1103.0323 7.005818  0.00260941050 568.3504 6.342738
## 2009 -0.0349240868 1085.6398 6.989925 -0.01589358553 504.8278 6.224217
## 2010  0.0078062244 1057.1199 6.963303 -0.02662129373 556.3244 6.321352
## 2011  0.0027537936 1062.2630 6.968157  0.00485332323 569.1030 6.344062
## 2012  0.0051106469 1043.9380 6.950755 -0.01740140409 583.5470 6.369125
## 2013  0.0027903487 1049.7543 6.956311  0.00555605600 588.2655 6.377178
## 2014  0.0090722731 1062.3858 6.968272  0.01196099960 602.5703 6.401204
## 2015  0.0225495674 1091.0115 6.994861  0.02658809749 610.4676 6.414225
## 2016  0.0239368159 1123.4046 7.024119  0.02925864153 635.5203 6.454444
## 2017  0.0158878053 1144.2872 7.042537  0.01841799755 649.5341 6.476255
## 2018  0.0261541271 1168.8601 7.063784  0.02124709674 663.9135 6.498152
##              R_dl       It     It_l        It_dl   Itcurr Itcurr_l
## 1972  0.113792009 177.2256 5.177423  0.093193315  41.6842 3.730122
## 1973  0.076203109 186.6780 5.229385  0.051961710  47.7818 3.866645
## 1974 -0.084016062 173.3070 5.155065 -0.074320619  51.7042 3.945539
## 1975 -0.044902337 156.6746 5.054171 -0.100893545  51.9286 3.949870
## 1976  0.084534221 182.8112 5.208454  0.154282883  65.1933 4.177357
## 1977  0.003467747 181.7275 5.202508 -0.005945614  70.0430 4.249109
## 1978  0.012004770 185.4587 5.222832  0.020323903  76.5626 4.338109
## 1979  0.013108352 186.5582 5.228743  0.005911039  82.6865 4.415056
## 1980 -0.031730535 169.2058 5.131116 -0.097627529  81.9882 4.406575
## 1981  0.030692195 140.8723 4.947854 -0.183261919  75.9089 4.329534
## 1982  0.080970897 152.5628 5.027576  0.079722508  90.0143 4.499969
## 1983  0.041416700 159.2861 5.070702  0.043125642 100.5365 4.610521
## 1984  0.087381975 175.7702 5.169177  0.098475504 116.3676 4.756754
## 1985  0.039505108 200.1540 5.299087  0.129909610 137.2285 4.921647
## 1986  0.004772502 236.7040 5.466810  0.167723345 160.9462 5.081070
## 1987 -0.057942718 244.1231 5.497673  0.030862191 167.4891 5.120918
## 1988 -0.010932235 230.2575 5.439198 -0.058474358 162.1423 5.088474
## 1989  0.067060369 235.0259 5.459696  0.020497473 170.6594 5.139670
## 1990  0.040916739 234.4561 5.457268 -0.002427357 174.6748 5.162926
## 1991  0.028969938 229.0039 5.433739 -0.023529330 174.3314 5.160958
## 1992  0.043571278 227.8285 5.428593 -0.005145881 172.4637 5.150187
## 1993 -0.011141897 221.8064 5.401805 -0.026788224 167.6736 5.122019
## 1994  0.109412003 237.0228 5.468156  0.066351410 181.7818 5.202807
## 1995  0.031494216 262.0655 5.568594  0.100438133 201.8534 5.307542
## 1996  0.014206330 276.0019 5.620408  0.051813277 213.3060 5.362728
## 1997  0.031255143 304.1753 5.717604  0.097196430 238.5676 5.474653
## 1998 -0.040669648 324.3905 5.781948  0.064343857 255.7722 5.544287
## 1999  0.025907594 323.5433 5.779333 -0.002615083 259.7256 5.559626
## 2000  0.108210940 349.9647 5.857832  0.078499339 285.3870 5.653846
## 2001 -0.027439921 348.3306 5.853152 -0.004680263 292.1814 5.677375
## 2002 -0.020464148 340.3423 5.829952 -0.023200153 291.0648 5.673546
## 2003 -0.009036202 345.9181 5.846202  0.016250166 297.3989 5.695074
## 2004  0.054294172 358.0841 5.880768  0.034565833 311.1805 5.740373
## 2005  0.012447044 379.3638 5.938496  0.057727764 335.8064 5.816535
## 2006  0.039362804 431.2178 6.066613  0.128117660 391.5077 5.970005
## 2007 -0.048144788 434.1952 6.073494  0.006880904 408.8617 6.013377
## 2008 -0.010870599 423.3551 6.048211 -0.025282896 413.3283 6.024242
## 2009 -0.118520641 368.4569 5.909324 -0.138887563 347.3372 5.850296
## 2010  0.097134071 347.2826 5.850139 -0.059184886 328.0254 5.793091
## 2011  0.022710011 348.6316 5.854016  0.003876920 335.3559 5.815192
## 2012  0.025063497 361.6471 5.890669  0.036653097 355.8379 5.874475
## 2013  0.008053344 371.5301 5.917630  0.026961009 367.6496 5.907130
## 2014  0.024025958 383.0892 5.948268  0.030637976 379.6637 5.939286
## 2015  0.013020911 404.2295 6.001983  0.053714926 404.2295 6.001983
## 2016  0.040218824 436.1874 6.078072  0.076089182 443.1619 6.093935
## 2017  0.021811333 449.1728 6.107408  0.029335701 460.9355 6.133258
## 2018  0.021896521 473.6252 6.160416  0.053008623 494.7083 6.203968
##         Itcurr_dl      Ipr    Ipr_l       Ipr_dl       Ips      Ips_l
## 1972  0.175119873  34.6802 3.546169  0.202251135 0.8319747 -0.1839532
## 1973  0.136522654  40.7408 3.707230  0.161061128 0.8526426 -0.1594148
## 1974  0.078894202  43.4562 3.771754  0.064523487 0.8404772 -0.1737855
## 1975  0.004330682  42.6046 3.751962 -0.019791306 0.8204458 -0.1979075
## 1976  0.227487005  54.8103 4.003878  0.251915904 0.8407352 -0.1734786
## 1977  0.071752636  58.0810 4.061839  0.057960456 0.8292192 -0.1872708
## 1978  0.088999368  63.5016 4.151065  0.089226514 0.8294076 -0.1870436
## 1979  0.076947641  67.3335 4.209658  0.058592782 0.8143228 -0.2053985
## 1980 -0.008481014  66.7182 4.200478 -0.009180105 0.8137537 -0.2060976
## 1981 -0.077041397  60.5069 4.102757 -0.097720371 0.7970989 -0.2267765
## 1982  0.170434610  74.3033 4.308155  0.205397957 0.8254611 -0.1918132
## 1983  0.110552299  85.4245 4.447633  0.139477580 0.8496864 -0.1628879
## 1984  0.146233300 100.1616 4.606785  0.159151937 0.8607344 -0.1499693
## 1985  0.164893274 117.8955 4.769799  0.163013757 0.8591182 -0.1518488
## 1986  0.159422728 142.5232 4.959505  0.189706155 0.8855332 -0.1215654
## 1987  0.039848127 146.9391 4.990018  0.030513422 0.8773054 -0.1309001
## 1988 -0.032443930 138.9163 4.933872 -0.056146622 0.8567555 -0.1546028
## 1989  0.051195413 147.9904 4.997147  0.063275813 0.8671682 -0.1425224
## 1990  0.023256202 151.7278 5.022088  0.024940719 0.8686302 -0.1408378
## 1991 -0.001967874 152.2484 5.025513  0.003425272 0.8733275 -0.1354447
## 1992 -0.010771306 146.2377 4.985233 -0.040280017 0.8479332 -0.1649534
## 1993 -0.028167547 142.0716 4.956331 -0.028902224 0.8473105 -0.1656881
## 1994  0.080787834 154.4988 5.040186  0.083855173 0.8499135 -0.1626207
## 1995  0.104734625 171.9704 5.147322  0.107136040 0.8519569 -0.1602193
## 1996  0.055186063 180.1010 5.193518  0.046195436 0.8443316 -0.1692099
## 1997  0.111924954 204.9876 5.322949  0.129431685 0.8592433 -0.1517032
## 1998  0.069634496 223.7642 5.410593  0.087643329 0.8748574 -0.1336944
## 1999  0.015338485 225.7216 5.419302  0.008709563 0.8690772 -0.1403233
## 2000  0.094220465 248.6000 5.515845  0.096542798 0.8710978 -0.1380010
## 2001  0.023528688 250.9754 5.525355  0.009509747 0.8589712 -0.1520199
## 2002 -0.003828919 252.4538 5.531228  0.005873335 0.8673457 -0.1423177
## 2003  0.021528413 259.6529 5.559346  0.028117477 0.8730796 -0.1357286
## 2004  0.045298794 268.6095 5.593259  0.033912913 0.8631952 -0.1471145
## 2005  0.076161674 292.5684 5.678698  0.085439833 0.8712413 -0.1378363
## 2006  0.153470380 342.1227 5.835169  0.156470959 0.8738594 -0.1348357
## 2007  0.043371774 356.0117 5.874964  0.039794151 0.8707387 -0.1384134
## 2008  0.010865235 359.2993 5.884156  0.009192150 0.8692831 -0.1400864
## 2009 -0.173946126 293.4172 5.681595 -0.202560259 0.8447618 -0.1687006
## 2010 -0.057205022 268.4334 5.592603 -0.088992649 0.8183311 -0.2004882
## 2011  0.022101312 273.9989 5.613124  0.020521253 0.8170392 -0.2020683
## 2012  0.059282934 284.0299 5.649080  0.035955423 0.7982002 -0.2253958
## 2013  0.032655021 296.9606 5.693599  0.044519956 0.8077272 -0.2135308
## 2014  0.032155550 303.2137 5.714438  0.020838367 0.7986376 -0.2248480
## 2015  0.062696925 330.3715 5.800218  0.085779941 0.8172870 -0.2017650
## 2016  0.091952380 363.5839 5.896010  0.095792303 0.8204313 -0.1979251
## 2017  0.039322954 386.8215 5.957963  0.061953264 0.8392096 -0.1752948
## 2018  0.070710176 417.5263 6.034348  0.076384190 0.8439848 -0.1696208
##             Ips_dl        I      I_l          I_dl          r       r_l
## 1972  0.0271312622 147.4472 4.993470  0.1203245772  1.2671869 1.2267870
## 1973  0.0245384747 159.1696 5.069970  0.0765001849  1.7625137 1.3624067
## 1974 -0.0143707153 145.6606 4.981279 -0.0886913345  2.2897845 1.4890432
## 1975 -0.0241219876 128.5430 4.856264 -0.1250155329 -0.5608925 0.4588007
## 1976  0.0244288990 153.6958 5.034975  0.1787117823  5.0191124 1.9688144
## 1977 -0.0137921807 150.6919 5.015238 -0.0197377947  6.7454124 2.1847561
## 1978  0.0002271467 153.8208 5.035789  0.0205510502  7.2004812 2.2346862
## 1979 -0.0183548597 151.9186 5.023345 -0.0124438207  9.0329552 2.4137707
## 1980 -0.0006990911 137.6918 4.925018 -0.0983266203  9.1070677 2.4203802
## 1981 -0.0206789738 112.2892 4.721077 -0.2039408931  7.7926949 2.2961406
## 1982  0.0349633476 125.9347 4.835763  0.1146858559  9.4017046 2.4462327
## 1983  0.0289252806 135.3432 4.907814  0.0720509224  6.5689859 2.1647075
## 1984  0.0129186364 151.2915 5.019208  0.1113941401  7.9753266 2.3143550
## 1985 -0.0018795164 171.9559 5.147238  0.1280300938  6.9795579 2.2107577
## 1986  0.0302834266 209.6092 5.345245  0.1980067718  7.5789164 2.2743897
## 1987 -0.0093347051 214.1705 5.366773  0.0215274857  6.2386826 2.1260568
## 1988 -0.0237026919 197.2744 5.284595 -0.0821770503  5.7005568 2.0597010
## 1989  0.0120804007 203.8070 5.317173  0.0325778736  4.5107439 1.8951899
## 1990  0.0016845171 203.6556 5.316431 -0.0007428402  7.8239392 2.2992803
## 1991  0.0053931455 199.9954 5.298294 -0.0181361841  6.4392971 2.1497095
## 1992 -0.0295087116 193.1834 5.263640 -0.0346545926  7.2146216 2.2361984
## 1993 -0.0007346771 187.9389 5.236117 -0.0275229007  6.6813356 2.1775210
## 1994  0.0030673392 201.4489 5.305536  0.0694187489  6.1679380 2.1175806
## 1995  0.0024014150 223.2685 5.408375  0.1028395485  6.8991361 2.2019029
## 1996 -0.0089906275 233.0371 5.451198  0.0428226498  5.0736237 1.9763966
## 1997  0.0175067310 261.3606 5.565901  0.1147031612  4.1524535 1.8398385
## 1998  0.0180088331 283.7954 5.648254  0.0823526901  3.6627272 1.7588566
## 1999 -0.0066289218 281.1841 5.639010 -0.0092440053  3.1718090 1.6705098
## 2000  0.0023223328 304.8535 5.719831  0.0808216715  2.5452127 1.5450659
## 2001 -0.0140189411 299.2059 5.701132 -0.0186992045  2.4986586 1.5350864
## 2002  0.0097022548 295.1944 5.687634 -0.0134978982  2.6501368 1.5671992
## 2003  0.0065890649 302.0140 5.710473  0.0228392309  2.7868735 1.5953271
## 2004 -0.0113858814 309.0965 5.733653  0.0231799517  2.1590196 1.4591003
## 2005  0.0092781597 330.5174 5.800659  0.0670059238  0.4796357 0.9642057
## 2006  0.0030005794 376.8237 5.931778  0.1311182392  1.6985550 1.3458949
## 2007 -0.0035776230 378.0706 5.935081  0.0033032806  1.8136077 1.3754042
## 2008 -0.0016730850 368.0154 5.908125 -0.0269559808  0.1395380 0.8253177
## 2009 -0.0286141324 311.2583 5.740623 -0.1675016951  3.0448691 1.6463361
## 2010 -0.0317876269 284.1922 5.649651 -0.0909725134 -0.2848877 0.6195976
## 2011 -0.0015800582 284.8457 5.651948  0.0022968613  2.0780853 1.4401083
## 2012 -0.0233275116 288.6668 5.665273  0.0133255856 -0.9525585 0.1743812
## 2013  0.0118649352 300.0950 5.704099  0.0388259445  0.8542418 1.0977151
## 2014 -0.0113171829 305.9494 5.723420  0.0193207936  0.2849503 0.8870753
## 2015  0.0230830163 330.3715 5.800218  0.0767979420  0.2558312 0.8750099
## 2016  0.0038399230 357.8618 5.880147  0.0799291045  0.0652387 0.7922259
## 2017  0.0226303105 376.9501 5.932113  0.0519660119 -0.6462049 0.4033715
## 2018  0.0056740140 399.7325 5.990796  0.0586826367 -0.3923645 0.5600176
##              r_dl         P      P_l        P_dl        Pm     Pm_l
## 1972 -0.462154737  16.88952 2.826693 0.091677668  26.02241 3.258958
## 1973  0.135619703  18.68324 2.927627 0.100933452  28.33216 3.343998
## 1974  0.126636553  21.16184 3.052200 0.124572754  36.87114 3.607429
## 1975 -1.030242565  23.98817 3.177561 0.125361396  38.65438 3.654660
## 1976  1.510013760  26.23829 3.267220 0.089658698  41.43428 3.724108
## 1977  0.215941647  28.56716 3.352258 0.085038272  44.38971 3.793008
## 1978  0.049930080  31.12528 3.438020 0.085762332  45.45364 3.816693
## 1979  0.179084521  33.32538 3.506319 0.068299062  50.55771 3.923115
## 1980  0.006609493  36.26153 3.590757 0.084438108  60.42618 4.101422
## 1981 -0.124239531  40.13932 3.692356 0.101599069  69.51622 4.241560
## 1982  0.150092086  44.21127 3.788980 0.096623281  77.63259 4.351987
## 1983 -0.281525179  47.47664 3.860238 0.071258136  80.87111 4.392857
## 1984  0.149647446  50.30596 3.918124 0.057885745  86.99024 4.465796
## 1985 -0.103597327  52.46457 3.960138 0.042014428  88.41159 4.482003
## 1986  0.063632065  53.67943 3.983030 0.022891843  79.73016 4.378648
## 1987 -0.148332962  56.23172 4.029481 0.046451122  77.30332 4.347737
## 1988 -0.066355722  58.44983 4.068169 0.038687689  78.36065 4.361322
## 1989 -0.164511171  61.35203 4.116628 0.048459489  82.41344 4.411749
## 1990  0.404090460  62.94868 4.142320 0.025691596  81.80595 4.404350
## 1991 -0.149570833  64.62277 4.168567 0.026247041  83.43533 4.424072
## 1992  0.086488896  65.69287 4.184990 0.016423501  82.69199 4.415123
## 1993 -0.058677404  66.07383 4.190773 0.005782432  81.54150 4.401112
## 1994 -0.059940361  67.10822 4.206307 0.015533751  82.01277 4.406875
## 1995  0.084322302  67.96881 4.219049 0.012742370  82.64968 4.414611
## 1996 -0.225506332  69.33782 4.238991 0.019941677  82.81004 4.416549
## 1997 -0.136558131  70.73423 4.258930 0.019939083  84.94248 4.441974
## 1998 -0.080981919  71.60578 4.271176 0.012246138  83.43160 4.424027
## 1999 -0.088346725  72.81216 4.287883 0.016707193  83.26164 4.421988
## 2000 -0.125443948  75.00961 4.317616 0.029733286  89.49480 4.494180
## 2001 -0.009979518  76.89866 4.342489 0.024872254  90.99272 4.510779
## 2002  0.032112841  78.70397 4.365694 0.023205140  88.96242 4.488214
## 2003  0.028127875  79.87023 4.380403 0.014709579  87.31380 4.469509
## 2004 -0.136226735  81.54410 4.401144 0.020740747  88.26239 4.480314
## 2005 -0.494894691  83.91412 4.429794 0.028649886  91.43276 4.515604
## 2006  0.381689226  85.65632 4.450343 0.020549210  94.61162 4.549780
## 2007  0.029509271  87.73973 4.474375 0.024031715  96.26050 4.567058
## 2008 -0.550086467  91.36750 4.514890 0.040514996  99.23653 4.597506
## 2009  0.821018419  91.85085 4.520166 0.005276283  90.66864 4.507212
## 2010 -1.026738536  94.81219 4.551898 0.031731903  96.93930 4.574085
## 2011  0.820510769  95.41770 4.558264 0.006366124 100.13977 4.606567
## 2012 -1.265727138  97.68404 4.581738 0.023474149 102.53971 4.630250
## 2013  0.923333888  98.55165 4.590581 0.008842500 102.07885 4.625746
## 2014 -0.210639758  99.56881 4.600849 0.010268188  99.67836 4.601949
## 2015 -0.012065446 100.00000 4.605170 0.004321258 100.00000 4.605170
## 2016 -0.082783950 100.25460 4.607713 0.002542717  95.97701 4.564109
## 2017 -0.388854414 101.39101 4.618984 0.011271535  97.84336 4.583368
## 2018  0.156646075 102.24846 4.627406 0.008421269 100.48907 4.610049
##             Pm_dl        Px     Px_l        Px_dl        X      X_l
## 1972  0.045617851  23.46816 3.155645  0.063221413  181.662 5.202148
## 1973  0.085039548  26.41906 3.274086  0.118440897  196.841 5.282396
## 1974  0.263431472  31.35545 3.445388  0.171302439  203.562 5.315971
## 1975  0.047231060  33.80084 3.520486  0.075097735  202.088 5.308703
## 1976  0.069448320  36.40300 3.594651  0.074165304  209.021 5.342435
## 1977  0.068899299  39.14289 3.667219  0.072567714  216.517 5.377669
## 1978  0.023685233  41.57278 3.727446  0.060226766  219.540 5.391534
## 1979  0.106422440  44.45323 3.794438  0.066992047  243.446 5.494895
## 1980  0.178307054  50.69161 3.925760  0.131322777  257.032 5.549201
## 1981  0.140137577  56.93435 4.041899  0.116138522  279.295 5.632269
## 1982  0.110427223  62.67320 4.137934  0.096035088  288.133 5.663422
## 1983  0.040869315  66.10288 4.191212  0.053278285  301.376 5.708359
## 1984  0.072939372  71.36105 4.267752  0.076539910  311.316 5.740808
## 1985  0.016207075  73.27482 4.294217  0.026464852  330.109 5.799423
## 1986 -0.103355120  68.80650 4.231298 -0.062918748  334.530 5.812727
## 1987 -0.030910973  67.64359 4.214253 -0.017045638  350.780 5.860159
## 1988  0.013584877  68.29807 4.223882  0.009628888  382.848 5.947638
## 1989  0.050426680  72.64089 4.285528  0.061646435  400.680 5.993163
## 1990 -0.007398590  73.00797 4.290569  0.005040600  426.831 6.056388
## 1991  0.019721933  74.05053 4.304748  0.014179069  453.179 6.116287
## 1992 -0.008949142  75.06367 4.318337  0.013589112  454.406 6.118991
## 1993 -0.014010652  73.80666 4.301449 -0.016887777  459.992 6.131209
## 1994  0.005762917  73.52131 4.297575 -0.003873632  497.875 6.210349
## 1995  0.007735989  74.20274 4.306801  0.009225676  511.405 6.237162
## 1996  0.001938364  75.34918 4.322133  0.015332007  535.244 6.282723
## 1997  0.025425013  77.37298 4.348638  0.026504658  559.383 6.326834
## 1998 -0.017947197  75.73505 4.327241 -0.021396554  582.330 6.367037
## 1999 -0.002039226  75.38976 4.322671 -0.004569652  647.991 6.473877
## 2000  0.072192560  81.54936 4.401208  0.078536980  729.722 6.592664
## 2001  0.016599005  82.83887 4.416897  0.015688968  754.225 6.625691
## 2002 -0.022565473  81.89514 4.405440 -0.011457803  787.052 6.668294
## 2003 -0.018705504  81.00555 4.394518 -0.010921915  777.538 6.656133
## 2004  0.010805552  82.58575 4.413837  0.019319505  801.061 6.685937
## 2005  0.035289747  87.13420 4.467450  0.053612309  863.706 6.761232
## 2006  0.034176506  89.55070 4.494805  0.027355396  952.992 6.859607
## 2007  0.017277699  90.62483 4.506728  0.011923305  987.811 6.895491
## 2008  0.030448129  95.11742 4.555112  0.048383964 1026.059 6.933481
## 2009 -0.090294644  87.13425 4.467450 -0.087662090  931.411 6.836701
## 2010  0.066873498  95.42518 4.558342  0.090892346  958.796 6.865678
## 2011  0.032481880  96.71129 4.571730  0.013387757 1027.780 6.935156
## 2012  0.023683256  99.56951 4.600856  0.029125850 1039.725 6.946712
## 2013 -0.004504602 100.14577 4.606627  0.005770800 1056.479 6.962697
## 2014 -0.023796948  99.30628 4.598209 -0.008418059 1089.535 6.993506
## 2015  0.003221595 100.00000 4.605170  0.006961401 1128.511 7.028654
## 2016 -0.041061450  95.84711 4.562754 -0.042415871 1174.910 7.068947
## 2017  0.019259069  97.55544 4.580421  0.017666527 1229.382 7.114267
## 2018  0.026681204  99.27844 4.597928  0.017507616 1258.768 7.137889
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1972  0.051286921  166.365 5.114184  0.011449907 0.6727075 -0.3964447
## 1973  0.080248479  195.974 5.277982  0.163797828 0.6598799 -0.4156974
## 1974  0.033574331  192.019 5.257594 -0.020387672 0.6796674 -0.3861517
## 1975 -0.007267381  182.488 5.206684 -0.050909908 0.6850258 -0.3782988
## 1976  0.033731479  213.112 5.361818  0.155133432 0.6723645 -0.3969546
## 1977  0.035234341  214.943 5.370373  0.008555028 0.6705149 -0.3997093
## 1978  0.013865382  217.027 5.380022  0.009648893 0.6662453 -0.4060974
## 1979  0.103360704  231.492 5.444545  0.064523546 0.6668733 -0.4051552
## 1980  0.054305439  218.611 5.387294 -0.057251421 0.6700861 -0.4003491
## 1981  0.083067980  219.825 5.392832  0.005537881 0.6547486 -0.4235039
## 1982  0.031153608  226.720 5.423716  0.030884001 0.6384455 -0.4487189
## 1983  0.044936476  231.188 5.443231  0.019515456 0.6275526 -0.4659278
## 1984  0.032449819  243.584 5.495462  0.052230620 0.6081055 -0.4974069
## 1985  0.058614429  267.771 5.590132  0.094670285 0.6033403 -0.5052740
## 1986  0.013303659  290.476 5.671521  0.081388819 0.6067138 -0.4996982
## 1987  0.047432685  287.053 5.659667 -0.011854089 0.6206222 -0.4770327
## 1988  0.087478797  299.179 5.701042  0.041375189 0.6205939 -0.4770783
## 1989  0.045525060  315.328 5.753613  0.052571310 0.6038179 -0.5044826
## 1990  0.063225047  322.819 5.777092  0.023478428 0.5969436 -0.5159326
## 1991  0.059899041  335.833 5.816614  0.039522218 0.5914192 -0.5252302
## 1992  0.002703881  335.393 5.815303 -0.001311034 0.5831454 -0.5393188
## 1993  0.012218026  330.647 5.801051 -0.014251638 0.5831331 -0.5393399
## 1994  0.079139943  374.587 5.925824  0.124772745 0.5601305 -0.5795854
## 1995  0.026812798  400.081 5.991667  0.065842941 0.5599599 -0.5798901
## 1996  0.045560878  412.609 6.022500  0.030833387 0.5601381 -0.5795720
## 1997  0.044111673  450.742 6.110895  0.088394700 0.5563908 -0.5862844
## 1998  0.040202907  484.913 6.183969  0.073074380 0.5672416 -0.5669700
## 1999  0.106839510  497.266 6.209125  0.025155601 0.5669260 -0.5675264
## 2000  0.118786832  565.441 6.337606  0.128480863 0.5490626 -0.5995428
## 2001  0.033027092  579.012 6.361323  0.023717245 0.5564338 -0.5862070
## 2002  0.042603588  615.907 6.423096  0.061772775 0.5594234 -0.5808486
## 2003 -0.012161802  609.549 6.412719 -0.010376639 0.5623653 -0.5756036
## 2004  0.029804582  653.151 6.481808  0.069089004 0.5494381 -0.5988591
## 2005  0.075295334  727.619 6.589778  0.107969217 0.5456778 -0.6057265
## 2006  0.098374076  829.233 6.720501  0.130723618 0.5431887 -0.6102986
## 2007  0.035884875  877.643 6.777240  0.056738728 0.5551244 -0.5885630
## 2008  0.037989145  919.509 6.823840  0.046599927 0.5594392 -0.5808204
## 2009 -0.096779888  809.686 6.696647 -0.127193314 0.5790283 -0.5464040
## 2010  0.028977690  814.064 6.702039  0.005392469 0.5534619 -0.5915624
## 2011  0.069478085  874.660 6.773835  0.071796252 0.5488182 -0.5999880
## 2012  0.011555119  898.354 6.800564  0.026728961 0.5381318 -0.6196518
## 2013  0.015985426  911.566 6.815164  0.014599800 0.5361262 -0.6233858
## 2014  0.030809319  947.087 6.853391  0.038226958 0.5339306 -0.6274893
## 2015  0.035148065  990.281 6.897989  0.044597783 0.5357666 -0.6240567
## 2016  0.040292484 1026.547 6.933956  0.035967281 0.5343299 -0.6267418
## 2017  0.045320055 1070.225 6.975624  0.041668164 0.5334013 -0.6284812
## 2018  0.023621861 1108.449 7.010717  0.035092834 0.5321309 -0.6308658
##             rulc_dl      ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1972 -0.03535530436 11.36171 2.430249  0.0563223634  69.03983 4.234684
## 1973 -0.01925268846 12.32869 2.511929  0.0816807639  70.22585 4.251716
## 1974  0.02954577527 14.38301 2.666048  0.1541185289  68.81203 4.231379
## 1975  0.00785285468 16.43252 2.799262  0.1332142505  67.52988 4.212570
## 1976 -0.01865581129 17.64169 2.870265  0.0710028870  69.91316 4.247254
## 1977 -0.00275470922 19.15471 2.952549  0.0822835628  70.46688 4.255143
## 1978 -0.00638804577 20.73707 3.031923  0.0793742867  70.85039 4.260571
## 1979  0.00094218615 22.22381 3.101164  0.0692412482  72.30958 4.280957
## 1980  0.00480607558 24.29835 3.190408  0.0892441836  71.66254 4.271968
## 1981 -0.02315483574 26.28116 3.268853  0.0784442332  71.62734 4.271477
## 1982 -0.02521495723 28.22649 3.340261  0.0714083242  73.76517 4.300887
## 1983 -0.01720887471 29.79409 3.394310  0.0540492613  75.30735 4.321578
## 1984 -0.03147912952 30.59133 3.420717  0.0264066151  77.32714 4.348045
## 1985 -0.00786707336 31.65399 3.454864  0.0341473544  78.68816 4.365493
## 1986  0.00557579778 32.56805 3.483332  0.0284676403  80.43712 4.387476
## 1987  0.02266547113 34.89866 3.552448  0.0691165927  79.38580 4.374319
## 1988 -0.00004558178 36.27361 3.591090  0.0386421068  78.93873 4.368672
## 1989 -0.02740428645 37.04545 3.612146  0.0210552023  78.99145 4.369340
## 1990 -0.01145002033 37.57681 3.626387  0.0142415753  79.83154 4.379919
## 1991 -0.00929762629 38.21915 3.643337  0.0169494144  81.01790 4.394670
## 1992 -0.01408858483 38.30849 3.645672  0.0023349157  82.70663 4.415300
## 1993 -0.00002107425 38.52984 3.651433  0.0057613575  83.35876 4.423154
## 1994 -0.04024553179 37.58936 3.626721 -0.0247117806  86.58384 4.461113
## 1995 -0.00030474083 38.05980 3.639159  0.0124376296  88.47433 4.482712
## 1996  0.00031817620 38.83875 3.659419  0.0202598536  90.03806 4.500232
## 1997 -0.00671240290 39.35587 3.672645  0.0132266800  91.58761 4.517296
## 1998  0.01931441828 40.61778 3.704206  0.0315605561  92.09848 4.522858
## 1999 -0.00055645501 41.27911 3.720357  0.0161507377  93.67843 4.539868
## 2000 -0.03201643374 41.18497 3.718073 -0.0022831478  95.89285 4.563231
## 2001  0.01333580723 42.78902 3.756281  0.0382080610  95.38230 4.557893
## 2002  0.00535840930 44.02885 3.784845  0.0285635494  95.20915 4.556076
## 2003  0.00524506284 44.91625 3.804800  0.0199546421  95.55671 4.559720
## 2004 -0.02325557943 44.80344 3.802285 -0.0025148326  97.83126 4.583244
## 2005 -0.00686739974 45.79007 3.824067  0.0217824861  98.56455 4.590712
## 2006 -0.00457203117 46.52754 3.840044  0.0159771788  99.92589 4.604429
## 2007  0.02173559055 48.70647 3.885812  0.0457673057  98.41200 4.589163
## 2008  0.00774259880 51.11456 3.934069  0.0482575952  96.46925 4.569224
## 2009  0.03441639097 53.18424 3.973762  0.0396926740  93.13475 4.534047
## 2010 -0.04515840680 52.47493 3.960336 -0.0134265041  96.10697 4.565462
## 2011 -0.00842556212 52.36697 3.958276 -0.0020594379  97.31488 4.577952
## 2012 -0.01966383682 52.56689 3.962086  0.0038103123  97.73032 4.582212
## 2013 -0.00373398410 52.83612 3.967195  0.0051085159  98.35322 4.588565
## 2014 -0.00410356018 53.16284 3.973360  0.0061646279  99.04841 4.595609
## 2015  0.00343265126 53.57666 3.981113  0.0077539095 100.00000 4.605170
## 2016 -0.00268513196 53.56903 3.980971 -0.0001424154 101.45650 4.619630
## 2017 -0.00173938078 54.08210 3.990503  0.0095321540 101.73933 4.622414
## 2018 -0.00238459192 54.40956 3.996540  0.0060366771 102.35110 4.628409
##             Tau_dl        dPxdPm         dPdPm     Trade
## 1972  0.0116953716  0.0176035619  0.0460598167 0.3640789
## 1973  0.0170329030  0.0334013490  0.0158939043 0.3947747
## 1974 -0.0203379207 -0.0921290332 -0.1388587182 0.4020671
## 1975 -0.0188083743  0.0278666755  0.0781303361 0.3966598
## 1976  0.0346838057  0.0047169840  0.0202103779 0.4110443
## 1977  0.0078888006  0.0036684151  0.0161389735 0.4124127
## 1978  0.0054277590  0.0365415325  0.0620770994 0.4082064
## 1979  0.0203861452 -0.0394303929 -0.0381233780 0.4275427
## 1980 -0.0089885368 -0.0469842771 -0.0938689458 0.4302554
## 1981 -0.0004913006 -0.0239990557 -0.0385385085 0.4545198
## 1982  0.0294098858 -0.0143921347 -0.0138039416 0.4521859
## 1983  0.0206909807  0.0124089696  0.0303888206 0.4559053
## 1984  0.0264673211  0.0036005379 -0.0150536271 0.4560273
## 1985  0.0174476495  0.0102577771  0.0258073531 0.4724341
## 1986  0.0219831297  0.0404363722  0.1262469626 0.4707806
## 1987 -0.0131563254  0.0138653356  0.0773620948 0.4792242
## 1988 -0.0056475280 -0.0039559887  0.0251028115 0.5124982
## 1989  0.0006677356  0.0112197557 -0.0019671910 0.5345837
## 1990  0.0105789875  0.0124391898  0.0330901859 0.5515645
## 1991  0.0147514633 -0.0055428638  0.0065251076 0.5725461
## 1992  0.0206296282  0.0225382538  0.0253726422 0.5621165
## 1993  0.0078539814 -0.0028771246  0.0197930838 0.5626543
## 1994  0.0379594660 -0.0096365483  0.0097708347 0.5894512
## 1995  0.0215992013  0.0014896873  0.0050063813 0.5977196
## 1996  0.0175200372  0.0133936430  0.0180033139 0.6040501
## 1997  0.0170635235  0.0010796454 -0.0054859301 0.6234062
## 1998  0.0055624346 -0.0034493565  0.0301933351 0.6443638
## 1999  0.0170095394 -0.0025304264  0.0187464183 0.6716652
## 2000  0.0233635159  0.0063444202 -0.0424592742 0.7321487
## 2001 -0.0053384384 -0.0009100368  0.0082732487 0.7475187
## 2002 -0.0018169214  0.0111076704  0.0457706136 0.7829589
## 2003  0.0036437838  0.0077835892  0.0334150834 0.7710935
## 2004  0.0235243079  0.0085139530  0.0099351947 0.7873995
## 2005  0.0074675095  0.0183225627 -0.0066398609 0.8419669
## 2006  0.0137171553 -0.0068211102 -0.0136272958 0.9074627
## 2007 -0.0152661044 -0.0053543946  0.0067540160 0.9412823
## 2008 -0.0199384016  0.0179358342  0.0100668670 0.9867590
## 2009 -0.0351769759  0.0026325546  0.0955709274 0.9286178
## 2010  0.0314144259  0.0240188470 -0.0351415958 0.9281921
## 2011  0.0124901094 -0.0190941226 -0.0261157556 0.9828958
## 2012  0.0042599298  0.0054425945 -0.0002091069 0.9990458
## 2013  0.0063534674  0.0102754021  0.0133471020 1.0051118
## 2014  0.0070433945  0.0153788890  0.0340651360 1.0235593
## 2015  0.0095614877  0.0037398067  0.0010996634 1.0404821
## 2016  0.0144599640 -0.0013544211  0.0436041668 1.0470888
## 2017  0.0027838413 -0.0015925418 -0.0079875345 1.0719454
## 2018  0.0059950613 -0.0091735884 -0.0182599352 1.0776904

Adjusted Dickey-fuller testet I(0)

adf.DNK.WS <- adf.test((DNK$WS), alternative = c("stationary"), k = 2)
adf.DNK.PS <- adf.test((DNK$PS), alternative = c("stationary"), k = 2)
adf.DNK.Y <- adf.test((DNK$Y), alternative = c("stationary"), k = 2)
adf.DNK.Yrw <- adf.test((DNK$Yrw), alternative = c("stationary"), k = 2)
adf.DNK.r <- adf.test((DNK$r), alternative = c("stationary"), k = 2)
adf.DNK.R <- adf.test((DNK$R), alternative = c("stationary"), k = 2)
adf.DNK.Tau <- adf.test((DNK$Tau), alternative = c("stationary"), k = 2)
adf.DNK.rulc <- adf.test((DNK$rulc), alternative = c("stationary"), k = 2)
adf.DNK.ulc <- adf.test((DNK$ulc), alternative = c("stationary"), k = 2)
adf.DNK.P <- adf.test((DNK$P), alternative = c("stationary"), k = 2)
adf.DNK.Pm <- adf.test((DNK$Pm), alternative = c("stationary"), k = 2)
adf.DNK.Px <- adf.test((DNK$Px), alternative = c("stationary"), k = 2)
adf.DNK.X <- adf.test((DNK$X), alternative = c("stationary"), k = 2)
adf.DNK.M <- adf.test((DNK$M), alternative = c("stationary"), k = 2)
adf.DNK.I <- adf.test((DNK$I), alternative = c("stationary"), k = 2)
adf.DNK.C <- adf.test((DNK$C), alternative = c("stationary"), k = 2)
adf.DNK.Ipr <- adf.test((DNK$Ipr), alternative = c("stationary"), k = 2)
adf.DNK.Ips <- adf.test((DNK$Ips), alternative = c("stationary"), k = 2)
adf.DNK.It <- adf.test((DNK$It), alternative = c("stationary"), k = 2)
adf.DNK.Itcurr <- adf.test((DNK$Itcurr), alternative = c("stationary"), k = 2)
adf.DNK.Yf <- adf.test((DNK$Yf), alternative = c("stationary"), k = 2)
adf.DNK.W <- adf.test((DNK$W), alternative = c("stationary"), k = 2)

adf.DNK.WS.pval <- adf.DNK.WS$p.value
adf.DNK.PS.pval <- adf.DNK.PS$p.value
adf.DNK.Y.pval <- adf.DNK.Y$p.value
adf.DNK.Yrw.pval <- adf.DNK.Yrw$p.value
adf.DNK.r.pval <- adf.DNK.r$p.value
adf.DNK.R.pval <- adf.DNK.R$p.value
adf.DNK.Tau.pval <- adf.DNK.Tau$p.value
adf.DNK.rulc.pval <- adf.DNK.rulc$p.value
adf.DNK.ulc.pval <- adf.DNK.ulc$p.value
adf.DNK.P.pval <- adf.DNK.P$p.value
adf.DNK.Pm.pval <- adf.DNK.Pm$p.value
adf.DNK.Px.pval <- adf.DNK.Px$p.value
adf.DNK.X.pval <- adf.DNK.X$p.value
adf.DNK.M.pval <- adf.DNK.M$p.value
adf.DNK.I.pval <- adf.DNK.I$p.value
adf.DNK.C.pval <- adf.DNK.C$p.value
adf.DNK.Ipr.pval <- adf.DNK.Ipr$p.value
adf.DNK.Ips.pval <- adf.DNK.Ips$p.value
adf.DNK.It.pval <- adf.DNK.It$p.value
adf.DNK.Itcurr.pval <- adf.DNK.Itcurr$p.value
adf.DNK.Yf.pval <- adf.DNK.Yf$p.value
adf.DNK.W.pval <- adf.DNK.W$p.value

adf.DNK_non <- rbind(adf.DNK.WS.pval,adf.DNK.PS.pval,adf.DNK.Y.pval,adf.DNK.Yrw.pval,adf.DNK.r.pval,adf.DNK.R.pval,adf.DNK.Tau.pval,adf.DNK.rulc.pval,adf.DNK.ulc.pval,adf.DNK.P.pval,adf.DNK.Pm.pval,adf.DNK.Px.pval,adf.DNK.X.pval,adf.DNK.M.pval,adf.DNK.I.pval,adf.DNK.C.pval,adf.DNK.Ipr.pval,adf.DNK.Ips.pval,adf.DNK.It.pval,adf.DNK.Itcurr.pval,adf.DNK.Yf.pval,adf.DNK.W.pval)


colnames(adf.DNK_non) <- c("DNK")
rownames(adf.DNK_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.DNK_non
##               DNK
## WS     0.39711327
## PS     0.39711327
## Y      0.33064006
## Yrw    0.35939230
## r      0.09894894
## R      0.38753305
## Tau    0.66856713
## rulc   0.62196476
## ulc    0.55645797
## P      0.48747067
## Pm     0.47882822
## Px     0.45573477
## X      0.58168171
## M      0.74546701
## I      0.08314385
## C      0.04154395
## Ipr    0.04382303
## Ips    0.49380137
## It     0.08728796
## Itcurr 0.05562404
## Yf     0.40653066
## W      0.16709002

Adjusted Dickey-fuller testet I(1)

adf.DNK.WS_dl <- adf.test((DNK$WS_dl), alternative = c("stationary"), k = 2)
adf.DNK.PS_dl <- adf.test((DNK$PS_dl), alternative = c("stationary"), k = 2)
adf.DNK.Y_dl <- adf.test((DNK$Y_dl), alternative = c("stationary"), k = 2)
adf.DNK.Yrw_dl <- adf.test((DNK$Yrw_dl), alternative = c("stationary"), k = 2)
adf.DNK.r_dl <- adf.test((DNK$r_dl), alternative = c("stationary"), k = 2)
adf.DNK.R_dl <- adf.test((DNK$R_dl), alternative = c("stationary"), k = 2)
adf.DNK.Tau_dl <- adf.test((DNK$Tau_dl), alternative = c("stationary"), k = 2)
adf.DNK.rulc_dl <- adf.test((DNK$rulc_dl), alternative = c("stationary"), k = 2)
adf.DNK.ulc_dl <- adf.test((DNK$ulc_dl), alternative = c("stationary"), k = 2)
adf.DNK.P_dl <- adf.test((DNK$P_dl), alternative = c("stationary"), k = 2)
adf.DNK.Pm_dl <- adf.test((DNK$Pm_dl), alternative = c("stationary"), k = 2)
adf.DNK.Px_dl <- adf.test((DNK$Px_dl), alternative = c("stationary"), k = 2)
adf.DNK.X_dl <- adf.test((DNK$X_dl), alternative = c("stationary"), k = 2)
adf.DNK.M_dl <- adf.test((DNK$M_dl), alternative = c("stationary"), k = 2)
adf.DNK.I_dl <- adf.test((DNK$I_dl), alternative = c("stationary"), k = 2)
adf.DNK.C_dl <- adf.test((DNK$C_dl), alternative = c("stationary"), k = 2)
adf.DNK.Ipr_dl <- adf.test((DNK$Ipr_dl), alternative = c("stationary"), k = 2)
adf.DNK.Ips_dl <- adf.test((DNK$Ips_dl), alternative = c("stationary"), k = 2)
adf.DNK.It_dl <- adf.test((DNK$It_dl), alternative = c("stationary"), k = 2)
adf.DNK.Itcurr_dl <- adf.test((DNK$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.DNK.Yf_dl <- adf.test((DNK$Yf_dl), alternative = c("stationary"), k = 2)
adf.DNK.W_dl <- adf.test((DNK$W_dl), alternative = c("stationary"), k = 2)

adf.DNK.WS_dl.pval <- adf.DNK.WS_dl$p.value
adf.DNK.PS_dl.pval <- adf.DNK.PS_dl$p.value
adf.DNK.Y_dl.pval <- adf.DNK.Y_dl$p.value
adf.DNK.Yrw_dl.pval <- adf.DNK.Yrw_dl$p.value
adf.DNK.r_dl.pval <- adf.DNK.r_dl$p.value
adf.DNK.R_dl.pval <- adf.DNK.R_dl$p.value
adf.DNK.Tau_dl.pval <- adf.DNK.Tau_dl$p.value
adf.DNK.rulc_dl.pval <- adf.DNK.rulc_dl$p.value
adf.DNK.ulc_dl.pval <- adf.DNK.ulc_dl$p.value
adf.DNK.P_dl.pval <- adf.DNK.P_dl$p.value
adf.DNK.Pm_dl.pval <- adf.DNK.Pm_dl$p.value
adf.DNK.Px_dl.pval <- adf.DNK.Px_dl$p.value
adf.DNK.X_dl.pval <- adf.DNK.X_dl$p.value
adf.DNK.M_dl.pval <- adf.DNK.M_dl$p.value
adf.DNK.I_dl.pval <- adf.DNK.I_dl$p.value
adf.DNK.C_dl.pval <- adf.DNK.C_dl$p.value
adf.DNK.Ipr_dl.pval <- adf.DNK.Ipr_dl$p.value
adf.DNK.Ips_dl.pval <- adf.DNK.Ips_dl$p.value
adf.DNK.It_dl.pval <- adf.DNK.It_dl$p.value
adf.DNK.Itcurr_dl.pval <- adf.DNK.Itcurr_dl$p.value
adf.DNK.Yf_dl.pval <- adf.DNK.Yf_dl$p.value
adf.DNK.W_dl.pval <- adf.DNK.W_dl$p.value

adf.DNK_dl <- rbind(adf.DNK.WS_dl.pval,adf.DNK.PS_dl.pval,adf.DNK.Y_dl.pval,adf.DNK.Yrw_dl.pval,adf.DNK.r_dl.pval,adf.DNK.R_dl.pval,adf.DNK.Tau_dl.pval,adf.DNK.rulc_dl.pval,adf.DNK.ulc_dl.pval,adf.DNK.P_dl.pval,adf.DNK.Pm_dl.pval,adf.DNK.Px_dl.pval,adf.DNK.X_dl.pval,adf.DNK.M_dl.pval,adf.DNK.I_dl.pval,adf.DNK.C_dl.pval,adf.DNK.Ipr_dl.pval,adf.DNK.Ips_dl.pval,adf.DNK.It_dl.pval,adf.DNK.Itcurr_dl.pval,adf.DNK.Yf_dl.pval,adf.DNK.W_dl.pval)
colnames(adf.DNK_dl) <- c("DNK")
rownames(adf.DNK_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.DNK_dl
##                     DNK
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.02620517
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01000000
## dlog(Tau)    0.01907560
## dlog(rulc)   0.01000000
## dlog(ulc)    0.23212349
## dlog(P)      0.44518808
## dlog(Pm)     0.04704967
## dlog(Px)     0.08001424
## dlog(X)      0.01000000
## dlog(M)      0.04148903
## dlog(I)      0.03830831
## dlog(C)      0.04147062
## dlog(Ipr)    0.02755360
## dlog(Ips)    0.04309108
## dlog(It)     0.02795302
## dlog(Itcurr) 0.01882491
## dlog(Yf)     0.03186404
## dlog(W)      0.07633237
adf.DNK <- NULL
adf.DNK <- rbind(adf.DNK_non,adf.DNK_dl)

Økonometriske test

#Consumption (C)
DNK_consumption <- dynlm(DNK$C_dl~DNK$R_dl+DNK$W_dl)
DNK_CR <- summary(DNK_consumption)$coefficients["DNK$R_dl","Estimate"]
DNK_CW <- summary(DNK_consumption)$coefficients["DNK$W_dl","Estimate"]
DNK_Ceffekt <- (DNK_CR*mean(DNK$C/DNK$R))-(DNK_CW*mean(DNK$C/DNK$W))
summary(DNK_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$C_dl ~ DNK$R_dl + DNK$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.032913 -0.008065 -0.000268  0.006782  0.045450 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept) 0.001871   0.003286   0.569      0.572    
## DNK$R_dl    0.257496   0.050985   5.050 0.00000816 ***
## DNK$W_dl    0.706513   0.141162   5.005 0.00000948 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01705 on 44 degrees of freedom
## Multiple R-squared:  0.516,  Adjusted R-squared:  0.494 
## F-statistic: 23.45 on 2 and 44 DF,  p-value: 0.0000001166
#Investments (I)
DNK_investment <- dynlm(DNK$I_dl~DNK$PS_l+DNK$Y_l)
DNK_iPS <- summary(DNK_investment)$coefficients["DNK$PS_l","Estimate"]
DNK_Ieffekt <- DNK_iPS*mean(DNK$I/DNK$R)
summary(DNK_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$I_dl ~ DNK$PS_l + DNK$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.176852 -0.044358  0.001033  0.042769  0.181210 
## 
## Coefficients:
##             Estimate Std. Error t value  Pr(>|t|)    
## (Intercept)  2.81201    0.74743   3.762  0.000494 ***
## DNK$PS_l     1.00472    0.23402   4.293 0.0000954 ***
## DNK$Y_l     -0.23149    0.07165  -3.231  0.002339 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07178 on 44 degrees of freedom
## Multiple R-squared:  0.298,  Adjusted R-squared:  0.2661 
## F-statistic:  9.34 on 2 and 44 DF,  p-value: 0.0004159
#Price deflator (P)
DNK_deflator <- dynlm(DNK$P_dl~L(DNK$ulc_dl)+DNK$Pm_dl)
DNK_ePULC <- summary(DNK_deflator)$coefficients["L(DNK$ulc_dl)","Estimate"]
summary(DNK_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$P_dl ~ L(DNK$ulc_dl) + DNK$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.035476 -0.008619 -0.002471  0.011435  0.034230 
## 
## Coefficients:
##               Estimate Std. Error t value         Pr(>|t|)    
## (Intercept)   0.012259   0.002829   4.334 0.00008386321572 ***
## L(DNK$ulc_dl) 0.661274   0.069938   9.455 0.00000000000365 ***
## DNK$Pm_dl     0.174145   0.041806   4.166         0.000143 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01406 on 44 degrees of freedom
## Multiple R-squared:  0.8443, Adjusted R-squared:  0.8373 
## F-statistic: 119.3 on 2 and 44 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
DNK_exportdeflator <- dynlm(DNK$Px_dl~DNK$ulc_l+DNK$Pm_dl)
DNK_ePX <- summary(DNK_exportdeflator)$coefficients["DNK$ulc_l","Estimate"]
summary(DNK_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$Px_dl ~ DNK$ulc_l + DNK$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.040585 -0.008132  0.000136  0.007043  0.040440 
## 
## Coefficients:
##              Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)  0.078159   0.024623   3.174              0.00274 ** 
## DNK$ulc_l   -0.018777   0.006671  -2.815              0.00728 ** 
## DNK$Pm_dl    0.697672   0.044675  15.617 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01555 on 44 degrees of freedom
## Multiple R-squared:  0.9083, Adjusted R-squared:  0.9041 
## F-statistic: 217.8 on 2 and 44 DF,  p-value: < 0.00000000000000022
#Exports (X)
DNK_exports <- dynlm(DNK$X_dl~DNK$dPxdPm+DNK$Yrw_dl)
DNK_eXP <- summary(DNK_exports)$coefficients["DNK$dPxdPm","Estimate"]
DNK_Xeffekt <- -(DNK_eXP*DNK_ePX*(1/(1-DNK_ePULC))*mean(DNK$Yf/DNK$Y)*(mean(DNK$X/DNK$Y)/mean(DNK$rulc)))
summary(DNK_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$X_dl ~ DNK$dPxdPm + DNK$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.053114 -0.017489 -0.000695  0.016522  0.057865 
## 
## Coefficients:
##              Estimate Std. Error t value    Pr(>|t|)    
## (Intercept)  0.004839   0.007591   0.637     0.52713    
## DNK$dPxdPm  -0.598161   0.184505  -3.242     0.00227 ** 
## DNK$Yrw_dl   1.478753   0.251398   5.882 0.000000503 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02669 on 44 degrees of freedom
## Multiple R-squared:  0.4664, Adjusted R-squared:  0.4422 
## F-statistic: 19.23 on 2 and 44 DF,  p-value: 0.0000009965
#Imports (M)
DNK_imports <- dynlm(DNK$M_dl~DNK$dPdPm+L(DNK$Y_dl)+L(DNK$M_l))
DNK_eMP <- summary(DNK_imports)$coefficients["DNK$dPdPm","Estimate"]
DNK_eMP <- 0
DNK_Meffekt <- -(DNK_eMP*DNK_ePULC*(1/(1-DNK_ePULC))*mean(DNK$Yf/DNK$Y)*(mean(DNK$M/DNK$Y)/mean(DNK$rulc)))
summary(DNK_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$M_dl ~ DNK$dPdPm + L(DNK$Y_dl) + L(DNK$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.052963 -0.021601 -0.001141  0.024933  0.089592 
## 
## Coefficients:
##              Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) -0.099940   0.051631  -1.936          0.0595 .  
## DNK$dPdPm   -0.119661   0.112936  -1.060          0.2953    
## L(DNK$Y_dl)  2.193094   0.250452   8.757 0.0000000000413 ***
## L(DNK$M_l)   0.016687   0.008328   2.004          0.0514 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03341 on 43 degrees of freedom
## Multiple R-squared:  0.6453, Adjusted R-squared:  0.6206 
## F-statistic: 26.08 on 3 and 43 DF,  p-value: 0.0000000009066
names(DNK_consumption$coefficients) <- sub("DNK$","",names(DNK_consumption$coefficients),fixed=TRUE)
names(DNK_investment$coefficients) <- sub("DNK$","",names(DNK_investment$coefficients),fixed=TRUE)
names(DNK_deflator$coefficients) <- sub("DNK$","",names(DNK_deflator$coefficients),fixed=TRUE)
names(DNK_exportdeflator$coefficients) <- sub("DNK$","",names(DNK_exportdeflator$coefficients),fixed=TRUE)
names(DNK_exports$coefficients) <- sub("DNK$","",names(DNK_exports$coefficients),fixed=TRUE)
names(DNK_imports$coefficients) <- sub("DNK$","",names(DNK_imports$coefficients),fixed=TRUE)

DNK_Xeffekt
## [1] -0.01822092
DNK_Meffekt
## [1] 0
#Nettoeksport (NX)
DNK_NXeffekt <- DNK_Xeffekt - DNK_Meffekt

DNK_NXeffekt
## [1] -0.01822092
#Nettoeffekten
DNK_Neteffekt = DNK_Ceffekt + DNK_Ieffekt + DNK_NXeffekt

DNK_Neteffekt
## [1] 0.3325172
DNK_Lukket <- DNK_Ceffekt + DNK_Ieffekt
DNK_Lukket_Konklusion <- ifelse(DNK_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
DNK_Lukket_Konklusion
## [1] "Profit-led domestic"
DNK_Def <- ifelse(DNK_Neteffekt > 0, "Profit-led", "Wage-led")
DNK_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=DNK_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.034601 -0.004653 -0.000366  0.008750  0.015233 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.818708   1.000953  -1.817   0.0835 .
## z.diff.lag1   1.057239   0.929231   1.138   0.2680  
## z.diff.lag2   0.903136   0.891800   1.013   0.3227  
## z.diff.lag3   0.750567   0.827204   0.907   0.3745  
## z.diff.lag4   0.656515   0.751373   0.874   0.3921  
## z.diff.lag5   0.443406   0.690939   0.642   0.5280  
## z.diff.lag6   0.311282   0.585990   0.531   0.6008  
## z.diff.lag7   0.115196   0.496404   0.232   0.8187  
## z.diff.lag8   0.314770   0.408457   0.771   0.4495  
## z.diff.lag9   0.008169   0.337789   0.024   0.9809  
## z.diff.lag10  0.130551   0.272770   0.479   0.6372  
## z.diff.lag11  0.170552   0.233109   0.732   0.4725  
## z.diff.lag12 -0.055364   0.166993  -0.332   0.7435  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01422 on 21 degrees of freedom
## Multiple R-squared:  0.6053, Adjusted R-squared:  0.3609 
## F-statistic: 2.477 on 13 and 21 DF,  p-value: 0.03115
## 
## 
## Value of test-statistic is: -1.817 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DNK_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.082381 -0.034141 -0.001478  0.027765  0.064287 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.70980    0.48601  -1.460    0.159
## z.diff.lag1   0.14649    0.44845   0.327    0.747
## z.diff.lag2   0.19762    0.42442   0.466    0.646
## z.diff.lag3   0.38783    0.40661   0.954    0.351
## z.diff.lag4   0.33034    0.39311   0.840    0.410
## z.diff.lag5   0.05250    0.37865   0.139    0.891
## z.diff.lag6  -0.14695    0.33599  -0.437    0.666
## z.diff.lag7  -0.13536    0.30415  -0.445    0.661
## z.diff.lag8   0.08679    0.25005   0.347    0.732
## z.diff.lag9   0.10447    0.23478   0.445    0.661
## z.diff.lag10  0.07042    0.22423   0.314    0.757
## z.diff.lag11 -0.01533    0.18782  -0.082    0.936
## z.diff.lag12 -0.12732    0.14965  -0.851    0.404
## 
## Residual standard error: 0.05248 on 21 degrees of freedom
## Multiple R-squared:  0.4671, Adjusted R-squared:  0.1371 
## F-statistic: 1.416 on 13 and 21 DF,  p-value: 0.2317
## 
## 
## Value of test-statistic is: -1.4605 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DNK_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.027316 -0.012943  0.001949  0.020614  0.034828 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.82122    0.74649  -1.100    0.284
## z.diff.lag1  -0.12384    0.73419  -0.169    0.868
## z.diff.lag2  -0.14533    0.71239  -0.204    0.840
## z.diff.lag3  -0.39058    0.67209  -0.581    0.567
## z.diff.lag4  -0.60709    0.63507  -0.956    0.350
## z.diff.lag5  -0.54711    0.59846  -0.914    0.371
## z.diff.lag6  -0.14767    0.52800  -0.280    0.782
## z.diff.lag7  -0.43373    0.47465  -0.914    0.371
## z.diff.lag8  -0.34703    0.40894  -0.849    0.406
## z.diff.lag9  -0.03079    0.35358  -0.087    0.931
## z.diff.lag10 -0.05083    0.28979  -0.175    0.862
## z.diff.lag11  0.03675    0.25254   0.146    0.886
## z.diff.lag12  0.04621    0.22459   0.206    0.839
## 
## Residual standard error: 0.02344 on 21 degrees of freedom
## Multiple R-squared:  0.7526, Adjusted R-squared:  0.5995 
## F-statistic: 4.914 on 13 and 21 DF,  p-value: 0.0006433
## 
## 
## Value of test-statistic is: -1.1001 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DNK_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.052885 -0.014750  0.001941  0.027217  0.050489 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.34738    0.86221  -1.563    0.133
## z.diff.lag1   0.38508    0.80511   0.478    0.637
## z.diff.lag2   0.36526    0.73408   0.498    0.624
## z.diff.lag3   0.48269    0.67003   0.720    0.479
## z.diff.lag4   0.49716    0.60953   0.816    0.424
## z.diff.lag5   0.34840    0.57095   0.610    0.548
## z.diff.lag6   0.38483    0.52672   0.731    0.473
## z.diff.lag7   0.41444    0.48430   0.856    0.402
## z.diff.lag8   0.29812    0.44621   0.668    0.511
## z.diff.lag9   0.21083    0.41582   0.507    0.617
## z.diff.lag10 -0.03566    0.39248  -0.091    0.928
## z.diff.lag11 -0.14958    0.32322  -0.463    0.648
## z.diff.lag12 -0.07035    0.19938  -0.353    0.728
## 
## Residual standard error: 0.03373 on 21 degrees of freedom
## Multiple R-squared:  0.5314, Adjusted R-squared:  0.2414 
## F-statistic: 1.832 on 13 and 21 DF,  p-value: 0.1049
## 
## 
## Value of test-statistic is: -1.5627 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(DNK_consumption)

plot(DNK_investment)

plot(DNK_deflator)

plot(DNK_exportdeflator)

plot(DNK_exports)

plot(DNK_imports)

bptest(DNK_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  DNK_consumption
## BP = 1.1762, df = 2, p-value = 0.5554
bptest(DNK_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  DNK_investment
## BP = 6.2858, df = 2, p-value = 0.04316
bptest(DNK_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  DNK_deflator
## BP = 16.489, df = 2, p-value = 0.0002627
bptest(DNK_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  DNK_exportdeflator
## BP = 7.7678, df = 2, p-value = 0.02057
bptest(DNK_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  DNK_exports
## BP = 1.788, df = 2, p-value = 0.409
bptest(DNK_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  DNK_imports
## BP = 2.4945, df = 3, p-value = 0.4763
resettest(DNK_consumption)
## 
##  RESET test
## 
## data:  DNK_consumption
## RESET = 1.9402, df1 = 2, df2 = 42, p-value = 0.1563
resettest(DNK_investment)
## 
##  RESET test
## 
## data:  DNK_investment
## RESET = 2.069, df1 = 2, df2 = 42, p-value = 0.139
resettest(DNK_deflator)
## 
##  RESET test
## 
## data:  DNK_deflator
## RESET = 9.4581, df1 = 2, df2 = 42, p-value = 0.0004063
resettest(DNK_exportdeflator)
## 
##  RESET test
## 
## data:  DNK_exportdeflator
## RESET = 11.492, df1 = 2, df2 = 42, p-value = 0.0001045
resettest(DNK_exports)
## 
##  RESET test
## 
## data:  DNK_exports
## RESET = 2.7107, df1 = 2, df2 = 42, p-value = 0.07812
resettest(DNK_imports)
## 
##  RESET test
## 
## data:  DNK_imports
## RESET = 2.881, df1 = 2, df2 = 41, p-value = 0.06749

Resultater

DNK_regtab <- matrix(c(DNK_Ceffekt, DNK_Ieffekt, DNK_Lukket, DNK_Xeffekt, DNK_Meffekt, DNK_NXeffekt, DNK_Neteffekt,DNK_Lukket_Konklusion, DNK_Def),ncol=9,byrow=TRUE)
colnames(DNK_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(DNK_regtab) <- c("DNK")
DNK_regtab <- as.table(DNK_regtab)
DNK_regtab
##     consumption        investment       Lukket neteffekt 
## DNK -0.164202968964362 0.51494110594295 0.350738136978588
##     exports             imports netexports          neteffect        
## DNK -0.0182209156862252 0       -0.0182209156862252 0.332517221292363
##     Lukket konklusion   Konklusion
## DNK Profit-led domestic Profit-led
DNK_smoke <- matrix(c(mean(DNK$C/DNK$R), mean(DNK$C/DNK$W), mean(DNK$I/DNK$R), DNK_CR, DNK_CW, DNK_iPS, DNK_ePULC, (1/(1-DNK_ePULC)), DNK_eXP, DNK_ePX, DNK_eMP, mean(DNK$Yf/DNK$Y), mean(DNK$X/DNK$Y), mean(DNK$rulc), (mean(DNK$X/DNK$Y)/mean(DNK$rulc))),ncol=15,byrow=TRUE)
colnames(DNK_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(DNK_smoke) <- c("DNK")
DNK_smoke <- as.table(DNK_smoke)
DNK_smoke
##             C/R         C/W         I/R          CR          CW
## DNK  1.64837271  0.83317951  0.51252129  0.25749563  0.70651250
##             iPS       ePULC   1/1-epulc         eXP         ePX
## DNK  1.00472140  0.66127376  2.95223658 -0.59816085 -0.01877693
##             eMP        Yf/Y         X/Y        RULC  (X/Y)/rulc
## DNK  0.00000000  0.88929959  0.36493793  0.59059601  0.61791465

Summary af regressioner

summary(DNK_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$C_dl ~ DNK$R_dl + DNK$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.032913 -0.008065 -0.000268  0.006782  0.045450 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept) 0.001871   0.003286   0.569      0.572    
## R_dl        0.257496   0.050985   5.050 0.00000816 ***
## W_dl        0.706513   0.141162   5.005 0.00000948 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01705 on 44 degrees of freedom
## Multiple R-squared:  0.516,  Adjusted R-squared:  0.494 
## F-statistic: 23.45 on 2 and 44 DF,  p-value: 0.0000001166
summary(DNK_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$I_dl ~ DNK$PS_l + DNK$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.176852 -0.044358  0.001033  0.042769  0.181210 
## 
## Coefficients:
##             Estimate Std. Error t value  Pr(>|t|)    
## (Intercept)  2.81201    0.74743   3.762  0.000494 ***
## PS_l         1.00472    0.23402   4.293 0.0000954 ***
## Y_l         -0.23149    0.07165  -3.231  0.002339 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07178 on 44 degrees of freedom
## Multiple R-squared:  0.298,  Adjusted R-squared:  0.2661 
## F-statistic:  9.34 on 2 and 44 DF,  p-value: 0.0004159
summary(DNK_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$P_dl ~ L(DNK$ulc_dl) + DNK$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.035476 -0.008619 -0.002471  0.011435  0.034230 
## 
## Coefficients:
##             Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) 0.012259   0.002829   4.334 0.00008386321572 ***
## L(ulc_dl)   0.661274   0.069938   9.455 0.00000000000365 ***
## Pm_dl       0.174145   0.041806   4.166         0.000143 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01406 on 44 degrees of freedom
## Multiple R-squared:  0.8443, Adjusted R-squared:  0.8373 
## F-statistic: 119.3 on 2 and 44 DF,  p-value: < 0.00000000000000022
summary(DNK_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$Px_dl ~ DNK$ulc_l + DNK$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.040585 -0.008132  0.000136  0.007043  0.040440 
## 
## Coefficients:
##              Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)  0.078159   0.024623   3.174              0.00274 ** 
## ulc_l       -0.018777   0.006671  -2.815              0.00728 ** 
## Pm_dl        0.697672   0.044675  15.617 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01555 on 44 degrees of freedom
## Multiple R-squared:  0.9083, Adjusted R-squared:  0.9041 
## F-statistic: 217.8 on 2 and 44 DF,  p-value: < 0.00000000000000022
summary(DNK_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$X_dl ~ DNK$dPxdPm + DNK$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.053114 -0.017489 -0.000695  0.016522  0.057865 
## 
## Coefficients:
##              Estimate Std. Error t value    Pr(>|t|)    
## (Intercept)  0.004839   0.007591   0.637     0.52713    
## dPxdPm      -0.598161   0.184505  -3.242     0.00227 ** 
## Yrw_dl       1.478753   0.251398   5.882 0.000000503 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02669 on 44 degrees of freedom
## Multiple R-squared:  0.4664, Adjusted R-squared:  0.4422 
## F-statistic: 19.23 on 2 and 44 DF,  p-value: 0.0000009965
summary(DNK_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = DNK$M_dl ~ DNK$dPdPm + L(DNK$Y_dl) + L(DNK$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.052963 -0.021601 -0.001141  0.024933  0.089592 
## 
## Coefficients:
##              Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) -0.099940   0.051631  -1.936          0.0595 .  
## dPdPm       -0.119661   0.112936  -1.060          0.2953    
## L(Y_dl)      2.193094   0.250452   8.757 0.0000000000413 ***
## L(M_l)       0.016687   0.008328   2.004          0.0514 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03341 on 43 degrees of freedom
## Multiple R-squared:  0.6453, Adjusted R-squared:  0.6206 
## F-statistic: 26.08 on 3 and 43 DF,  p-value: 0.0000000009066

Finland analyse

Test for NA værdier

FIN_df[!complete.cases(FIN_df),]
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1960 0.7433935 -0.2965298           NA 0.2566065 -1.3602115           NA
## 1961 0.7208137 -0.3273746 -0.030844838 0.2791863 -1.2758758  0.084335607
## 2019 0.5986222 -0.5131246 -0.003514465 0.4013778 -0.9128522  0.005264593
## 2020 0.6183628 -0.4806799  0.032444703 0.3816372 -0.9632850 -0.050432785
## 2021 0.6144674 -0.4869994 -0.006319571 0.3855326 -0.9531295  0.010155508
## 2022        NA         NA           NA        NA         NA           NA
##             Y      Y_l         Y_dl           Yrw    Yrw_l     Yrw_dl
## 1960  43.5988 3.775030           NA 8931055365355 29.82056         NA
## 1961  46.9144 3.848325  0.073295038 9351148073737 29.86652 0.04596455
## 2019 229.7234 5.436876  0.009748156            NA       NA         NA
## 2020 215.1727 5.371441 -0.065435015            NA       NA         NA
## 2021 223.0772 5.407518  0.036076938            NA       NA         NA
## 2022       NA       NA           NA            NA       NA         NA
##           Tax        Yf     Yf_l       Yf_dl        C      C_l
## 1960  0.36266  43.23614 3.766677          NA  22.6038 3.118118
## 1961  0.39942  46.51498 3.839774  0.07309769  24.3284 3.191644
## 2019 34.00200 195.72140 5.276692  0.00794322 122.2427 4.806008
## 2020 31.87192 183.30078 5.211128 -0.06556381 112.5855 4.723713
## 2021 34.42268 188.65452 5.239917  0.02878900 118.1022 4.771550
## 2022       NA        NA       NA          NA       NA       NA
##              C_dl         W      W_l         W_dl        R      R_l
## 1960           NA  32.14146 3.470147           NA 11.09468 2.406465
## 1961  0.073526358  33.52863 3.512400  0.042252854 12.98635 2.563899
## 2019  0.009591617 117.16318 4.763568  0.004428755 78.55822 4.363840
## 2020 -0.082295480 113.34639 4.730449 -0.033119106 69.95439 4.247843
## 2021  0.047837418 115.92205 4.752918  0.022469425 72.73247 4.286788
## 2022           NA        NA       NA           NA       NA       NA
##             R_dl       It     It_l        It_dl   Itcurr    Itcurr_l
## 1960          NA 12.46648 2.523043           NA  0.83637 -0.17868418
## 1961  0.15743330 13.60722 2.610601  0.087557092  0.93551 -0.06666344
## 2019  0.01320781 52.25899 3.956212 -0.007554205 56.81600  4.03981798
## 2020 -0.11599659 47.13761 3.853071 -0.103140737 52.11925  3.95353436
## 2021  0.03894450 51.42713 3.940166  0.087094658 57.88562  4.05846899
## 2022          NA       NA       NA           NA       NA          NA
##        Itcurr_dl      Ipr      Ipr_l      Ipr_dl       Ips      Ips_l
## 1960          NA  0.69870 -0.3585338          NA 0.8353958 -0.1798496
## 1961  0.11202074  0.79632 -0.2277542  0.13077965 0.8512148 -0.1610907
## 2019  0.01771190 46.76000  3.8450281  0.01735373 0.8230076 -0.1947898
## 2020 -0.08628361 41.17854  3.7179172 -0.12711089 0.7900831 -0.2356171
## 2021  0.10493463 46.86140  3.8471943  0.12927706 0.8095517 -0.2112747
## 2022          NA       NA         NA          NA        NA         NA
##             Ips_dl        I      I_l        I_dl         r      r_l
## 1960            NA 10.41445 2.343194          NA        NA       NA
## 1961  0.0187589133 11.58267 2.449510  0.10631601  1.175426 2.569204
## 2019 -0.0003581747 43.00955 3.761422 -0.00791238 -1.668267 2.323538
## 2020 -0.0408272758 37.24263 3.617454 -0.14396801        NA       NA
## 2021  0.0243424298 41.63292 3.728891  0.11143709        NA       NA
## 2022            NA       NA       NA          NA        NA       NA
##             r_dl          P      P_l       P_dl        Pm     Pm_l
## 1960          NA   6.510430 1.873406         NA  10.27317 2.329535
## 1961          NA   6.858203 1.925445 0.05203998  10.36010 2.337962
## 2019 -0.05346327 104.507430 4.649258 0.01752315 105.02802 4.654227
## 2020          NA 106.339436 4.666636 0.01737803 103.16450 4.636325
## 2021          NA 108.288027 4.684795 0.01815839 103.68390 4.641347
## 2022          NA         NA       NA         NA        NA       NA
##             Pm_dl        Px     Px_l        Px_dl        X      X_l
## 1960           NA  12.59357 2.533186           NA  4.77514 1.563423
## 1961  0.008426142  12.86945 2.554856  0.021670012  5.02067 1.613563
## 2019  0.002821003 104.24193 4.646714 -0.006734419 92.06948 4.522544
## 2020 -0.017902352 103.62266 4.640756 -0.005958412 82.25536 4.409829
## 2021  0.005021957 104.24439 4.646738  0.005982071 88.28832 4.480608
## 2022           NA        NA       NA           NA       NA       NA
##             X_dl        M      M_l        M_dl      rulc     rulc_l
## 1960          NA  6.11456 1.810673          NA 0.7372099 -0.3048827
## 1961  0.05014010  6.60741 1.888192  0.07751893 0.7146768 -0.3359249
## 2019  0.06908102 90.26829 4.502786  0.02182441 0.5100185 -0.6733083
## 2020 -0.11271495 82.49076 4.412686 -0.09009995 0.5267694 -0.6409924
## 2021  0.07077927 89.17475 4.490598  0.07791164 0.5196499 -0.6545999
## 2022          NA       NA       NA          NA        NA         NA
##           rulc_dl       ulc    ulc_l      ulc_dl       Tau    Tau_l
## 1960           NA  4.799553 1.568523          NA  42.46210 3.748612
## 1961 -0.031042184  4.901399 1.589521 0.020997792  44.08170 3.786045
## 2019 -0.005319401 53.300720 3.975950 0.012203745 102.84879 4.633260
## 2020  0.032315909 56.016359 4.025644 0.049693943  97.45331 4.579373
## 2021 -0.013607514 56.271864 4.030195 0.004550874  99.82693 4.603438
## 2022           NA        NA       NA          NA        NA       NA
##            Tau_dl        dPxdPm      dPdPm     Trade
## 1960           NA            NA         NA 0.2497706
## 1961  0.037432801  0.0132438699 0.04361383 0.2478574
## 2019 -0.002703559 -0.0095554221 0.01470214 0.7937275
## 2020 -0.053886478  0.0119439400 0.03528039 0.7656460
## 2021  0.024064592  0.0009601142 0.01313643 0.7955231
## 2022           NA            NA         NA        NA
FIN <- FIN_df[3:59,]
FIN[!complete.cases(FIN),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
FIN %>% head()
##             WS       WS_l        WS_dl        PS      PS_l       PS_dl
## 1962 0.7339776 -0.3092768  0.018097835 0.2660224 -1.324175 -0.04829888
## 1963 0.7424185 -0.2978421  0.011434640 0.2575815 -1.356419 -0.03224448
## 1964 0.7524050 -0.2844806  0.013361557 0.2475950 -1.395961 -0.03954157
## 1965 0.7592689 -0.2753993  0.009081327 0.2407311 -1.424075 -0.02811403
## 1966 0.7688514 -0.2628575  0.012541711 0.2311486 -1.464695 -0.04061973
## 1967 0.7657081 -0.2669542 -0.004096673 0.2342919 -1.451188  0.01350694
##            Y      Y_l       Y_dl            Yrw    Yrw_l     Yrw_dl
## 1962 48.3133 3.877707 0.02938222  9901117485257 29.92367 0.05714850
## 1963 49.9005 3.910031 0.03232414 10447743252033 29.97741 0.05373837
## 1964 52.5146 3.961091 0.05106020 11127925564517 30.04048 0.06307177
## 1965 55.2994 4.012762 0.05167083 11742033747805 30.09420 0.05371727
## 1966 56.6115 4.036212 0.02345009 12456413551355 30.15326 0.05906060
## 1967 57.8393 4.057668 0.02145633 13033381855439 30.19854 0.04527827
##          Tax       Yf     Yf_l      Yf_dl       C      C_l       C_dl
## 1962 0.43329 47.88001 3.868698 0.02892368 25.7914 3.250041 0.05839671
## 1963 0.44878 49.45172 3.900997 0.03229875 26.9301 3.293245 0.04320352
## 1964 0.50068 52.01392 3.951511 0.05051453 28.4167 3.346977 0.05373238
## 1965 0.56978 54.72962 4.002405 0.05089369 30.0044 3.401344 0.05436704
## 1966 0.62509 55.98641 4.025109 0.02270392 30.7692 3.426514 0.02517015
## 1967 0.73588 57.10342 4.044864 0.01975503 31.4173 3.447359 0.02084451
##             W      W_l       W_dl        R      R_l           R_dl
## 1962 35.14285 3.559421 0.04702151 12.73716 2.544523 -0.01937520180
## 1963 36.71387 3.603155 0.04373339 12.73785 2.544578  0.00005426723
## 1964 39.13553 3.667031 0.06387609 12.87839 2.555551  0.01097296112
## 1965 41.55450 3.727006 0.05997501 13.17512 2.578330  0.02277965886
## 1966 43.04523 3.762251 0.03524563 12.94118 2.560414 -0.01791581422
## 1967 43.72455 3.777910 0.01565835 13.37887 2.593676  0.03326196532
##            It     It_l        It_dl  Itcurr     Itcurr_l   Itcurr_dl
## 1962 13.67988 2.615926  0.005325606 0.98764 -0.012437020 0.054226424
## 1963 13.27312 2.585741 -0.030185203 0.99529 -0.004721127 0.007715893
## 1964 14.07833 2.644637  0.058895798 1.10592  0.100677568 0.105398695
## 1965 15.54914 2.744005  0.099368596 1.27870  0.245843937 0.145166369
## 1966 16.16249 2.782693  0.038687794 1.37766  0.320386408 0.074542471
## 1967 15.96327 2.770290 -0.012402667 1.43289  0.359693384 0.039306976
##          Ipr       Ipr_l      Ipr_dl       Ips      Ips_l       Ips_dl
## 1962 0.83573 -0.17944968  0.04830448 0.8461889 -0.1670127 -0.005921944
## 1963 0.82434 -0.19317221 -0.01372253 0.8282410 -0.1884511 -0.021438421
## 1964 0.89086 -0.11556799  0.07760422 0.8055375 -0.2162456 -0.027794473
## 1965 1.02789  0.02750816  0.14307615 0.8038555 -0.2183358 -0.002090221
## 1966 1.11738  0.11098666  0.08347850 0.8110709 -0.2093997  0.008936031
## 1967 1.15461  0.14376262  0.03277597 0.8057911 -0.2159308 -0.006531011
##             I      I_l          I_dl         r      r_l        r_dl
## 1962 11.57576 2.448913 -0.0005963384 2.9969608 2.699814  0.13060985
## 1963 10.99334 2.397290 -0.0516236241 2.6661706 2.677328 -0.02248598
## 1964 11.34062 2.428391  0.0311013256 1.1515973 2.567378 -0.10995074
## 1965 12.49926 2.525670  0.0972783749 3.4246793 2.728159  0.16078157
## 1966 13.10893 2.573293  0.0476238246 3.5196911 2.734348  0.00618883
## 1967 12.86306 2.554360 -0.0189336778 0.7712889 2.537760 -0.19658825
##             P      P_l       P_dl       Pm     Pm_l      Pm_dl       Px
## 1962 7.130744 1.964416 0.03897012 10.53104 2.354327 0.01636508 12.81257
## 1963 7.497736 2.014601 0.05018550 10.64965 2.365527 0.01120008 13.03733
## 1964 8.035756 2.083901 0.06929997 10.87935 2.386867 0.02134009 13.82215
## 1965 8.439415 2.132913 0.04901195 11.03285 2.400877 0.01401004 14.50596
## 1966 8.838097 2.179072 0.04615848 11.19936 2.415856 0.01497945 14.37384
## 1967 9.488751 2.250107 0.07103546 11.81904 2.469712 0.05385521 14.74356
##          Px_l        Px_dl       X      X_l       X_dl       M      M_l
## 1962 2.550426 -0.004429551 5.37563 1.681876 0.06831239 6.97830 1.942805
## 1963 2.567817  0.017390671 5.49331 1.703531 0.02165521 6.78434 1.914617
## 1964 2.626272  0.058455040 5.81249 1.760009 0.05647806 8.18181 2.101913
## 1965 2.674560  0.048287616 6.13869 1.814611 0.05460231 8.85795 2.181315
## 1966 2.665410 -0.009150065 6.53189 1.876696 0.06208497 9.17138 2.216088
## 1967 2.690806  0.025396418 6.92052 1.934491 0.05779458 9.14345 2.213038
##             M_dl      rulc     rulc_l      rulc_dl      ulc    ulc_l
## 1962  0.05461359 0.7273950 -0.3182856  0.017639293 5.186868 1.646130
## 1963 -0.02818832 0.7357416 -0.3068763  0.011409253 5.516396 1.707725
## 1964  0.18729638 0.7452315 -0.2940604  0.012815888 5.988498 1.789841
## 1965  0.07940196 0.7514458 -0.2857563  0.008304181 6.341763 1.847157
## 1966  0.03477240 0.7603619 -0.2739607  0.011795545 6.720152 1.905111
## 1967 -0.00304999 0.7559661 -0.2797587 -0.005797977 7.173174 1.970348
##          ulc_dl      Tau    Tau_l      Tau_dl       dPxdPm      dPdPm
## 1962 0.05660941 44.48728 3.795203 0.009158508 -0.020794630 0.02260504
## 1963 0.06159476 44.95429 3.805646 0.010442922  0.006190594 0.03898543
## 1964 0.08211586 46.38517 3.836980 0.031333634  0.037114949 0.04795988
## 1965 0.05731613 47.46040 3.859896 0.022915966  0.034277575 0.03500190
## 1966 0.05795403 47.51480 3.861041 0.001145432 -0.024129517 0.03117903
## 1967 0.06523748 48.16655 3.874665 0.013623531 -0.028458788 0.01718025
##          Trade
## 1962 0.2557045
## 1963 0.2460426
## 1964 0.2664840
## 1965 0.2711899
## 1966 0.2773866
## 1967 0.2777345

DATA

FIN %>% head(100)
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1962 0.7339776 -0.3092768  0.018097835 0.2660224 -1.3241747 -0.048298880
## 1963 0.7424185 -0.2978421  0.011434640 0.2575815 -1.3564192 -0.032244483
## 1964 0.7524050 -0.2844806  0.013361557 0.2475950 -1.3959608 -0.039541574
## 1965 0.7592689 -0.2753993  0.009081327 0.2407311 -1.4240748 -0.028114028
## 1966 0.7688514 -0.2628575  0.012541711 0.2311486 -1.4646945 -0.040619735
## 1967 0.7657081 -0.2669542 -0.004096673 0.2342919 -1.4511876  0.013506938
## 1968 0.7352466 -0.3075493 -0.040595095 0.2647534 -1.3289565  0.122231129
## 1969 0.6972517 -0.3606088 -0.053059466 0.3027483 -1.1948536  0.134102894
## 1970 0.6949508 -0.3639142 -0.003305391 0.3050492 -1.1872823  0.007571259
## 1971 0.7246452 -0.3220731  0.041841118 0.2753548 -1.2896950 -0.102412684
## 1972 0.7191005 -0.3297542 -0.007681151 0.2808995 -1.2697582  0.019936819
## 1973 0.7092561 -0.3435386 -0.013784387 0.2907439 -1.2353125  0.034445694
## 1974 0.6881565 -0.3737391 -0.030200461 0.3118435 -1.1652537  0.070058804
## 1975 0.7380013 -0.3038097  0.069929321 0.2619987 -1.3394156 -0.174161931
## 1976 0.7504468 -0.2870866  0.016723182 0.2495532 -1.3880831 -0.048667433
## 1977 0.7393559 -0.3019759 -0.014889363 0.2606441 -1.3445993  0.043483756
## 1978 0.7042220 -0.3506617 -0.048685787 0.2957780 -1.2181459  0.126453360
## 1979 0.6881002 -0.3738208 -0.023159060 0.3118998 -1.1650734  0.053072532
## 1980 0.7001582 -0.3564490  0.017371797 0.2998418 -1.2045003 -0.039426881
## 1981 0.7189025 -0.3300295  0.026419432 0.2810975 -1.2690537 -0.064553415
## 1982 0.7063028 -0.3477112 -0.017681664 0.2936972 -1.2252061  0.043847629
## 1983 0.6943854 -0.3647281 -0.017016943 0.3056146 -1.1854305  0.039775622
## 1984 0.6926774 -0.3671909 -0.002462801 0.3073226 -1.1798572  0.005573274
## 1985 0.7066114 -0.3472745  0.019916472 0.2933886 -1.2262571 -0.046399952
## 1986 0.7038810 -0.3511460 -0.003871491 0.2961190 -1.2169939  0.009263224
## 1987 0.7116072 -0.3402292  0.010916790 0.2883928 -1.2434319 -0.026438021
## 1988 0.6958764 -0.3625832 -0.022354028 0.3041236 -1.1903211  0.053110792
## 1989 0.6921541 -0.3679466 -0.005363444 0.3078459 -1.1781560  0.012165146
## 1990 0.7073002 -0.3463001  0.021646563 0.2926998 -1.2286078 -0.050451815
## 1991 0.7402200 -0.3008078  0.045492294 0.2597800 -1.3479203 -0.119312516
## 1992 0.7189925 -0.3299044 -0.029096568 0.2810075 -1.2693739  0.078546399
## 1993 0.6736633 -0.3950248 -0.065120488 0.3263367 -1.1198256  0.149548296
## 1994 0.6475843 -0.4345063 -0.039481460 0.3524157 -1.0429438  0.076881790
## 1995 0.6279011 -0.4653726 -0.030866350 0.3720989 -0.9885955  0.054348304
## 1996 0.6363832 -0.4519544  0.013418245 0.3636168 -1.0116547 -0.023059142
## 1997 0.6207113 -0.4768892 -0.024934829 0.3792887 -0.9694576  0.042197105
## 1998 0.6084438 -0.4968508 -0.019961536 0.3915562 -0.9376262  0.031831408
## 1999 0.6095323 -0.4950634  0.001787354 0.3904677 -0.9404099 -0.002783745
## 2000 0.5971956 -0.5155106 -0.020447230 0.4028044 -0.9093041  0.031105807
## 2001 0.5901450 -0.5273871 -0.011876446 0.4098550 -0.8919517  0.017352377
## 2002 0.5939366 -0.5209827  0.006404397 0.4060634 -0.9012460 -0.009294258
## 2003 0.5979568 -0.5142368  0.006745922 0.4020432 -0.9111957 -0.009949747
## 2004 0.5922252 -0.5238684 -0.009631610 0.4077748 -0.8970401  0.014155614
## 2005 0.6001214 -0.5106233  0.013245113 0.3998786 -0.9165943 -0.019554226
## 2006 0.6010813 -0.5090250  0.001598225 0.3989187 -0.9189977 -0.002403354
## 2007 0.5828789 -0.5397758 -0.030750765 0.4171211 -0.8743787  0.044618970
## 2008 0.5962964 -0.5170175  0.022758340 0.4037036 -0.9070743 -0.032695537
## 2009 0.6366928 -0.4514680  0.065549472 0.3633072 -1.0125065 -0.105432265
## 2010 0.6239179 -0.4717364 -0.020268425 0.3760821 -0.9779479  0.034558607
## 2011 0.6294680 -0.4628803  0.008856125 0.3705320 -0.9928154 -0.014867486
## 2012 0.6444359 -0.4393799  0.023500390 0.3555641 -1.0340498 -0.041234350
## 2013 0.6409022 -0.4448784 -0.005498478 0.3590978 -1.0241605  0.009889213
## 2014 0.6356298 -0.4531389 -0.008260523 0.3643702 -1.0095850  0.014575557
## 2015 0.6291507 -0.4633844 -0.010245529 0.3708493 -0.9919595  0.017625442
## 2016 0.6222379 -0.4744328 -0.011048410 0.3777621 -0.9734905  0.018469004
## 2017 0.5973797 -0.5152023 -0.040769470 0.4026203 -0.9097614  0.063729141
## 2018 0.6007298 -0.5096101  0.005592210 0.3992702 -0.9181168 -0.008355381
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1962  48.3133 3.877707  0.029382220  9901117485257 29.92367  0.0571485037
## 1963  49.9005 3.910031  0.032324138 10447743252033 29.97741  0.0537383703
## 1964  52.5146 3.961091  0.051060203 11127925564517 30.04048  0.0630717672
## 1965  55.2994 4.012762  0.051670832 11742033747805 30.09420  0.0537172662
## 1966  56.6115 4.036212  0.023450086 12456413551355 30.15326  0.0590606032
## 1967  57.8393 4.057668  0.021456331 13033381855439 30.19854  0.0452782663
## 1968  59.1715 4.080440  0.022771532 13849384533188 30.25926  0.0607268924
## 1969  64.8480 4.172046  0.091606063 14651545642571 30.31557  0.0563050409
## 1970  69.6924 4.244091  0.072045203 15037567976954 30.34157  0.0260057673
## 1971  71.3351 4.267388  0.023297219 15634349880518 30.38049  0.0389188072
## 1972  76.8532 4.341897  0.074508616 16512296377060 30.43513  0.0546349293
## 1973  82.2204 4.409403  0.067506338 17561308575188 30.49672  0.0615927673
## 1974  84.8815 4.441256  0.031852720 17777147419023 30.50893  0.0122156739
## 1975  87.6929 4.473841  0.032584772 17762092566969 30.50809 -0.0008472242
## 1976  88.0989 4.478460  0.004619109 18643299694852 30.55651  0.0484202605
## 1977  88.3469 4.481271  0.002811063 19369372529293 30.59471  0.0382062671
## 1978  91.0855 4.511799  0.030527515 20169521364419 30.63519  0.0404795387
## 1979  97.5903 4.580778  0.068979477 21004521209341 30.67576  0.0405650886
## 1980 103.0482 4.635197  0.054418737 21321992097491 30.69076  0.0150013227
## 1981 104.4048 4.648276  0.013078811 21748538868284 30.71057  0.0198075439
## 1982 107.6496 4.678882  0.030605857 21729091292504 30.70967 -0.0008946015
## 1983 111.0041 4.709567  0.030685630 22316625982551 30.73635  0.0266799851
## 1984 114.5981 4.741431  0.031864087 23331618400610 30.78083  0.0444774931
## 1985 118.6645 4.776300  0.034868959 24166325136526 30.81598  0.0351506872
## 1986 121.9339 4.803479  0.027178911 24944758437215 30.84768  0.0317035766
## 1987 126.2924 4.838600  0.035120759 25823584639195 30.88231  0.0346244902
## 1988 132.8816 4.889459  0.050858653 27078844956293 30.92977  0.0474645865
## 1989 139.6410 4.939075  0.049616337 28141476026338 30.96827  0.0384917092
## 1990 140.5779 4.945762  0.006686940 29031797702644 30.99941  0.0311471985
## 1991 132.3030 4.885095 -0.060667037 29474451025688 31.01454  0.0151321194
## 1992 127.9445 4.851597 -0.033498170 30085568485246 31.03507  0.0205217833
## 1993 127.0983 4.844961 -0.006635773 30449615385115 31.04709  0.0120277586
## 1994 132.1362 4.883833  0.038872406 31414400342948 31.07829  0.0311930344
## 1995 137.7091 4.925143  0.041310280 32330785146835 31.10704  0.0287534794
## 1996 142.7593 4.961160  0.036016506 33288351678019 31.13623  0.0291876595
## 1997 151.8020 5.022577  0.061417045 34402442218628 31.16915  0.0329200203
## 1998 160.0859 5.075711  0.053133506 35341089633141 31.19607  0.0269187427
## 1999 167.0971 5.118575  0.042864534 36494121014824 31.22817  0.0321048803
## 2000 176.7442 5.174703  0.056128409 37965785176668 31.26771  0.0395341845
## 2001 181.3568 5.200466  0.025762872 38537972449360 31.28267  0.0149586886
## 2002 184.4527 5.217393  0.016926700 39126036005104 31.29781  0.0151440753
## 2003 188.1486 5.237232  0.019839014 39987630080365 31.31959  0.0217820304
## 2004 195.6602 5.276379  0.039147405 41315002904246 31.35225  0.0326555422
## 2005 201.0988 5.303796  0.027416848 42498417101447 31.38049  0.0282411301
## 2006 209.1979 5.343281  0.039484364 43826830116990 31.41127  0.0307793590
## 2007 220.2833 5.394914  0.051633751 45055602443436 31.43892  0.0276511473
## 2008 222.0104 5.402724  0.007809782 45231304086591 31.44281  0.0038920785
## 2009 204.0839 5.318531 -0.084193044 43735341388796 31.40918 -0.0336329127
## 2010 210.5858 5.349893  0.031361987 45034657081346 31.43845  0.0292758480
## 2011 215.9506 5.375050  0.025156507 45873386845831 31.45691  0.0184527909
## 2012 212.9330 5.360978 -0.014072116 46464820849856 31.46972  0.0128103438
## 2013 211.0123 5.351916 -0.009061137 47135492549133 31.48405  0.0143307891
## 2014 210.2422 5.348260 -0.003656226 48091848177712 31.50413  0.0200864116
## 2015 211.3850 5.353681  0.005420916 49212518270692 31.52717  0.0230353413
## 2016 217.1146 5.380425  0.026744209 50050502163196 31.54405  0.0168845114
## 2017 223.8460 5.410958  0.030532991 51203998651645 31.56684  0.0227850887
## 2018 227.4949 5.427128  0.016169505 52349323255318 31.58896  0.0221213823
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1962  0.43329  47.88001 3.868698  0.028923678  25.7914 3.250041
## 1963  0.44878  49.45172 3.900997  0.032298751  26.9301 3.293245
## 1964  0.50068  52.01392 3.951511  0.050514535  28.4167 3.346977
## 1965  0.56978  54.72962 4.002405  0.050893687  30.0044 3.401344
## 1966  0.62509  55.98641 4.025109  0.022703921  30.7692 3.426514
## 1967  0.73588  57.10342 4.044864  0.019755027  31.4173 3.447359
## 1968  0.86692  58.30458 4.065681  0.020816640  31.4383 3.448027
## 1969  0.95559  63.89241 4.157201  0.091519926  34.8122 3.549968
## 1970  1.02451  68.66789 4.229282  0.072081121  37.4486 3.622969
## 1971  1.15708  70.17802 4.251035  0.021753461  38.0991 3.640191
## 1972  1.34956  75.50364 4.324181  0.073145710  41.2734 3.720218
## 1973  1.59054  80.62986 4.389869  0.065688185  43.7085 3.777543
## 1974  1.89790  82.98360 4.418643  0.028773946  44.4728 3.794878
## 1975  2.17700  85.51590 4.448702  0.030059326  45.7618 3.823450
## 1976  2.48600  85.61290 4.449836  0.001133649  46.5558 3.840652
## 1977  2.96200  85.38490 4.447169 -0.002666703  46.4202 3.837735
## 1978  3.33700  87.74850 4.474475  0.027305498  47.7605 3.866199
## 1979  3.81200  93.77830 4.540933  0.066458718  50.5554 3.923070
## 1980  4.36200  98.68620 4.591945  0.051011633  51.8771 3.948877
## 1981  5.04200  99.36280 4.598778  0.006832679  52.6377 3.963433
## 1982  5.64700 102.00260 4.624998  0.026220505  55.3412 4.013518
## 1983  6.29600 104.70810 4.651176  0.026178176  57.0616 4.044131
## 1984  7.42800 107.17010 4.674417  0.023240813  58.9437 4.076583
## 1985  8.17400 110.49050 4.704930  0.030512253  61.3472 4.116550
## 1986  8.99800 112.93590 4.726820  0.021890857  63.8780 4.156975
## 1987  9.85900 116.43340 4.757319  0.030499035  66.8760 4.202840
## 1988 11.99800 120.88360 4.794828  0.037508663  70.5914 4.256908
## 1989 13.24500 126.39600 4.839420  0.044591737  73.8894 4.302569
## 1990 13.39900 127.17890 4.845595  0.006174921  73.6724 4.299628
## 1991 12.86200 119.44100 4.782823 -0.062772231  71.4438 4.268911
## 1992 12.29600 115.64850 4.750555 -0.032267107  68.4536 4.226156
## 1993 12.16100 114.93730 4.744387 -0.006168656  66.6302 4.199158
## 1994 12.88200 119.25420 4.781257  0.036870587  68.3639 4.224845
## 1995 13.59100 124.11810 4.821234  0.039976182  71.7328 4.272948
## 1996 14.16800 128.59130 4.856639  0.035405626  74.4352 4.309929
## 1997 16.00000 135.80200 4.911198  0.054558785  77.0391 4.344313
## 1998 16.97900 143.10690 4.963592  0.052393961  80.7556 4.391427
## 1999 17.76400 149.33310 5.006179  0.042587478  83.4569 4.424330
## 2000 18.42400 158.32020 5.064620  0.058440183  85.2116 4.445138
## 2001 18.74200 162.61480 5.091384  0.026764649  87.4978 4.471614
## 2002 19.71400 164.73870 5.104361  0.012976368  89.6843 4.496296
## 2003 20.79700 167.35160 5.120097  0.015736406  93.3853 4.536734
## 2004 21.11700 174.54320 5.162172  0.042075287  96.8881 4.573557
## 2005 22.04000 179.05880 5.187714  0.025541968  99.9647 4.604817
## 2006 23.01600 186.18190 5.226724  0.039009909 103.8838 4.643273
## 2007 23.82500 196.45830 5.280450  0.053726042 107.5217 4.677693
## 2008 24.26700 197.74340 5.286970  0.006520036 109.6373 4.697178
## 2009 23.53100 180.55290 5.196024 -0.090946421 106.4345 4.667530
## 2010 24.37800 186.20780 5.226863  0.030839445 109.6241 4.697057
## 2011 27.37100 188.57960 5.239520  0.012656945 112.7970 4.725590
## 2012 28.32000 184.61300 5.218262 -0.021258457 113.2309 4.729429
## 2013 29.47300 181.53930 5.201472 -0.016789583 112.6398 4.724195
## 2014 29.72700 180.51520 5.195815 -0.005657174 113.3228 4.730240
## 2015 29.91300 181.47200 5.201101  0.005286387 115.1440 4.746184
## 2016 31.36000 185.75460 5.224426  0.023325076 117.8752 4.769626
## 2017 31.86100 191.98500 5.257417  0.032990796 119.0133 4.779235
## 2018 33.32200 194.17290 5.268749  0.011331755 121.0758 4.796417
##               C_dl         W      W_l         W_dl        R      R_l
## 1962  0.0583967108  35.14285 3.559421  0.047021514 12.73716 2.544523
## 1963  0.0432035171  36.71387 3.603155  0.043733390 12.73785 2.544578
## 1964  0.0537323804  39.13553 3.667031  0.063876092 12.87839 2.555551
## 1965  0.0543670371  41.55450 3.727006  0.059975014 13.17512 2.578330
## 1966  0.0251701521  43.04523 3.762251  0.035245632 12.94118 2.560414
## 1967  0.0208445070  43.72455 3.777910  0.015658354 13.37887 2.593676
## 1968  0.0006681982  42.86824 3.758131 -0.019778456 15.43634 2.736724
## 1969  0.1019410052  44.54909 3.796592  0.038460459 19.34332 2.962347
## 1970  0.0730014260  47.72081 3.865368  0.068775729 20.94708 3.041999
## 1971  0.0172213337  50.85417 3.928962  0.063594580 19.32385 2.961340
## 1972  0.0800275649  54.29470 3.994427  0.065464560 21.20894 3.054423
## 1973  0.0573243665  57.18722 4.046330  0.051903798 23.44264 3.154557
## 1974  0.0173351751  57.10570 4.044904 -0.001426515 25.87790 3.253389
## 1975  0.0285719156  63.11084 4.144893  0.099988646 22.40506 3.109287
## 1976  0.0172019112  64.24792 4.162749  0.017856832 21.36498 3.061753
## 1977 -0.0029168838  63.12983 4.145193 -0.017556065 22.25507 3.102570
## 1978  0.0284642287  61.79442 4.123813 -0.021380289 25.95408 3.256329
## 1979  0.0568708266  64.52887 4.167113  0.043299658 29.24943 3.375860
## 1980  0.0258076950  69.09595 4.235496  0.068383431 29.59025 3.387445
## 1981  0.0145551334  71.43217 4.268748  0.033252112 27.93063 3.329724
## 1982  0.0500850652  72.04473 4.277287  0.008538841 29.95787 3.399792
## 1983  0.0306137278  72.70778 4.286448  0.009161233 32.00032 3.465746
## 1984  0.0324513650  74.23430 4.307226  0.020778012 32.93580 3.494560
## 1985  0.0399667793  78.07384 4.357655  0.050428725 32.41666 3.478672
## 1986  0.0404254838  79.49344 4.375674  0.018019365 33.44246 3.509826
## 1987  0.0458651442  82.85485 4.417090  0.041415824 33.57855 3.513888
## 1988  0.0540681657  84.12005 4.432245  0.015154636 36.76355 3.604507
## 1989  0.0456610565  87.48551 4.471473  0.039228293 38.91049 3.661264
## 1990 -0.0029411427  89.95366 4.499295  0.027821484 37.22524 3.616987
## 1991 -0.0307171112  88.41262 4.482015 -0.017279937 31.02838 3.434902
## 1992 -0.0427549832  83.15040 4.420651 -0.061363675 32.49810 3.481181
## 1993 -0.0269982153  77.42904 4.349362 -0.071289144 37.50826 3.624561
## 1994  0.0256869793  77.22715 4.346751 -0.002610873 42.02705 3.738314
## 1995  0.0481031971  77.93389 4.355861  0.009109833 46.18421 3.832638
## 1996  0.0369808436  81.83334 4.404685  0.048823872 46.75796 3.844984
## 1997  0.0343841369  84.29383 4.434309  0.029623955 51.50817 3.941740
## 1998  0.0471142244  87.07250 4.466741  0.032432425 56.03440 4.025966
## 1999  0.0329030214  91.02334 4.511116  0.044374832 58.30976 4.065769
## 2000  0.0208072439  94.54812 4.549109  0.037992953 63.77208 4.155315
## 2001  0.0264760754  95.96630 4.563997  0.014888203 66.64850 4.199432
## 2002  0.0246820757  97.84434 4.583378  0.019380765 66.89436 4.203115
## 2003  0.0404382194 100.06903 4.605860  0.022482329 67.28257 4.208901
## 2004  0.0368227591 103.36887 4.638304  0.032443677 71.17433 4.265132
## 2005  0.0312604193 107.45702 4.677091  0.038787081 71.60178 4.271120
## 2006  0.0384558431 111.91046 4.717699  0.040608134 74.27144 4.307726
## 2007  0.0344197209 114.51140 4.740674  0.022975277 81.94690 4.406071
## 2008  0.0194849574 117.91367 4.769953  0.029278376 79.82973 4.379896
## 2009 -0.0296478726 114.95673 4.744556 -0.025396949 65.59617 4.183517
## 2010  0.0295274684 116.17839 4.755127  0.010571020 70.02941 4.248915
## 2011  0.0285325021 118.70482 4.776640  0.021513070 69.87478 4.246705
## 2012  0.0038393538 118.97125 4.778882  0.002241933 65.64175 4.184212
## 2013 -0.0052339799 116.34894 4.756594 -0.022288061 65.19036 4.177312
## 2014  0.0060452666 114.74085 4.742676 -0.013917697 65.77435 4.186230
## 2015  0.0159431355 114.17324 4.737717 -0.004959142 67.29876 4.209142
## 2016  0.0234429187 115.58354 4.749994  0.012276665 70.17106 4.250936
## 2017  0.0096088139 114.68795 4.742215 -0.007778674 77.29705 4.347656
## 2018  0.0171815442 116.64544 4.759139  0.016923965 77.52746 4.350632
##                R_dl       It     It_l        It_dl   Itcurr     Itcurr_l
## 1962 -0.01937520180 13.67988 2.615926  0.005325606  0.98764 -0.012437020
## 1963  0.00005426723 13.27312 2.585741 -0.030185203  0.99529 -0.004721127
## 1964  0.01097296112 14.07833 2.644637  0.058895798  1.10592  0.100677568
## 1965  0.02277965886 15.54914 2.744005  0.099368596  1.27870  0.245843937
## 1966 -0.01791581422 16.16249 2.782693  0.038687794  1.37766  0.320386408
## 1967  0.03326196532 15.96327 2.770290 -0.012402667  1.43289  0.359693384
## 1968  0.14304776850 15.13549 2.717042 -0.053248141  1.51089  0.412698881
## 1969  0.22562281983 17.05485 2.836435  0.119392304  1.78026  0.576759421
## 1970  0.07965237974 19.17962 2.953848  0.117413636  2.18888  0.783389997
## 1971 -0.08065922272 19.87741 2.989584  0.035735654  2.51861  0.923707162
## 1972  0.09308252985 21.18068 3.053089  0.063505534  2.98310  1.092963028
## 1973  0.10013387940 22.98252 3.134734  0.081644482  3.74927  1.321561154
## 1974  0.09883274977 23.71355 3.166047  0.031312688  4.89990  1.589214797
## 1975 -0.14410260560 25.84297 3.252039  0.085991996  5.99000  1.790091412
## 1976 -0.04753378416 24.11291 3.182747 -0.069291229  6.09500  1.807468763
## 1977  0.04081705317 23.48784 3.156483 -0.026264541  6.55400  1.880075550
## 1978  0.15375885778 21.94324 3.088459 -0.068023721  6.48900  1.870108436
## 1979  0.11953124935 22.96449 3.133949  0.045489990  7.34300  1.993747478
## 1980  0.01158475180 25.54772 3.240548  0.106598966  9.19500  2.218659858
## 1981 -0.05772073622 26.22280 3.266629  0.026081185 10.32500  2.334568139
## 1982  0.07006813392 27.83531 3.326305  0.059676097 11.73500  2.462575829
## 1983  0.06595379763 28.97142 3.366310  0.040004468 13.27200  2.585656553
## 1984  0.02881408662 28.79250 3.360115 -0.006194890 14.07200  2.644187007
## 1985 -0.01588769898 30.22828 3.408778  0.048662973 15.52400  2.742387214
## 1986  0.03115408039 30.80896 3.427806  0.019027647 16.38400  2.796305249
## 1987  0.00406101405 32.55978 3.483078  0.055272228 18.22800  2.902958873
## 1988  0.09061945561 36.08008 3.585741  0.102663128 21.61600  3.073433781
## 1989  0.05675688231 40.31279 3.696669  0.110927876 26.24600  3.267513596
## 1990 -0.04427689379 38.87042 3.660234 -0.036435238 26.99600  3.295688707
## 1991 -0.18208474656 32.29634 3.474954 -0.185279639 22.48500  3.112848420
## 1992  0.04627929133 27.85507 3.327015 -0.147938915 18.84400  2.936194561
## 1993  0.14337964012 24.36770 3.193258 -0.133756512 16.41300  2.798073704
## 1994  0.11375237679 24.57406 3.201691  0.008432930 16.92700  2.828909980
## 1995  0.09432448688 27.65529 3.319817  0.118125615 18.99900  2.944386346
## 1996  0.01234648420 30.42257 3.415185  0.095367737 20.93000  3.041183536
## 1997  0.09675588958 33.73431 3.518515  0.103330653 23.67000  3.164208424
## 1998  0.08422536848 37.33475 3.619925  0.101409108 26.75700  3.286796121
## 1999  0.03980373271 39.02739 3.664264  0.044339179 28.48500  3.349377633
## 2000  0.08954599021 41.45439 3.724594  0.060330079 31.46000  3.448716898
## 2001  0.04411702639 42.18546 3.742076  0.017481825 33.08400  3.499049782
## 2002  0.00368211031 40.93957 3.712097 -0.029978535 32.07600  3.468108087
## 2003  0.00578665900 42.08447 3.739679  0.027581712 33.05600  3.498203093
## 2004  0.05623090079 44.04605 3.785236  0.045556889 35.33600  3.564902274
## 2005  0.00598774234 45.47854 3.817241  0.032004889 37.74300  3.630800028
## 2006  0.03660655486 46.09544 3.830714  0.013473463 39.35800  3.672699258
## 2007  0.09834501190 50.84187 3.928720  0.098006198 45.26300  3.812489922
## 2008 -0.02617550101 51.16459 3.935048  0.006327464 47.58300  3.862475555
## 2009 -0.19637868630 45.00982 3.806881 -0.128167003 41.72000  3.730980630
## 2010  0.06539805186 46.04714 3.829666  0.022784966 41.94900  3.736454595
## 2011 -0.00221054158 47.83638 3.867786  0.038120784 44.78000  3.801761611
## 2012 -0.06249280692 47.70027 3.864937 -0.002849380 46.39500  3.837191695
## 2013 -0.00690036986 45.50159 3.817747 -0.047189788 44.96700  3.805928887
## 2014  0.00891838297 44.66734 3.799243 -0.018504685 44.42500  3.793802374
## 2015  0.02291182865 44.87700 3.803925  0.004682828 44.87700  3.803925414
## 2016  0.04179407944 48.80894 3.887913  0.083988079 49.41800  3.900314730
## 2017  0.09671993747 50.75515 3.927013  0.039099598 52.48600  3.960546467
## 2018  0.00297637413 52.65526 3.963766  0.036753048 55.81854  4.022106072
##         Itcurr_dl      Ipr       Ipr_l       Ipr_dl       Ips      Ips_l
## 1962  0.054226424  0.83573 -0.17944968  0.048304479 0.8461889 -0.1670127
## 1963  0.007715893  0.82434 -0.19317221 -0.013722528 0.8282410 -0.1884511
## 1964  0.105398695  0.89086 -0.11556799  0.077604222 0.8055375 -0.2162456
## 1965  0.145166369  1.02789  0.02750816  0.143076148 0.8038555 -0.2183358
## 1966  0.074542471  1.11738  0.11098666  0.083478502 0.8110709 -0.2093997
## 1967  0.039306976  1.15461  0.14376262  0.032775965 0.8057911 -0.2159308
## 1968  0.053005497  1.20668  0.18787279  0.044110162 0.7986551 -0.2248261
## 1969  0.164060540  1.46663  0.38296725  0.195094465 0.8238291 -0.1937922
## 1970  0.206630576  1.88133  0.63197897  0.249011722 0.8594944 -0.1514110
## 1971  0.140317165  2.17142  0.77538133  0.143402358 0.8621502 -0.1483258
## 1972  0.169255866  2.54173  0.93284495  0.157463620 0.8520432 -0.1601181
## 1973  0.228598126  3.24715  1.17777769  0.244932737 0.8660753 -0.1437835
## 1974  0.267653642  4.26737  1.45099771  0.273220024 0.8709096 -0.1382171
## 1975  0.200876615  5.15900  1.64074276  0.189745050 0.8612688 -0.1493486
## 1976  0.017377351  5.22400  1.65326339  0.012520630 0.8570960 -0.1542054
## 1977  0.072606787  5.57800  1.71883029  0.065566897 0.8510833 -0.1612453
## 1978 -0.009967115  5.41800  1.68972674 -0.029103546 0.8349515 -0.1803817
## 1979  0.123639043  6.15100  1.81661467  0.126887927 0.8376685 -0.1771328
## 1980  0.224912380  7.74200  2.04666005  0.230045382 0.8419793 -0.1719998
## 1981  0.115908281  8.72600  2.16630707  0.119647023 0.8451332 -0.1682611
## 1982  0.128007690  9.84800  2.28726839  0.120961314 0.8391990 -0.1753074
## 1983  0.123080724 11.07800  2.40496116  0.117692771 0.8346896 -0.1806954
## 1984  0.058530455 11.82800  2.47046960  0.065508442 0.8405344 -0.1737174
## 1985  0.098200206 12.95700  2.56163618  0.091166581 0.8346431 -0.1807510
## 1986  0.053918035 13.65600  2.61417899  0.052542803 0.8334961 -0.1821263
## 1987  0.106653625 15.06100  2.71210862  0.097929636 0.8262563 -0.1908503
## 1988  0.170474908 18.04900  2.89309028  0.180981660 0.8349833 -0.1803435
## 1989  0.194079815 22.83900  3.12846960  0.235379319 0.8701897 -0.1390440
## 1990  0.028175110 22.90100  3.13118058  0.002710977 0.8483109 -0.1645081
## 1991 -0.182840287 18.36300  2.91033777 -0.220842807 0.8166778 -0.2025106
## 1992 -0.176653859 14.78200  2.69341022 -0.216927546 0.7844407 -0.2427843
## 1993 -0.138120857 12.96700  2.56240767 -0.131002556 0.7900445 -0.2356660
## 1994  0.030836276 13.13900  2.57558491  0.013177238 0.7762155 -0.2533251
## 1995  0.115476366 15.34800  2.73098517  0.155400266 0.8078320 -0.2134012
## 1996  0.096797190 16.84200  2.82387577  0.092890594 0.8046823 -0.2173078
## 1997  0.123024887 18.80800  2.93428231  0.110406545 0.7945923 -0.2299261
## 1998  0.122587698 21.79700  3.08177235  0.147490034 0.8146279 -0.2050238
## 1999  0.062581512 23.48900  3.15653223  0.074759881 0.8246094 -0.1928454
## 2000  0.099339265 26.65100  3.28282667  0.126294447 0.8471392 -0.1658902
## 2001  0.050332884 28.16300  3.33800906  0.055182386 0.8512574 -0.1610407
## 2002 -0.030941695 26.58900  3.28049760 -0.057511463 0.8289375 -0.1876105
## 2003  0.030095006 27.18900  3.30281248  0.022314883 0.8225133 -0.1953906
## 2004  0.066699181 29.13100  3.37180290  0.068990420 0.8244000 -0.1930994
## 2005  0.065897754 31.82400  3.46022072  0.088417823 0.8431762 -0.1705793
## 2006  0.041899230 33.58100  3.51396043  0.053739709 0.8532192 -0.1587388
## 2007  0.139790664 38.74500  3.65700172  0.143041284 0.8559972 -0.1554882
## 2008  0.049985633 40.61800  3.70421132  0.047209603 0.8536242 -0.1582642
## 2009 -0.131494924 34.59800  3.54379588 -0.160415441 0.8292905 -0.1871848
## 2010  0.005473965 35.15200  3.55968152  0.015885639 0.8379699 -0.1767731
## 2011  0.065307016 37.29200  3.61877883  0.059097311 0.8327825 -0.1829828
## 2012  0.035430084 38.29700  3.64537156  0.026592738 0.8254553 -0.1918201
## 2013 -0.031262807 36.46700  3.59640774 -0.048963822 0.8109725 -0.2095211
## 2014 -0.012126513 35.75800  3.57677402 -0.019633722 0.8049071 -0.2170284
## 2015  0.010123040 36.96900  3.61007972  0.033305703 0.8237850 -0.1938457
## 2016  0.096389316 40.40100  3.69885454  0.088774814 0.8175361 -0.2014602
## 2017  0.060231737 43.27200  3.76750577  0.068651237 0.8244484 -0.1930407
## 2018  0.061559605 45.95554  3.82767441  0.060168633 0.8233024 -0.1944317
##            Ips_dl        I      I_l          I_dl           r      r_l
## 1962 -0.005921944 11.57576 2.448913 -0.0005963384   2.9969608 2.699814
## 1963 -0.021438421 10.99334 2.397290 -0.0516236241   2.6661706 2.677328
## 1964 -0.027794473 11.34062 2.428391  0.0311013256   1.1515973 2.567378
## 1965 -0.002090221 12.49926 2.525670  0.0972783749   3.4246793 2.728159
## 1966  0.008936031 13.10893 2.573293  0.0476238246   3.5196911 2.734348
## 1967 -0.006531011 12.86306 2.554360 -0.0189336778   0.7712889 2.537760
## 1968 -0.008895335 12.08804 2.492216 -0.0621434761  -3.4926322 2.126728
## 1969  0.031033925 14.05028 2.642642  0.1504262287   3.6099934 2.740195
## 1970  0.042381145 16.48478 2.802437  0.1597947813   3.8339807 2.754551
## 1971  0.003085193 17.13731 2.841258  0.0388208474   0.6854670 2.530953
## 1972 -0.011792246 18.04685 2.892971  0.0517132883  -0.2531436 2.453318
## 1973  0.016334611 19.90459 2.990950  0.0979790925  -4.8448967 1.950913
## 1974  0.005566382 20.65236 3.027830  0.0368790692 -10.8800070 0.000000
## 1975 -0.011131566 22.25774 3.102690  0.0748604301  -1.6476438 2.325556
## 1976 -0.004856721 20.66708 3.028542 -0.0741479498  -2.5291725 2.235466
## 1977 -0.007039890 19.99011 2.995238 -0.0333044314   1.1902582 2.570340
## 1978 -0.019136431 18.32154 2.908077 -0.0871601519   2.1723963 2.642793
## 1979  0.003248884 19.23663 2.956816  0.0487388741   1.1488161 2.567164
## 1980  0.005133002 21.51065 3.068548  0.1117319684   1.7321687 2.610965
## 1981  0.003738742 22.16176 3.098368  0.0298199272   0.6869054 2.531067
## 1982 -0.007046376 23.35936 3.150998  0.0526297210   3.0517736 2.703492
## 1983 -0.005387953 24.18214 3.185614  0.0346165153   4.5004661 2.796090
## 1984  0.006977988 24.20109 3.186398  0.0007830976   5.1342139 2.834050
## 1985 -0.007033625 25.22983 3.228027  0.0416293481   7.1118468 2.944010
## 1986 -0.001375233 25.67915 3.245679  0.0176524142   6.5960181 2.916474
## 1987 -0.008723989 26.90272 3.292228  0.0465482388   5.8739016 2.876606
## 1988  0.010506753 30.12627 3.405397  0.1131698807   2.6718797 2.677721
## 1989  0.041299504 35.07978 3.557625  0.1522273800   5.2186577 2.839000
## 1990 -0.025464134 32.97420 3.495725 -0.0618993719   7.7049934 2.974764
## 1991 -0.038002521 26.37570 3.272443 -0.2232821595   9.5734995 3.065888
## 1992 -0.040273687 21.85065 3.084231 -0.1882126014  10.9950243 3.130046
## 1993  0.007118301 19.25157 2.957592 -0.1266382103   6.9421998 2.935037
## 1994 -0.017659038 19.07477 2.948366 -0.0092261082   7.0649771 2.941539
## 1995  0.039923900 22.34083 3.106416  0.1580495144   4.4045740 2.790219
## 1996 -0.003906596 24.48050 3.197877  0.0914611414   7.1640179 2.946753
## 1997 -0.012618342 26.80502 3.288589  0.0907123107   3.8009390 2.752446
## 1998  0.024902337 30.41393 3.414901  0.1263114446   1.6410396 2.604247
## 1999  0.012178369 32.18235 3.471418  0.0565175482   3.7582042 2.749717
## 2000  0.026955182 35.11764 3.558704  0.0872852616   3.7802599 2.751127
## 2001  0.004849502 35.91069 3.581035  0.0223313273   1.6808129 2.607185
## 2002 -0.026569768 33.93635 3.524487 -0.0565483033   3.9979387 2.764931
## 2003 -0.007780123 34.61504 3.544288  0.0198015893   3.9325218 2.760803
## 2004  0.002291238 36.31157 3.592136  0.0478481267   3.4865741 2.732195
## 2005  0.022520069 38.34642 3.646661  0.0545249579   2.3985466 2.658759
## 2006  0.011840479 39.32951 3.671975  0.0253139422   2.8332345 2.688748
## 2007  0.003250621 43.52050 3.773232  0.1012568186   1.4952195 2.593404
## 2008 -0.002776030 43.67533 3.776783  0.0035514335   1.2158581 2.572297
## 2009 -0.028920517 37.32622 3.619696 -0.1570875198   1.9316419 2.625512
## 2010  0.010411674 38.58612 3.652893  0.0331966403   2.6783718 2.678167
## 2011 -0.006209706 39.83730 3.684804  0.0319110779   0.3764561 2.506053
## 2012 -0.008837346 39.37444 3.673117 -0.0116867256  -1.0524768 2.382092
## 2013 -0.017701015 36.90054 3.608226 -0.0648908026  -0.6811964 2.415808
## 2014 -0.007507208 35.95306 3.582214 -0.0260118929  -0.1787403 2.459697
## 2015  0.023182663 36.96900 3.610080  0.0278654915  -0.8825781 2.397662
## 2016 -0.007614503 39.90307 3.686453  0.0763735760   0.1838717 2.490216
## 2017  0.008419500 41.84500 3.733972  0.0475190982  -0.1507970 2.462082
## 2018 -0.001390972 43.35120 3.769334  0.0353620759  -1.1074560 2.377001
##              r_dl          P      P_l          P_dl        Pm     Pm_l
## 1962  0.130609847   7.130744 1.964416  0.0389701211  10.53104 2.354327
## 1963 -0.022485981   7.497736 2.014601  0.0501855028  10.64965 2.365527
## 1964 -0.109950744   8.035756 2.083901  0.0692999739  10.87935 2.386867
## 1965  0.160781568   8.439415 2.132913  0.0490119452  11.03285 2.400877
## 1966  0.006188830   8.838097 2.179072  0.0461584846  11.19936 2.415856
## 1967 -0.196588253   9.488751 2.250107  0.0710354558  11.81904 2.469712
## 1968 -0.411032077  10.633472 2.364007  0.1138997994  14.41981 2.668603
## 1969  0.613467105  11.074781 2.404671  0.0406637609  14.82100 2.696045
## 1970  0.014356572  11.500991 2.442433  0.0377626293  15.93652 2.768613
## 1971 -0.223598358  12.347930 2.513488  0.0710552507  17.07903 2.837851
## 1972 -0.077634663  13.365895 2.592706  0.0792178694  18.40392 2.912564
## 1973 -0.502404862  15.206665 2.721734  0.1290275212  20.49591 3.020226
## 1974 -1.950913369  18.562985 2.921170  0.1994357160  28.76389 3.359121
## 1975  2.325555560  20.691523 3.029724  0.1085545618  31.54397 3.451383
## 1976 -0.090089969  23.387357 3.152196  0.1224714959  33.13736 3.500661
## 1977  0.334874228  25.596830 3.242469  0.0902729221  36.72217 3.603381
## 1978  0.072453616  27.502731 3.314285  0.0718168155  41.00170 3.713613
## 1979 -0.075629370  29.773449 3.393617  0.0793316898  46.27374 3.834575
## 1980  0.043800600  32.661418 3.486195  0.0925774874  55.44849 4.015454
## 1981 -0.079897304  36.460981 3.596243  0.1100481828  62.01679 4.127405
## 1982  0.172424508  39.761422 3.682897  0.0866544675  64.60257 4.168254
## 1983  0.092598093  43.018242 3.761624  0.0787271191  69.25826 4.237842
## 1984  0.037959557  46.649988 3.842673  0.0810484023  72.54726 4.284238
## 1985  0.109960622  49.083774 3.893529  0.0508558355  74.87609 4.315835
## 1986 -0.027536189  51.415562 3.939941  0.0464123816  69.34975 4.239163
## 1987 -0.039868257  53.618428 3.981893  0.0419519313  69.25627 4.237814
## 1988 -0.198885039  57.737848 4.055913  0.0740200911  70.11445 4.250129
## 1989  0.161279717  61.508440 4.119174  0.0632614814  73.79560 4.301299
## 1990  0.135763615  64.703650 4.169818  0.0506432211  74.79510 4.314752
## 1991  0.091124118  65.681821 4.184822  0.0150045775  77.30046 4.347700
## 1992  0.064157874  66.264685 4.193657  0.0088349091  83.24799 4.421824
## 1993 -0.195008594  67.434424 4.211156  0.0174985317  90.04150 4.500271
## 1994  0.006501820  68.678384 4.229435  0.0182788740  89.58709 4.495211
## 1995 -0.151320496  71.563162 4.270580  0.0411459310  89.65759 4.495998
## 1996  0.156534690  71.507055 4.269796 -0.0007843184  89.95396 4.499298
## 1997 -0.194307054  72.994403 4.290383  0.0205866466  90.36516 4.503859
## 1998 -0.148198866  75.255856 4.320894  0.0305109609  87.85161 4.475649
## 1999  0.145469876  75.953447 4.330121  0.0092268893  86.06141 4.455061
## 2000  0.001409379  77.197433 4.346366  0.0162455829  92.44410 4.526604
## 2001 -0.143941989  79.747772 4.378869  0.0325026090  89.73955 4.496912
## 2002  0.157746338  80.500837 4.388268  0.0093987766  87.33379 4.469737
## 2003 -0.004128496  80.653794 4.390166  0.0018982594  87.35337 4.469962
## 2004 -0.028607495  81.139670 4.396172  0.0060061470  88.94932 4.488067
## 2005 -0.073436430  81.893593 4.405421  0.0092487675  93.15409 4.534255
## 2006  0.029989207  82.647571 4.414585  0.0091646802  98.33108 4.588340
## 2007 -0.095343643  84.923361 4.441749  0.0271637807  99.39048 4.599056
## 2008 -0.021107688  87.502665 4.471669  0.0299200354 101.11587 4.616267
## 2009  0.053215820  89.055041 4.489255  0.0175853577  93.97949 4.543077
## 2010  0.052654331  89.342669 4.492479  0.0032245722  99.60420 4.601204
## 2011 -0.172113293  91.686723 4.518378  0.0258983925 105.69878 4.660593
## 2012 -0.123961415  94.413279 4.547682  0.0293041578 107.95532 4.681717
## 2013  0.033715593  96.828962 4.572946  0.0252644068 106.08989 4.664287
## 2014  0.043889525  98.408878 4.589131  0.0161848819 104.39079 4.648141
## 2015 -0.062035592 100.000000 4.605170  0.0160391624 100.00000 4.605170
## 2016  0.092554247 100.185787 4.607026  0.0018561433  97.57800 4.580652
## 2017 -0.028133445 100.888946 4.614020  0.0069940371 101.32548 4.618338
## 2018 -0.085080987 102.692083 4.631735  0.0177146551 104.73216 4.651406
##              Pm_dl        Px     Px_l        Px_dl        X      X_l
## 1962  0.0163650787  12.81257 2.550426 -0.004429551  5.37563 1.681876
## 1963  0.0112000771  13.03733 2.567817  0.017390671  5.49331 1.703531
## 1964  0.0213400908  13.82215 2.626272  0.058455040  5.81249 1.760009
## 1965  0.0140100407  14.50596 2.674560  0.048287616  6.13869 1.814611
## 1966  0.0149794521  14.37384 2.665410 -0.009150065  6.53189 1.876696
## 1967  0.0538552059  14.74356 2.690806  0.025396418  6.92052 1.934491
## 1968  0.1988915562  17.67493 2.872147  0.181341254  7.61133 2.029638
## 1969  0.0274418173  18.41697 2.913272  0.041124857  8.88526 2.184394
## 1970  0.0725681048  20.08332 2.999889  0.086617173  9.66165 2.268164
## 1971  0.0692383660  21.11065 3.049778  0.049888136  9.55001 2.256542
## 1972  0.0747123939  22.53851 3.115225  0.065447731 10.93293 2.391779
## 1973  0.1076617562  25.53299 3.239971  0.124746122 11.72236 2.461498
## 1974  0.3388952729  34.96948 3.554476  0.314504202 11.73535 2.462606
## 1975  0.0922617664  39.79382 3.683712  0.129236073 10.14228 2.316713
## 1976  0.0492786384  42.00890 3.737882  0.054169812 11.60230 2.451203
## 1977  0.1027194183  45.27692 3.812797  0.074915890 13.46381 2.600005
## 1978  0.1102328061  48.20579 3.875479  0.062681775 14.51070 2.674886
## 1979  0.1209612032  54.15138 3.991784  0.116304325 15.91095 2.767008
## 1980  0.1808797558  60.31420 4.099568  0.107784032 17.19993 2.844905
## 1981  0.1119507092  65.44578 4.181222  0.081654486 18.19827 2.901327
## 1982  0.0408491532  69.20843 4.237123  0.055900706 17.85765 2.882432
## 1983  0.0695881790  73.57113 4.298253  0.061129920 18.63095 2.924824
## 1984  0.0463957297  79.42190 4.374774  0.076521520 19.84717 2.988061
## 1985  0.0315964263  81.62023 4.402077  0.027302944 19.97299 2.994381
## 1986 -0.0766720878  78.48982 4.362969 -0.039108232 20.48546 3.019715
## 1987 -0.0013488710  79.97468 4.381710  0.018741157 21.16670 3.052429
## 1988  0.0123152249  83.69761 4.427210  0.045500349 21.91341 3.087099
## 1989  0.0511702004  88.74200 4.485733  0.058522832 22.28370 3.103855
## 1990  0.0134532689  89.14576 4.490273  0.004539555 22.59670 3.117804
## 1991  0.0329475381  88.80601 4.486454 -0.003818429 20.81278 3.035567
## 1992  0.0741240829  94.27519 4.546218  0.059763687 22.97211 3.134281
## 1993  0.0784467474 100.35143 4.608678  0.062460298 26.80181 3.288469
## 1994 -0.0050594625 101.72404 4.622264  0.013585341 30.36352 3.413242
## 1995  0.0007866499 106.73814 4.670379  0.048114829 33.02100 3.497144
## 1996  0.0033000680 106.16323 4.664978 -0.005400710 34.92358 3.553162
## 1997  0.0045608078 105.11725 4.655076 -0.009901443 39.82220 3.684425
## 1998 -0.0282095795 104.03349 4.644713 -0.010363502 43.35527 3.769428
## 1999 -0.0205881266  98.87245 4.593831 -0.050882190 48.27027 3.876816
## 2000  0.0715430462 102.32629 4.628167  0.034335932 56.04425 4.026142
## 2001 -0.0296924744 100.77965 4.612936 -0.015230112 57.06509 4.044193
## 2002 -0.0271741602  97.93057 4.584259 -0.028677770 59.33796 4.083249
## 2003  0.0002241550  96.41541 4.568666 -0.015592624 58.73957 4.073114
## 2004  0.0181051889  95.97730 4.564112 -0.004554408 63.87448 4.156920
## 2005  0.0461882023  97.09014 4.575640  0.011528098 68.31281 4.224097
## 2006  0.0540851070  99.27636 4.597908  0.022267720 75.01685 4.317713
## 2007  0.0107162450 100.27798 4.607946  0.010038591 81.75873 4.403773
## 2008  0.0172106838 100.07974 4.605967 -0.001978800 87.15550 4.467694
## 2009 -0.0731905258  94.18432 4.545254 -0.060713615 69.62518 4.243126
## 2010  0.0581277576  97.76204 4.582536  0.037282684 73.92849 4.303098
## 2011  0.0593890590 102.11321 4.626082  0.043545697 75.42805 4.323179
## 2012  0.0211241327 103.19429 4.636614  0.010531454 75.60399 4.325509
## 2013 -0.0174307486 102.15860 4.626527 -0.010086974 76.03667 4.331216
## 2014 -0.0161453018 101.24282 4.617522 -0.009004786 74.55245 4.311503
## 2015 -0.0429712394 100.00000 4.605170 -0.012351567 74.84500 4.315419
## 2016 -0.0245181022  97.55719 4.580439 -0.024731459 77.61499 4.351761
## 2017  0.0376857835 100.74588 4.612601  0.032162539 84.45507 4.436220
## 2018  0.0330683257 104.94630 4.653449  0.040847571 85.92394 4.453462
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1962  0.068312386  6.97830 1.942805  0.054613588 0.7273950 -0.3182856
## 1963  0.021655212  6.78434 1.914617 -0.028188319 0.7357416 -0.3068763
## 1964  0.056478062  8.18181 2.101913  0.187296382 0.7452315 -0.2940604
## 1965  0.054602314  8.85795 2.181315  0.079401963 0.7514458 -0.2857563
## 1966  0.062084970  9.17138 2.216088  0.034772405 0.7603619 -0.2739607
## 1967  0.057794577  9.14345 2.213038 -0.003049990 0.7559661 -0.2797587
## 1968  0.095147015  8.78437 2.172974 -0.040063770 0.7244745 -0.3223087
## 1969  0.154755797 10.74192 2.374154  0.201179838 0.6869771 -0.3754543
## 1970  0.083770717 12.92183 2.558918  0.184764285 0.6847347 -0.3787238
## 1971 -0.011622239 12.89939 2.557180 -0.001738106 0.7128913 -0.3384264
## 1972  0.135237134 13.54630 2.606113  0.048933424 0.7064729 -0.3474704
## 1973  0.069718793 15.27534 2.726240  0.120126316 0.6955357 -0.3630730
## 1974  0.001107525 16.26748 2.789168  0.062928260 0.6727697 -0.3963522
## 1975 -0.145892829 16.30105 2.791230  0.002061500 0.7196802 -0.3289483
## 1976  0.134490529 16.06646 2.776734 -0.014495654 0.7292705 -0.3157106
## 1977  0.148801991 15.78883 2.759303 -0.017431141 0.7145675 -0.3360778
## 1978  0.074880963 15.16523 2.719005 -0.040297420 0.6784221 -0.3879856
## 1979  0.092121243 17.96267 2.888296  0.169290408 0.6612222 -0.4136654
## 1980  0.077897763 19.49918 2.970372  0.082076698 0.6705207 -0.3997007
## 1981  0.056421221 18.60464 2.923411 -0.046961401 0.6841847 -0.3795274
## 1982 -0.018894547 19.01627 2.945295  0.021883917 0.6692521 -0.4015944
## 1983  0.042392188 19.79836 2.985599  0.040304177 0.6550008 -0.4231188
## 1984  0.063237251 19.98008 2.994736  0.009136671 0.6477795 -0.4342049
## 1985  0.006319433 21.25111 3.056409  0.061673352 0.6579377 -0.4186451
## 1986  0.025334505 22.00008 3.091046  0.034636960 0.6519388 -0.4278047
## 1987  0.032713826 23.93574 3.175373  0.084326650 0.6560557 -0.4215096
## 1988  0.034669586 26.53804 3.278579  0.103206436 0.6330451 -0.4572136
## 1989  0.016756691 28.92449 3.364689  0.086109466 0.6265030 -0.4676016
## 1990  0.013948408 28.81606 3.360933 -0.003755771 0.6398848 -0.4464671
## 1991 -0.082236657 24.97786 3.217990 -0.142943038 0.6682586 -0.4030800
## 1992  0.098713650 25.15256 3.224960  0.006969848 0.6498943 -0.4309455
## 1993  0.154188551 25.49491 3.238479  0.013519144 0.6092060 -0.4955989
## 1994  0.124772465 28.76084 3.359015  0.120535915 0.5844511 -0.5370822
## 1995  0.083901835 31.11616 3.437727  0.078712559 0.5659313 -0.5692826
## 1996  0.056018523 33.36707 3.507569  0.069842187 0.5732260 -0.5564752
## 1997  0.131262300 37.33076 3.619818  0.112248166 0.5552880 -0.5882683
## 1998  0.085003719 40.49328 3.701136  0.081318383 0.5439111 -0.6089694
## 1999  0.107387579 42.22915 3.743111  0.041974706 0.5447332 -0.6074591
## 2000  0.149325714 48.50499 3.881667  0.138555938 0.5349433 -0.6255946
## 2001  0.018050989 49.17564 3.895398  0.013731700 0.5291575 -0.6364692
## 2002  0.039056690 51.28599 3.937418  0.042019237 0.5304576 -0.6340152
## 2003 -0.010135631 53.39233 3.977667  0.040249487 0.5318617 -0.6313719
## 2004  0.083806302 57.72950 4.055768  0.078101205 0.5283081 -0.6380756
## 2005  0.067177396 64.18505 4.161770  0.106002010 0.5343494 -0.6267054
## 2006  0.093615451 68.41479 4.225589  0.063818712 0.5349502 -0.6255816
## 2007  0.086059838 73.46478 4.296806  0.071217078 0.5198370 -0.6542401
## 2008  0.063921286 79.31594 4.373439  0.076633010 0.5311178 -0.6327715
## 2009 -0.224567596 65.83458 4.187145 -0.186293885 0.5632817 -0.5739754
## 2010  0.059971991 69.98400 4.248267  0.061121412 0.5516915 -0.5947663
## 2011  0.020080947 74.32820 4.308490  0.060223778 0.5496851 -0.5984098
## 2012  0.002329838 75.16350 4.319666  0.011175319 0.5587262 -0.5820957
## 2013  0.005706664 75.25788 4.320921  0.001254875 0.5513846 -0.5953227
## 2014 -0.019712819 74.58321 4.311915 -0.009005201 0.5457555 -0.6055841
## 2015  0.003916404 76.04700 4.331352  0.019436155 0.5401199 -0.6159642
## 2016  0.036341270 80.44641 4.387591  0.056239678 0.5323619 -0.6304317
## 2017  0.084459098 83.71636 4.427434  0.039843170 0.5123520 -0.6687434
## 2018  0.017242809 88.31958 4.480962  0.053527409 0.5127387 -0.6679889
##            rulc_dl       ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1962  0.0176392932  5.186868 1.646130  0.0566094142  44.48728 3.795203
## 1963  0.0114092527  5.516396 1.707725  0.0615947555  44.95429 3.805646
## 1964  0.0128158885  5.988498 1.789841  0.0821158624  46.38517 3.836980
## 1965  0.0083041812  6.341763 1.847157  0.0573161264  47.46040 3.859896
## 1966  0.0117955453  6.720152 1.905111  0.0579540299  47.51480 3.861041
## 1967 -0.0057979767  7.173174 1.970348  0.0652374791  48.16655 3.874665
## 1968 -0.0425499873  7.703680 2.041698  0.0713498121  48.89468 3.889669
## 1969 -0.0531456038  7.608121 2.029216 -0.0124818429  52.15324 3.954186
## 1970 -0.0032694740  7.875128 2.063709  0.0344931554  54.22978 3.993230
## 1971  0.0402973602  8.802731 2.175062  0.1113526109  54.63294 4.000637
## 1972 -0.0090440567  9.442642 2.245236  0.0701738127  57.35894 4.049329
## 1973 -0.0156025394 10.576778 2.358661  0.1134249817  59.40979 4.084459
## 1974 -0.0332792349 12.488613 2.524817  0.1661564811  59.95595 4.093610
## 1975  0.0674038741 14.891279 2.700776  0.1759584359  60.83120 4.108103
## 1976  0.0132377228 17.055709 2.836485  0.1357092187  60.43238 4.101525
## 1977 -0.0203671285 18.290664 2.906391  0.0699057936  60.40602 4.101089
## 1978 -0.0519078049 18.658462 2.926300  0.0199090106  61.95120 4.126347
## 1979 -0.0256798197 19.686864 2.979952  0.0536518701  64.78703 4.171105
## 1980  0.0139646939 21.900157 3.086494  0.1065421813  66.26844 4.193714
## 1981  0.0201733001 24.946045 3.216715  0.1302214829  65.64556 4.184270
## 1982 -0.0220670161 26.610417 3.281303  0.0645874513  66.53792 4.197772
## 1983 -0.0215243964 28.176984 3.338505  0.0572027227  67.81825 4.216831
## 1984 -0.0110860752 30.218907 3.408468  0.0699623271  69.04847 4.234809
## 1985  0.0155597660 32.294063 3.474883  0.0664156014  70.42392 4.254533
## 1986 -0.0091595455 33.519798 3.512136  0.0372528361  71.68936 4.272342
## 1987  0.0062950656 35.176675 3.560383  0.0482469969  72.92127 4.289380
## 1988 -0.0357040169 36.550662 3.598699  0.0383160742  75.49688 4.324091
## 1989 -0.0103880447 38.535225 3.651573  0.0528734367  77.50904 4.350395
## 1990  0.0211345444 41.402883 3.723351  0.0717777655  77.13908 4.345610
## 1991  0.0433870996 43.892444 3.781742  0.0583916771  74.61479 4.312339
## 1992 -0.0278655049 43.065043 3.762712 -0.0190305958  75.03404 4.317942
## 1993 -0.0646533706 41.081453 3.715557 -0.0471548389  77.31255 4.347856
## 1994 -0.0414832794 40.139157 3.692352 -0.0232044054  81.24525 4.397472
## 1995 -0.0322004475 40.499832 3.701298  0.0089454835  83.52954 4.425200
## 1996  0.0128073656 40.989703 3.713321  0.0120230472  85.45081 4.447941
## 1997 -0.0317930895 40.532918 3.702114 -0.0112064428  88.58563 4.483970
## 1998 -0.0207010810 40.932498 3.711924  0.0098098799  91.62438 4.517697
## 1999  0.0015102976 41.374366 3.722662  0.0107371869  93.72816 4.540399
## 2000 -0.0181354560 41.296247 3.720772 -0.0018898731  97.07536 4.575488
## 2001 -0.0108746689 42.199128 3.742400  0.0216279401  97.86603 4.583599
## 2002  0.0024540645 42.702284 3.754252  0.0118528412  98.16174 4.586616
## 2003  0.0026433145 42.896661 3.758794  0.0045415739  99.32204 4.598367
## 2004 -0.0067037282 42.866747 3.758096 -0.0006975812 102.20968 4.627026
## 2005  0.0113702324 43.759792 3.778715  0.0206189999 103.30434 4.637679
## 2006  0.0011237701 44.212336 3.789004  0.0102884503 105.48030 4.658524
## 2007 -0.0286584739 44.146302 3.787509 -0.0014946931 108.52613 4.686991
## 2008  0.0214685933 46.474222 3.838898  0.0513886287 106.93439 4.672215
## 2009  0.0587960944 50.163077 3.915279  0.0763814520  99.36760 4.598826
## 2010 -0.0207909677 49.289587 3.897713 -0.0175663955 102.41509 4.629034
## 2011 -0.0036434371 50.398822 3.919968  0.0222549554 103.44941 4.639083
## 2012  0.0163140485 52.751173 3.965586  0.0456182063 100.95544 4.614679
## 2013 -0.0132269246 53.390001 3.977623  0.0120374822 100.13308 4.606500
## 2014 -0.0102614710 53.707191 3.983547  0.0059234109  99.71916 4.602358
## 2015 -0.0103800575 54.011987 3.989206  0.0056591049 100.00000 4.605170
## 2016 -0.0144675439 53.335098 3.976595 -0.0126114006 101.88631 4.623858
## 2017 -0.0383116642 51.690653 3.945277 -0.0313176272 103.72612 4.641754
## 2018  0.0007544599 52.654204 3.963746  0.0184691150 103.12723 4.635963
##             Tau_dl        dPxdPm        dPdPm     Trade
## 1962  0.0091585080 -0.0207946295  0.022605042 0.2557045
## 1963  0.0104429222  0.0061905936  0.038985426 0.2460426
## 1964  0.0313336345  0.0371149494  0.047959883 0.2664840
## 1965  0.0229159658  0.0342775754  0.035001905 0.2711899
## 1966  0.0011454318 -0.0241295167  0.031179032 0.2773866
## 1967  0.0136235313 -0.0284587875  0.017180250 0.2777345
## 1968  0.0150039122 -0.0175503021 -0.084991757 0.2770878
## 1969  0.0645176926  0.0136830394  0.013221944 0.3026644
## 1970  0.0390439164  0.0140490679 -0.034805475 0.3240451
## 1971  0.0074067860 -0.0193502303  0.001816885 0.3147034
## 1972  0.0486916259 -0.0092646626  0.004505475 0.3185193
## 1973  0.0351303562  0.0170843658  0.021365765 0.3283577
## 1974  0.0091510820 -0.0243910712 -0.139459557 0.3299050
## 1975  0.0144927230  0.0369743069  0.016292795 0.3015447
## 1976 -0.0065777084  0.0048911741  0.073192858 0.3140648
## 1977 -0.0004363596 -0.0278035281 -0.012446496 0.3311111
## 1978  0.0252581766 -0.0475510308 -0.038415991 0.3258030
## 1979  0.0447584678 -0.0046568785 -0.041629513 0.3471003
## 1980  0.0226083712 -0.0730957242 -0.088302268 0.3561354
## 1981 -0.0094437623 -0.0302962228 -0.001902526 0.3525021
## 1982  0.0135019938  0.0150515528  0.045805314 0.3425365
## 1983  0.0190593965 -0.0084582593  0.009138940 0.3461972
## 1984  0.0179773796  0.0301257899  0.034652673 0.3475385
## 1985  0.0197242942 -0.0042934820  0.019259409 0.3474004
## 1986  0.0178092286  0.0375638559  0.123084469 0.3484309
## 1987  0.0170380691  0.0200900277  0.043300802 0.3571271
## 1988  0.0347109392  0.0331851243  0.061704866 0.3646212
## 1989  0.0263033380  0.0073526312  0.012091281 0.3667131
## 1990 -0.0047845533 -0.0089137142  0.037189952 0.3657243
## 1991 -0.0332713846 -0.0367659672 -0.017942961 0.3461043
## 1992  0.0056031926 -0.0143603963 -0.065289174 0.3761371
## 1993  0.0299143951 -0.0159864498 -0.060948216 0.4114667
## 1994  0.0496161350  0.0186448035  0.023338337 0.4474501
## 1995  0.0277279741  0.0473281795  0.040359281 0.4657438
## 1996  0.0227405333 -0.0087007784 -0.004084386 0.4783622
## 1997  0.0360287924 -0.0144622504  0.016025839 0.5082473
## 1998  0.0337276682  0.0178460777  0.058720540 0.5237722
## 1999  0.0227012847 -0.0302940634  0.029815016 0.5415978
## 2000  0.0350889277 -0.0372071142 -0.055297463 0.5915285
## 2001  0.0081118991  0.0144623626  0.062195083 0.5858106
## 2002  0.0030170065 -0.0015036095  0.036572937 0.5997416
## 2003  0.0117509963 -0.0158167790  0.001674104 0.5959752
## 2004  0.0286588614 -0.0226595969 -0.012099042 0.6215060
## 2005  0.0106530742 -0.0346601046 -0.036939435 0.6588695
## 2006  0.0208447773 -0.0318173867 -0.044920427 0.6856266
## 2007  0.0284668122 -0.0006776538  0.016447536 0.7046540
## 2008 -0.0147755349 -0.0191894841  0.012709352 0.7498362
## 2009 -0.0733893936  0.0124769110  0.090775884 0.6637454
## 2010  0.0302079970 -0.0208450733 -0.054903185 0.6833912
## 2011  0.0100486155 -0.0158433620 -0.033490666 0.6934746
## 2012 -0.0244034509 -0.0105926789  0.008180025 0.7080513
## 2013 -0.0081791679  0.0073437742  0.042695155 0.7169940
## 2014 -0.0041422834  0.0071405162  0.032330184 0.7093517
## 2015  0.0028123921  0.0306196720  0.059010402 0.7138255
## 2016  0.0186873949 -0.0002133567  0.026374245 0.7280091
## 2017  0.0178963657 -0.0055232446 -0.030691746 0.7512818
## 2018 -0.0057905109  0.0077792448 -0.015353671 0.7659228

Adjusted Dickey-fuller testet I(0)

adf.FIN.WS <- adf.test((FIN$WS), alternative = c("stationary"), k = 2)
adf.FIN.PS <- adf.test((FIN$PS), alternative = c("stationary"), k = 2)
adf.FIN.Y <- adf.test((FIN$Y), alternative = c("stationary"), k = 2)
adf.FIN.Yrw <- adf.test((FIN$Yrw), alternative = c("stationary"), k = 2)
adf.FIN.r <- adf.test((FIN$r), alternative = c("stationary"), k = 2)
adf.FIN.R <- adf.test((FIN$R), alternative = c("stationary"), k = 2)
adf.FIN.Tau <- adf.test((FIN$Tau), alternative = c("stationary"), k = 2)
adf.FIN.rulc <- adf.test((FIN$rulc), alternative = c("stationary"), k = 2)
adf.FIN.ulc <- adf.test((FIN$ulc), alternative = c("stationary"), k = 2)
adf.FIN.P <- adf.test((FIN$P), alternative = c("stationary"), k = 2)
adf.FIN.Pm <- adf.test((FIN$Pm), alternative = c("stationary"), k = 2)
adf.FIN.Px <- adf.test((FIN$Px), alternative = c("stationary"), k = 2)
adf.FIN.X <- adf.test((FIN$X), alternative = c("stationary"), k = 2)
adf.FIN.M <- adf.test((FIN$M), alternative = c("stationary"), k = 2)
adf.FIN.I <- adf.test((FIN$I), alternative = c("stationary"), k = 2)
adf.FIN.C <- adf.test((FIN$C), alternative = c("stationary"), k = 2)
adf.FIN.Ipr <- adf.test((FIN$Ipr), alternative = c("stationary"), k = 2)
adf.FIN.Ips <- adf.test((FIN$Ips), alternative = c("stationary"), k = 2)
adf.FIN.It <- adf.test((FIN$It), alternative = c("stationary"), k = 2)
adf.FIN.Itcurr <- adf.test((FIN$Itcurr), alternative = c("stationary"), k = 2)
adf.FIN.Yf <- adf.test((FIN$Yf), alternative = c("stationary"), k = 2)
adf.FIN.W <- adf.test((FIN$W), alternative = c("stationary"), k = 2)

adf.FIN.WS.pval <- adf.FIN.WS$p.value
adf.FIN.PS.pval <- adf.FIN.PS$p.value
adf.FIN.Y.pval <- adf.FIN.Y$p.value
adf.FIN.Yrw.pval <- adf.FIN.Yrw$p.value
adf.FIN.r.pval <- adf.FIN.r$p.value
adf.FIN.R.pval <- adf.FIN.R$p.value
adf.FIN.Tau.pval <- adf.FIN.Tau$p.value
adf.FIN.rulc.pval <- adf.FIN.rulc$p.value
adf.FIN.ulc.pval <- adf.FIN.ulc$p.value
adf.FIN.P.pval <- adf.FIN.P$p.value
adf.FIN.Pm.pval <- adf.FIN.Pm$p.value
adf.FIN.Px.pval <- adf.FIN.Px$p.value
adf.FIN.X.pval <- adf.FIN.X$p.value
adf.FIN.M.pval <- adf.FIN.M$p.value
adf.FIN.I.pval <- adf.FIN.I$p.value
adf.FIN.C.pval <- adf.FIN.C$p.value
adf.FIN.Ipr.pval <- adf.FIN.Ipr$p.value
adf.FIN.Ips.pval <- adf.FIN.Ips$p.value
adf.FIN.It.pval <- adf.FIN.It$p.value
adf.FIN.Itcurr.pval <- adf.FIN.Itcurr$p.value
adf.FIN.Yf.pval <- adf.FIN.Yf$p.value
adf.FIN.W.pval <- adf.FIN.W$p.value

adf.FIN_non <- rbind(adf.FIN.WS.pval,adf.FIN.PS.pval,adf.FIN.Y.pval,adf.FIN.Yrw.pval,adf.FIN.r.pval,adf.FIN.R.pval,adf.FIN.Tau.pval,adf.FIN.rulc.pval,adf.FIN.ulc.pval,adf.FIN.P.pval,adf.FIN.Pm.pval,adf.FIN.Px.pval,adf.FIN.X.pval,adf.FIN.M.pval,adf.FIN.I.pval,adf.FIN.C.pval,adf.FIN.Ipr.pval,adf.FIN.Ips.pval,adf.FIN.It.pval,adf.FIN.Itcurr.pval,adf.FIN.Yf.pval,adf.FIN.W.pval)


colnames(adf.FIN_non) <- c("FIN")
rownames(adf.FIN_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.FIN_non
##               FIN
## WS     0.51582543
## PS     0.51582543
## Y      0.46868561
## Yrw    0.65547883
## r      0.57210914
## R      0.63376426
## Tau    0.95501094
## rulc   0.52634664
## ulc    0.92161077
## P      0.79241085
## Pm     0.91338003
## Px     0.96761085
## X      0.64936905
## M      0.86781501
## I      0.08568598
## C      0.38240704
## Ipr    0.31201723
## Ips    0.16820610
## It     0.06253567
## Itcurr 0.38158749
## Yf     0.52899586
## W      0.29559460

Adjusted Dickey-fuller testet I(1)

adf.FIN.WS_dl <- adf.test((FIN$WS_dl), alternative = c("stationary"), k = 2)
adf.FIN.PS_dl <- adf.test((FIN$PS_dl), alternative = c("stationary"), k = 2)
adf.FIN.Y_dl <- adf.test((FIN$Y_dl), alternative = c("stationary"), k = 2)
adf.FIN.Yrw_dl <- adf.test((FIN$Yrw_dl), alternative = c("stationary"), k = 2)
adf.FIN.r_dl <- adf.test((FIN$r_dl), alternative = c("stationary"), k = 2)
adf.FIN.R_dl <- adf.test((FIN$R_dl), alternative = c("stationary"), k = 2)
adf.FIN.Tau_dl <- adf.test((FIN$Tau_dl), alternative = c("stationary"), k = 2)
adf.FIN.rulc_dl <- adf.test((FIN$rulc_dl), alternative = c("stationary"), k = 2)
adf.FIN.ulc_dl <- adf.test((FIN$ulc_dl), alternative = c("stationary"), k = 2)
adf.FIN.P_dl <- adf.test((FIN$P_dl), alternative = c("stationary"), k = 2)
adf.FIN.Pm_dl <- adf.test((FIN$Pm_dl), alternative = c("stationary"), k = 2)
adf.FIN.Px_dl <- adf.test((FIN$Px_dl), alternative = c("stationary"), k = 2)
adf.FIN.X_dl <- adf.test((FIN$X_dl), alternative = c("stationary"), k = 2)
adf.FIN.M_dl <- adf.test((FIN$M_dl), alternative = c("stationary"), k = 2)
adf.FIN.I_dl <- adf.test((FIN$I_dl), alternative = c("stationary"), k = 2)
adf.FIN.C_dl <- adf.test((FIN$C_dl), alternative = c("stationary"), k = 2)
adf.FIN.Ipr_dl <- adf.test((FIN$Ipr_dl), alternative = c("stationary"), k = 2)
adf.FIN.Ips_dl <- adf.test((FIN$Ips_dl), alternative = c("stationary"), k = 2)
adf.FIN.It_dl <- adf.test((FIN$It_dl), alternative = c("stationary"), k = 2)
adf.FIN.Itcurr_dl <- adf.test((FIN$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.FIN.Yf_dl <- adf.test((FIN$Yf_dl), alternative = c("stationary"), k = 2)
adf.FIN.W_dl <- adf.test((FIN$W_dl), alternative = c("stationary"), k = 2)

adf.FIN.WS_dl.pval <- adf.FIN.WS_dl$p.value
adf.FIN.PS_dl.pval <- adf.FIN.PS_dl$p.value
adf.FIN.Y_dl.pval <- adf.FIN.Y_dl$p.value
adf.FIN.Yrw_dl.pval <- adf.FIN.Yrw_dl$p.value
adf.FIN.r_dl.pval <- adf.FIN.r_dl$p.value
adf.FIN.R_dl.pval <- adf.FIN.R_dl$p.value
adf.FIN.Tau_dl.pval <- adf.FIN.Tau_dl$p.value
adf.FIN.rulc_dl.pval <- adf.FIN.rulc_dl$p.value
adf.FIN.ulc_dl.pval <- adf.FIN.ulc_dl$p.value
adf.FIN.P_dl.pval <- adf.FIN.P_dl$p.value
adf.FIN.Pm_dl.pval <- adf.FIN.Pm_dl$p.value
adf.FIN.Px_dl.pval <- adf.FIN.Px_dl$p.value
adf.FIN.X_dl.pval <- adf.FIN.X_dl$p.value
adf.FIN.M_dl.pval <- adf.FIN.M_dl$p.value
adf.FIN.I_dl.pval <- adf.FIN.I_dl$p.value
adf.FIN.C_dl.pval <- adf.FIN.C_dl$p.value
adf.FIN.Ipr_dl.pval <- adf.FIN.Ipr_dl$p.value
adf.FIN.Ips_dl.pval <- adf.FIN.Ips_dl$p.value
adf.FIN.It_dl.pval <- adf.FIN.It_dl$p.value
adf.FIN.Itcurr_dl.pval <- adf.FIN.Itcurr_dl$p.value
adf.FIN.Yf_dl.pval <- adf.FIN.Yf_dl$p.value
adf.FIN.W_dl.pval <- adf.FIN.W_dl$p.value

adf.FIN_dl <- rbind(adf.FIN.WS_dl.pval,adf.FIN.PS_dl.pval,adf.FIN.Y_dl.pval,adf.FIN.Yrw_dl.pval,adf.FIN.r_dl.pval,adf.FIN.R_dl.pval,adf.FIN.Tau_dl.pval,adf.FIN.rulc_dl.pval,adf.FIN.ulc_dl.pval,adf.FIN.P_dl.pval,adf.FIN.Pm_dl.pval,adf.FIN.Px_dl.pval,adf.FIN.X_dl.pval,adf.FIN.M_dl.pval,adf.FIN.I_dl.pval,adf.FIN.C_dl.pval,adf.FIN.Ipr_dl.pval,adf.FIN.Ips_dl.pval,adf.FIN.It_dl.pval,adf.FIN.Itcurr_dl.pval,adf.FIN.Yf_dl.pval,adf.FIN.W_dl.pval)
colnames(adf.FIN_dl) <- c("FIN")
rownames(adf.FIN_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.FIN_dl
##                     FIN
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.02626102
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01000000
## dlog(Tau)    0.02018798
## dlog(rulc)   0.01000000
## dlog(ulc)    0.25725272
## dlog(P)      0.24869489
## dlog(Pm)     0.03846620
## dlog(Px)     0.03920176
## dlog(X)      0.01000000
## dlog(M)      0.01000000
## dlog(I)      0.01000000
## dlog(C)      0.04789002
## dlog(Ipr)    0.01199730
## dlog(Ips)    0.01000000
## dlog(It)     0.01000000
## dlog(Itcurr) 0.01184197
## dlog(Yf)     0.03662119
## dlog(W)      0.01000000
adf.FIN <- NULL
adf.FIN <- rbind(adf.FIN_non,adf.FIN_dl)

Økonometriske test

#Consumption (C)
FIN_consumption <- dynlm(FIN$C_dl~FIN$R_dl+FIN$W_dl+L(FIN$C_l))
FIN_CR <- summary(FIN_consumption)$coefficients["FIN$R_dl","Estimate"]
FIN_CW <- summary(FIN_consumption)$coefficients["FIN$W_dl","Estimate"]
FIN_Ceffekt <- (FIN_CR*mean(FIN$C/FIN$R))-(FIN_CW*mean(FIN$C/FIN$W))
summary(FIN_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$C_dl ~ FIN$R_dl + FIN$W_dl + L(FIN$C_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.028712 -0.004807  0.001277  0.005774  0.026172 
## 
## Coefficients:
##             Estimate Std. Error t value            Pr(>|t|)    
## (Intercept)  0.01479    0.01731   0.854               0.397    
## FIN$R_dl     0.18567    0.02237   8.302 0.00000000003701748 ***
## FIN$W_dl     0.63850    0.05721  11.160 0.00000000000000158 ***
## L(FIN$C_l)  -0.00154    0.00398  -0.387               0.700    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01251 on 53 degrees of freedom
## Multiple R-squared:  0.7864, Adjusted R-squared:  0.7743 
## F-statistic: 65.05 on 3 and 53 DF,  p-value: < 0.00000000000000022
#Investments (I)
FIN_investment <- dynlm(FIN$I_dl~FIN$PS_l+FIN$Y_dl+L(FIN$r_dl,2))
FIN_iPS <- summary(FIN_investment)$coefficients["FIN$PS_l","Estimate"]
FIN_Ieffekt <- FIN_iPS*mean(FIN$I/FIN$R)
summary(FIN_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$I_dl ~ FIN$PS_l + FIN$Y_dl + L(FIN$r_dl, 
##     2))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.109751 -0.021467  0.003122  0.033080  0.093809 
## 
## Coefficients:
##                Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)     0.06390    0.03893   1.642              0.10658    
## FIN$PS_l        0.09019    0.03365   2.680              0.00978 ** 
## FIN$Y_dl        2.21439    0.19376  11.428 0.000000000000000644 ***
## L(FIN$r_dl, 2)  0.01310    0.01344   0.974              0.33432    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04381 on 53 degrees of freedom
## Multiple R-squared:  0.7235, Adjusted R-squared:  0.7078 
## F-statistic: 46.22 on 3 and 53 DF,  p-value: 0.000000000000008096
#Price deflator (P)
FIN_deflator <- dynlm(FIN$P_dl~L(FIN$ulc_dl)+FIN$Pm_dl)
FIN_ePULC <- summary(FIN_deflator)$coefficients["L(FIN$ulc_dl)","Estimate"]
summary(FIN_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$P_dl ~ L(FIN$ulc_dl) + FIN$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.039565 -0.015490 -0.000364  0.012529  0.035221 
## 
## Coefficients:
##               Estimate Std. Error t value          Pr(>|t|)    
## (Intercept)   0.015300   0.003082   4.965 0.000007263506782 ***
## L(FIN$ulc_dl) 0.534922   0.055759   9.593 0.000000000000291 ***
## FIN$Pm_dl     0.243871   0.039788   6.129 0.000000105722929 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01725 on 54 degrees of freedom
## Multiple R-squared:  0.8221, Adjusted R-squared:  0.8155 
## F-statistic: 124.8 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
FIN_exportdeflator <- dynlm(FIN$Px_dl~FIN$ulc_dl+FIN$Pm_dl)
FIN_ePX <- summary(FIN_exportdeflator)$coefficients["FIN$ulc_dl","Estimate"]
summary(FIN_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$Px_dl ~ FIN$ulc_dl + FIN$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.048718 -0.015670 -0.000756  0.015363  0.047443 
## 
## Coefficients:
##              Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) -0.001314   0.003818  -0.344              0.7321    
## FIN$ulc_dl   0.153259   0.069082   2.219              0.0307 *  
## FIN$Pm_dl    0.782219   0.049295  15.868 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02137 on 54 degrees of freedom
## Multiple R-squared:  0.8776, Adjusted R-squared:  0.8731 
## F-statistic: 193.6 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Exports (X)
FIN_exports <- dynlm(FIN$X_dl~FIN$dPxdPm+FIN$Yrw_dl)
FIN_eXP <- summary(FIN_exports)$coefficients["FIN$dPxdPm","Estimate"]
FIN_Xeffekt <- -(FIN_eXP*FIN_ePX*(1/(1-FIN_ePULC))*mean(FIN$Yf/FIN$Y)*(mean(FIN$X/FIN$Y)/mean(FIN$rulc)))
summary(FIN_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$X_dl ~ FIN$dPxdPm + FIN$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.122143 -0.034973  0.000005  0.034351  0.136087 
## 
## Coefficients:
##             Estimate Std. Error t value    Pr(>|t|)    
## (Intercept) -0.02013    0.01389  -1.449      0.1532    
## FIN$dPxdPm  -0.71690    0.29024  -2.470      0.0167 *  
## FIN$Yrw_dl   2.22534    0.39296   5.663 0.000000588 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05312 on 54 degrees of freedom
## Multiple R-squared:  0.4058, Adjusted R-squared:  0.3838 
## F-statistic: 18.44 on 2 and 54 DF,  p-value: 0.0000007865
#Imports (M)
FIN_imports <- dynlm(FIN$M_dl~FIN$dPdPm+FIN$Y_dl)
FIN_eMP <- summary(FIN_imports)$coefficients["FIN$dPdPm","Estimate"]
FIN_eMP <- 0
FIN_Meffekt <- -(FIN_eMP*FIN_ePULC*(1/(1-FIN_ePULC))*mean(FIN$Yf/FIN$Y)*(mean(FIN$M/FIN$Y)/mean(FIN$rulc)))
summary(FIN_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$M_dl ~ FIN$dPdPm + FIN$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.094690 -0.018517  0.000938  0.019960  0.101135 
## 
## Coefficients:
##              Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) -0.006045   0.007329  -0.825              0.413    
## FIN$dPdPm   -0.079150   0.114364  -0.692              0.492    
## FIN$Y_dl     1.880188   0.177790  10.575 0.0000000000000091 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04 on 54 degrees of freedom
## Multiple R-squared:  0.6802, Adjusted R-squared:  0.6684 
## F-statistic: 57.44 on 2 and 54 DF,  p-value: 0.00000000000004267
names(FIN_consumption$coefficients) <- sub("FIN$","",names(FIN_consumption$coefficients),fixed=TRUE)
names(FIN_investment$coefficients) <- sub("FIN$","",names(FIN_investment$coefficients),fixed=TRUE)
names(FIN_deflator$coefficients) <- sub("FIN$","",names(FIN_deflator$coefficients),fixed=TRUE)
names(FIN_exportdeflator$coefficients) <- sub("FIN$","",names(FIN_exportdeflator$coefficients),fixed=TRUE)
names(FIN_exports$coefficients) <- sub("FIN$","",names(FIN_exports$coefficients),fixed=TRUE)
names(FIN_imports$coefficients) <- sub("FIN$","",names(FIN_imports$coefficients),fixed=TRUE)

FIN_Xeffekt
## [1] 0.07932185
FIN_Meffekt
## [1] 0
#Nettoeksport (NX)
FIN_NXeffekt <- FIN_Xeffekt - FIN_Meffekt

FIN_NXeffekt
## [1] 0.07932185
#Nettoeffekten
FIN_Neteffekt = FIN_Ceffekt + FIN_Ieffekt + FIN_NXeffekt

FIN_Neteffekt
## [1] -0.06983049
FIN_Lukket <- FIN_Ceffekt + FIN_Ieffekt
FIN_Lukket_Konklusion <- ifelse(FIN_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
FIN_Lukket_Konklusion
## [1] "Wage-led domestic"
FIN_Def <- ifelse(FIN_Neteffekt > 0, "Profit-led", "Wage-led")
FIN_Def
## [1] "Wage-led"

Kointegrations-test

summary(ur.df(y=FIN_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0252389 -0.0062085 -0.0000182  0.0054600  0.0164940 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.520221   0.623597  -2.438   0.0207 *
## z.diff.lag1   0.828624   0.582507   1.423   0.1649  
## z.diff.lag2   0.637748   0.534614   1.193   0.2420  
## z.diff.lag3   0.576432   0.514995   1.119   0.2716  
## z.diff.lag4   0.674249   0.485019   1.390   0.1744  
## z.diff.lag5   0.485887   0.455120   1.068   0.2939  
## z.diff.lag6   0.505692   0.430413   1.175   0.2490  
## z.diff.lag7   0.556077   0.385127   1.444   0.1588  
## z.diff.lag8   0.388875   0.346931   1.121   0.2709  
## z.diff.lag9   0.404619   0.304958   1.327   0.1943  
## z.diff.lag10  0.380872   0.260695   1.461   0.1541  
## z.diff.lag11 -0.009531   0.209588  -0.045   0.9640  
## z.diff.lag12  0.158836   0.156095   1.018   0.3168  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01149 on 31 degrees of freedom
## Multiple R-squared:  0.5835, Adjusted R-squared:  0.4089 
## F-statistic: 3.341 on 13 and 31 DF,  p-value: 0.002889
## 
## 
## Value of test-statistic is: -2.4378 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FIN_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.091482 -0.030722 -0.001842  0.022481  0.073649 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1       -2.2791     0.8815  -2.586   0.0146 *
## z.diff.lag1    1.4576     0.8307   1.755   0.0892 .
## z.diff.lag2    1.3393     0.7952   1.684   0.1022  
## z.diff.lag3    1.1622     0.7500   1.549   0.1314  
## z.diff.lag4    1.0300     0.7028   1.465   0.1529  
## z.diff.lag5    0.7266     0.6409   1.134   0.2656  
## z.diff.lag6    0.8656     0.5705   1.517   0.1393  
## z.diff.lag7    0.7424     0.5128   1.448   0.1577  
## z.diff.lag8    0.5849     0.4298   1.361   0.1834  
## z.diff.lag9    0.5542     0.3624   1.529   0.1363  
## z.diff.lag10   0.3921     0.2863   1.370   0.1806  
## z.diff.lag11   0.2884     0.2153   1.340   0.1901  
## z.diff.lag12   0.1811     0.1710   1.059   0.2979  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04358 on 31 degrees of freedom
## Multiple R-squared:  0.5194, Adjusted R-squared:  0.3179 
## F-statistic: 2.578 on 13 and 31 DF,  p-value: 0.01518
## 
## 
## Value of test-statistic is: -2.5855 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FIN_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.131583 -0.022459  0.007432  0.041540  0.115772 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.84427    0.47824  -1.765   0.0874 .
## z.diff.lag1   0.10029    0.45599   0.220   0.8274  
## z.diff.lag2   0.11556    0.43210   0.267   0.7909  
## z.diff.lag3   0.06235    0.40420   0.154   0.8784  
## z.diff.lag4   0.16375    0.38462   0.426   0.6732  
## z.diff.lag5   0.14535    0.36565   0.398   0.6937  
## z.diff.lag6   0.10815    0.33966   0.318   0.7523  
## z.diff.lag7   0.19150    0.31201   0.614   0.5438  
## z.diff.lag8   0.05169    0.28789   0.180   0.8587  
## z.diff.lag9  -0.02857    0.26567  -0.108   0.9151  
## z.diff.lag10 -0.02538    0.24538  -0.103   0.9183  
## z.diff.lag11 -0.11298    0.21283  -0.531   0.5993  
## z.diff.lag12 -0.06451    0.17535  -0.368   0.7155  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05763 on 31 degrees of freedom
## Multiple R-squared:  0.4052, Adjusted R-squared:  0.1558 
## F-statistic: 1.625 on 13 and 31 DF,  p-value: 0.1313
## 
## 
## Value of test-statistic is: -1.7654 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FIN_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.055047 -0.013457 -0.006637  0.014666  0.066625 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.44109    0.30575  -1.443    0.159
## z.diff.lag1  -0.52425    0.31011  -1.691    0.101
## z.diff.lag2  -0.39060    0.31892  -1.225    0.230
## z.diff.lag3  -0.06742    0.32812  -0.205    0.839
## z.diff.lag4  -0.11261    0.32582  -0.346    0.732
## z.diff.lag5  -0.10849    0.32418  -0.335    0.740
## z.diff.lag6   0.11216    0.31874   0.352    0.727
## z.diff.lag7   0.08240    0.31590   0.261    0.796
## z.diff.lag8   0.23343    0.30143   0.774    0.445
## z.diff.lag9   0.12897    0.27944   0.462    0.648
## z.diff.lag10  0.31589    0.24091   1.311    0.199
## z.diff.lag11  0.08223    0.20052   0.410    0.685
## z.diff.lag12 -0.04311    0.13230  -0.326    0.747
## 
## Residual standard error: 0.03132 on 31 degrees of freedom
## Multiple R-squared:  0.6678, Adjusted R-squared:  0.5285 
## F-statistic: 4.794 on 13 and 31 DF,  p-value: 0.0001684
## 
## 
## Value of test-statistic is: -1.4426 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61

Test plots

plot(FIN_consumption)

plot(FIN_investment)

plot(FIN_deflator)

plot(FIN_exportdeflator)

plot(FIN_exports)

plot(FIN_imports)

bptest(FIN_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  FIN_consumption
## BP = 3.292, df = 3, p-value = 0.3488
bptest(FIN_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  FIN_investment
## BP = 0.73745, df = 3, p-value = 0.8644
bptest(FIN_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  FIN_deflator
## BP = 1.3974, df = 2, p-value = 0.4972
bptest(FIN_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  FIN_exportdeflator
## BP = 4.4621, df = 2, p-value = 0.1074
bptest(FIN_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  FIN_exports
## BP = 5.3275, df = 2, p-value = 0.06968
bptest(FIN_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  FIN_imports
## BP = 1.6843, df = 2, p-value = 0.4308
resettest(FIN_consumption)
## 
##  RESET test
## 
## data:  FIN_consumption
## RESET = 0.62196, df1 = 2, df2 = 51, p-value = 0.5409
resettest(FIN_investment)
## 
##  RESET test
## 
## data:  FIN_investment
## RESET = 1.0577, df1 = 2, df2 = 51, p-value = 0.3547
resettest(FIN_deflator)
## 
##  RESET test
## 
## data:  FIN_deflator
## RESET = 0.68281, df1 = 2, df2 = 52, p-value = 0.5097
resettest(FIN_exportdeflator)
## 
##  RESET test
## 
## data:  FIN_exportdeflator
## RESET = 1.0248, df1 = 2, df2 = 52, p-value = 0.366
resettest(FIN_exports)
## 
##  RESET test
## 
## data:  FIN_exports
## RESET = 6.5791, df1 = 2, df2 = 52, p-value = 0.002837
resettest(FIN_imports)
## 
##  RESET test
## 
## data:  FIN_imports
## RESET = 1.7899, df1 = 2, df2 = 52, p-value = 0.1771

Resultater

FIN_regtab <- matrix(c(FIN_Ceffekt, FIN_Ieffekt, FIN_Lukket, FIN_Xeffekt, FIN_Meffekt, FIN_NXeffekt, FIN_Neteffekt,FIN_Lukket_Konklusion, FIN_Def),ncol=9,byrow=TRUE)
colnames(FIN_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(FIN_regtab) <- c("FIN")
FIN_regtab <- as.table(FIN_regtab)
FIN_regtab
##     consumption        investment         Lukket neteffekt  
## FIN -0.212002599652354 0.0628502571301414 -0.149152342522213
##     exports            imports netexports         neteffect          
## FIN 0.0793218499803654 0       0.0793218499803654 -0.0698304925418476
##     Lukket konklusion Konklusion
## FIN Wage-led domestic Wage-led
FIN_smoke <- matrix(c(mean(FIN$C/FIN$R), mean(FIN$C/FIN$W), mean(FIN$I/FIN$R), FIN_CR, FIN_CW, FIN_iPS, FIN_ePULC, (1/(1-FIN_ePULC)), FIN_eXP, FIN_ePX, FIN_eMP, mean(FIN$Yf/FIN$Y), mean(FIN$X/FIN$Y), mean(FIN$rulc), (mean(FIN$X/FIN$Y)/mean(FIN$rulc))),ncol=15,byrow=TRUE)
colnames(FIN_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(FIN_smoke) <- c("FIN")
FIN_smoke <- as.table(FIN_smoke)
FIN_smoke
##             C/R         C/W         I/R          CR          CW
## FIN  1.77218514  0.84737257  0.69687853  0.18567427  0.63850518
##             iPS       ePULC   1/1-epulc         eXP         ePX
## FIN  0.09018825  0.53492194  2.15017670 -0.71689528  0.15325921
##             eMP        Yf/Y         X/Y        RULC  (X/Y)/rulc
## FIN  0.00000000  0.92406914  0.22657610  0.62356566  0.36335564

Summary af regressioner

summary(FIN_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$C_dl ~ FIN$R_dl + FIN$W_dl + L(FIN$C_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.028712 -0.004807  0.001277  0.005774  0.026172 
## 
## Coefficients:
##             Estimate Std. Error t value            Pr(>|t|)    
## (Intercept)  0.01479    0.01731   0.854               0.397    
## R_dl         0.18567    0.02237   8.302 0.00000000003701748 ***
## W_dl         0.63850    0.05721  11.160 0.00000000000000158 ***
## L(C_l)      -0.00154    0.00398  -0.387               0.700    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01251 on 53 degrees of freedom
## Multiple R-squared:  0.7864, Adjusted R-squared:  0.7743 
## F-statistic: 65.05 on 3 and 53 DF,  p-value: < 0.00000000000000022
summary(FIN_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$I_dl ~ FIN$PS_l + FIN$Y_dl + L(FIN$r_dl, 
##     2))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.109751 -0.021467  0.003122  0.033080  0.093809 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)  0.06390    0.03893   1.642              0.10658    
## PS_l         0.09019    0.03365   2.680              0.00978 ** 
## Y_dl         2.21439    0.19376  11.428 0.000000000000000644 ***
## L(r_dl, 2)   0.01310    0.01344   0.974              0.33432    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04381 on 53 degrees of freedom
## Multiple R-squared:  0.7235, Adjusted R-squared:  0.7078 
## F-statistic: 46.22 on 3 and 53 DF,  p-value: 0.000000000000008096
summary(FIN_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$P_dl ~ L(FIN$ulc_dl) + FIN$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.039565 -0.015490 -0.000364  0.012529  0.035221 
## 
## Coefficients:
##             Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.015300   0.003082   4.965 0.000007263506782 ***
## L(ulc_dl)   0.534922   0.055759   9.593 0.000000000000291 ***
## Pm_dl       0.243871   0.039788   6.129 0.000000105722929 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01725 on 54 degrees of freedom
## Multiple R-squared:  0.8221, Adjusted R-squared:  0.8155 
## F-statistic: 124.8 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(FIN_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$Px_dl ~ FIN$ulc_dl + FIN$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.048718 -0.015670 -0.000756  0.015363  0.047443 
## 
## Coefficients:
##              Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) -0.001314   0.003818  -0.344              0.7321    
## ulc_dl       0.153259   0.069082   2.219              0.0307 *  
## Pm_dl        0.782219   0.049295  15.868 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02137 on 54 degrees of freedom
## Multiple R-squared:  0.8776, Adjusted R-squared:  0.8731 
## F-statistic: 193.6 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(FIN_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$X_dl ~ FIN$dPxdPm + FIN$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.122143 -0.034973  0.000005  0.034351  0.136087 
## 
## Coefficients:
##             Estimate Std. Error t value    Pr(>|t|)    
## (Intercept) -0.02013    0.01389  -1.449      0.1532    
## dPxdPm      -0.71690    0.29024  -2.470      0.0167 *  
## Yrw_dl       2.22534    0.39296   5.663 0.000000588 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05312 on 54 degrees of freedom
## Multiple R-squared:  0.4058, Adjusted R-squared:  0.3838 
## F-statistic: 18.44 on 2 and 54 DF,  p-value: 0.0000007865
summary(FIN_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FIN$M_dl ~ FIN$dPdPm + FIN$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.094690 -0.018517  0.000938  0.019960  0.101135 
## 
## Coefficients:
##              Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) -0.006045   0.007329  -0.825              0.413    
## dPdPm       -0.079150   0.114364  -0.692              0.492    
## Y_dl         1.880188   0.177790  10.575 0.0000000000000091 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04 on 54 degrees of freedom
## Multiple R-squared:  0.6802, Adjusted R-squared:  0.6684 
## F-statistic: 57.44 on 2 and 54 DF,  p-value: 0.00000000000004267

Frankrig analyse

Test for NA værdier

FRA_df[!complete.cases(FRA_df),]
##             WS       WS_l       WS_dl        PS      PS_l       PS_dl
## 1960 0.7272756 -0.3184498          NA 0.2727244 -1.299293          NA
## 1961 0.7416154 -0.2989245  0.01952530 0.2583846 -1.353306 -0.05401263
## 2019 0.6676164 -0.4040415 -0.01185690 0.3323836 -1.101466  0.02424883
## 2020 0.6937024 -0.3657122  0.03832928 0.3062976 -1.183198 -0.08173254
## 2021 0.6671336 -0.4047649 -0.03905268 0.3328664 -1.100014  0.08318395
## 2022        NA         NA          NA        NA        NA          NA
##             Y      Y_l        Y_dl           Yrw    Yrw_l     Yrw_dl
## 1960  469.632 6.151949          NA 8800482141236 29.80583         NA
## 1961  493.021 6.200552  0.04860236 9199981521992 29.85022 0.04439497
## 2019 2342.362 7.758915  0.01306807            NA       NA         NA
## 2020 2149.157 7.672831 -0.08608415            NA       NA         NA
## 2021 2308.219 7.744232  0.07140056            NA       NA         NA
## 2022       NA       NA          NA            NA       NA         NA
##           Tax       Yf     Yf_l        Yf_dl        C      C_l        C_dl
## 1960   7.5570  462.075 6.135727           NA  258.320 5.554199          NA
## 1961   8.3080  484.713 6.183557  0.047829748  272.898 5.609098  0.05489897
## 2019 407.0810 1935.281 7.568008  0.008469163 1252.556 7.132942  0.01234763
## 2020 372.0508 1777.106 7.482742 -0.085266225 1136.488 7.035698 -0.09724346
## 2021 412.8182 1895.401 7.547186  0.064444009 1237.143 7.120560  0.08486188
## 2022       NA       NA       NA           NA       NA       NA          NA
##              W      W_l         W_dl        R      R_l         R_dl
## 1960  336.0559 5.817277           NA 126.0191 4.836434           NA
## 1961  359.4706 5.884632  0.067355045 125.2424 4.830251 -0.006182881
## 2019 1292.0254 7.163966 -0.003387739 643.2556 6.466542  0.032717995
## 2020 1232.7829 7.117029 -0.046936940 544.3233 6.299543 -0.166998760
## 2021 1264.4857 7.142421  0.025391328 630.9151 6.447171  0.147627960
## 2022        NA       NA           NA       NA       NA           NA
##            It     It_l       It_dl   Itcurr Itcurr_l   Itcurr_dl      Ipr
## 1960  97.9551 4.584509          NA  10.5730 2.358304          NA   8.6511
## 1961 109.3434 4.694493  0.10998418  12.1450 2.496918  0.13861398   9.9089
## 2019 541.0969 6.293598  0.03516384 565.8340 6.338301  0.05059462 477.6060
## 2020 469.3392 6.151326 -0.14227263 492.8958 6.200298 -0.13800296 403.1502
## 2021 535.0529 6.282366  0.13103987 569.7572 6.345210  0.14491251 479.3834
## 2022       NA       NA          NA       NA       NA          NA       NA
##         Ipr_l      Ipr_dl       Ips      Ips_l       Ips_dl         I
## 1960 2.157686          NA 0.8182257 -0.2006171           NA  80.14938
## 1961 2.293433  0.13574686 0.8158831 -0.2034842 -0.002867118  89.21143
## 2019 6.168786  0.04291088 0.8440744 -0.1695146 -0.007683732 456.72605
## 2020 5.999309 -0.16947693 0.8179218 -0.2009886 -0.031473971 383.88274
## 2021 6.172501  0.17319150 0.8413819 -0.1727096  0.028278985 450.18383
## 2022       NA          NA        NA         NA           NA        NA
##           I_l        I_dl         r      r_l       r_dl         P      P_l
## 1960 4.383892          NA        NA       NA         NA   9.97248 2.299829
## 1961 4.491009  0.10711706  2.176997 1.931312         NA  10.29876 2.332023
## 2019 6.124084  0.02748011 -1.316882 1.225150 -0.3249199 103.27170 4.637363
## 2020 5.950337 -0.17374660        NA       NA         NA 104.60308 4.650173
## 2021 6.109656  0.15931886        NA       NA         NA 105.59353 4.659597
## 2022       NA          NA        NA       NA         NA        NA       NA
##             P_dl        Pm     Pm_l         Pm_dl        Px     Px_l
## 1960          NA  19.93618 2.992536            NA  21.73690 3.079011
## 1961 0.032193938  19.92529 2.991990 -0.0005461315  21.76766 3.080425
## 2019 0.014555455 101.85031 4.623504 -0.0001265414 101.20590 4.617157
## 2020 0.012809603  96.32491 4.567727 -0.0557772068  96.96832 4.574384
## 2021 0.009424082  98.59341 4.591004  0.0232774789  99.26163 4.597759
## 2022          NA        NA       NA            NA        NA       NA
##             Px_dl        X      X_l        X_dl        M      M_l
## 1960           NA  31.9181 3.463173          NA  29.0828 3.370147
## 1961  0.001413843  33.6141 3.514946  0.05177237  31.2517 3.442074
## 2019  0.009485351 750.3120 6.620489  0.01986149 757.8396 6.630472
## 2020 -0.042772692 660.5912 6.493135 -0.12735393 668.2931 6.504727
## 2021  0.023374756 718.6801 6.577416  0.08428114 738.9528 6.605234
## 2022           NA       NA       NA          NA       NA       NA
##             M_dl      rulc     rulc_l     rulc_dl       ulc    ulc_l
## 1960          NA 0.7155728 -0.3346720          NA  7.136035 1.965157
## 1961  0.07192684 0.7291183 -0.3159193  0.01875268  7.509012 2.016104
## 2019  0.02142013 0.5515908 -0.5949488 -0.01645580 56.963724 4.042415
## 2020 -0.12574490 0.5736123 -0.5558016  0.03914721 60.001614 4.094371
## 2021  0.10050720 0.5478188 -0.6018108 -0.04600923 57.846116 4.057786
## 2022          NA        NA         NA          NA        NA       NA
##            ulc_dl       Tau    Tau_l        Tau_dl        dPxdPm
## 1960           NA  46.18904 3.832743            NA            NA
## 1961  0.050946622  47.83778 3.867816  0.0350731937 0.00195997426
## 2019 -0.001900349 101.91591 4.624148 -0.0009795153 0.00961189269
## 2020  0.051956812  98.95226 4.594638 -0.0295105153 0.01300451428
## 2021 -0.036585150  99.68950 4.602060  0.0074228418 0.00009727721
## 2022           NA        NA       NA            NA            NA
##            dPdPm     Trade
## 1960          NA 0.1298909
## 1961  0.03274007 0.1315680
## 2019  0.01468200 0.6438593
## 2020  0.06858681 0.6183282
## 2021 -0.01385340 0.6314968
## 2022          NA        NA
FRA <- FRA_df[3:59,]
FRA[!complete.cases(FRA),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
FRA %>% head()
##             WS       WS_l        WS_dl        PS      PS_l         PS_dl
## 1962 0.7414479 -0.2991504 -0.000225869 0.2585521 -1.352658  0.0006480059
## 1963 0.7513413 -0.2858952  0.013255125 0.2486587 -1.391674 -0.0390159848
## 1964 0.7499167 -0.2877931 -0.001897844 0.2500833 -1.385961  0.0057126933
## 1965 0.7418016 -0.2986734 -0.010880343 0.2581984 -1.354027  0.0319343173
## 1966 0.7316737 -0.3124207 -0.013747253 0.2683263 -1.315551  0.0384757178
## 1967 0.7233947 -0.3238004 -0.011379664 0.2766053 -1.285164  0.0303878163
##            Y      Y_l       Y_dl            Yrw    Yrw_l     Yrw_dl    Tax
## 1962 526.760 6.266745 0.06619327  9730615761826 29.90630 0.05607570  9.383
## 1963 559.597 6.327217 0.06047184 10251407087275 29.95844 0.05213779 10.695
## 1964 596.822 6.391619 0.06440203 10925381701654 30.02211 0.06367371 11.999
## 1965 625.836 6.439088 0.04746944 11524850595846 30.07553 0.05341695 12.843
## 1966 658.704 6.490274 0.05118591 12218016919738 30.13393 0.05840603 13.941
## 1967 691.120 6.538313 0.04803920 12786124200589 30.17938 0.04544888 14.682
##           Yf     Yf_l      Yf_dl       C      C_l       C_dl        W
## 1962 517.377 6.248772 0.06521485 292.669 5.679042 0.06994418 383.6081
## 1963 548.902 6.307920 0.05914810 313.248 5.746995 0.06795293 412.4128
## 1964 584.823 6.371309 0.06338932 330.307 5.800023 0.05302732 438.5686
## 1965 612.993 6.418354 0.04704428 343.014 5.837771 0.03774874 454.7192
## 1966 644.763 6.468883 0.05052929 358.935 5.883141 0.04537005 471.7561
## 1967 676.438 6.516841 0.04795799 376.247 5.930246 0.04710453 489.3316
##           W_l       W_dl        R      R_l       R_dl       It     It_l
## 1962 5.949621 0.06498898 133.7689 4.896114 0.06586286 116.5876 4.758643
## 1963 6.022025 0.07240323 136.4892 4.916246 0.02013212 126.4799 4.840083
## 1964 6.083516 0.06149147 146.2544 4.985348 0.06910201 139.4561 4.937750
## 1965 6.119680 0.03616394 158.2738 5.064326 0.07897860 147.4164 4.993261
## 1966 6.156462 0.03678204 173.0069 5.153331 0.08900501 158.6481 5.066689
## 1967 6.193040 0.03657832 187.1064 5.231677 0.07834580 170.6539 5.139638
##           It_dl Itcurr Itcurr_l  Itcurr_dl     Ipr    Ipr_l     Ipr_dl
## 1962 0.06414953 13.488 2.601800 0.10488284 10.8418 2.383409 0.08997569
## 1963 0.08144048 15.656 2.750854 0.14905383 12.5496 2.529689 0.14627976
## 1964 0.09766645 18.011 2.890983 0.14012845 14.2942 2.659854 0.13016507
## 1965 0.05551138 19.740 2.982647 0.09166435 15.5396 2.743392 0.08353774
## 1966 0.07342731 21.655 3.075236 0.09258934 17.2109 2.845543 0.10215130
## 1967 0.07294899 23.785 3.169055 0.09381876 18.8568 2.936874 0.09133069
##            Ips      Ips_l       Ips_dl         I      I_l       I_dl
## 1962 0.8038108 -0.2183914 -0.014907148  93.71437 4.540252 0.04924239
## 1963 0.8015841 -0.2211654 -0.002774070 101.38427 4.618918 0.07866641
## 1964 0.7936372 -0.2311288 -0.009963384 110.67755 4.706621 0.08770307
## 1965 0.7872138 -0.2392554 -0.008126608 116.04822 4.754006 0.04738477
## 1966 0.7947772 -0.2296935  0.009561959 126.08989 4.836995 0.08298927
## 1967 0.7928022 -0.2321815 -0.002488068 135.29479 4.907456 0.07046092
##               r      r_l         r_dl        P      P_l       P_dl
## 1962  0.5087944 1.654479 -0.276833200 10.80301 2.379825 0.04780200
## 1963 -0.1762756 1.514090 -0.140388753 11.39999 2.433613 0.05378734
## 1964  1.4001714 1.811845  0.297754693 11.85530 2.472775 0.03916212
## 1965  3.1049106 2.057512  0.245666708 12.21118 2.502352 0.02957709
## 1966  3.5039951 2.107246  0.049734132 12.57408 2.531637 0.02928567
## 1967  3.5603489 2.114073  0.006827702 12.95650 2.561598 0.02996034
##            Pm     Pm_l       Pm_dl       Px     Px_l        Px_dl       X
## 1962 20.32485 3.011844  0.01985453 22.04604 3.093133  0.012707935 34.0061
## 1963 20.63138 3.026813  0.01496883 22.37445 3.107920  0.014786382 36.8590
## 1964 20.95310 3.042287  0.01547361 23.21272 3.144700  0.036780845 39.9135
## 1965 21.17362 3.052756  0.01046930 23.44744 3.154761  0.010060809 44.2266
## 1966 21.59787 3.072595  0.01983877 23.81141 3.170165  0.015403722 47.2841
## 1967 21.47701 3.066983 -0.00561180 23.76952 3.168404 -0.001760857 50.8172
##           X_l       X_dl       M      M_l       M_dl      rulc     rulc_l
## 1962 3.526540 0.01159430 33.4861 3.511130 0.06905665 0.7282407 -0.3171236
## 1963 3.607100 0.08055990 37.8210 3.632865 0.12173408 0.7369817 -0.3051922
## 1964 3.686715 0.07961479 43.5974 3.774998 0.14213301 0.7348398 -0.3081028
## 1965 3.789326 0.10261181 44.7019 3.800016 0.02501849 0.7265788 -0.3194083
## 1966 3.856174 0.06684767 49.8151 3.908318 0.10830214 0.7161883 -0.3338121
## 1967 3.928235 0.07206079 54.6910 4.001699 0.09338101 0.7080270 -0.3452730
##           rulc_dl      ulc    ulc_l     ulc_dl      Tau    Tau_l
## 1962 -0.001204284 7.867196 2.062702 0.04659771 50.41424 3.920274
## 1963  0.011931383 8.401585 2.128420 0.06571872 52.51239 3.961049
## 1964 -0.002910555 8.711744 2.164672 0.03625157 54.70632 4.001979
## 1965 -0.011305509 8.872384 2.182944 0.01827158 56.27531 4.030256
## 1966 -0.014403874 9.005408 2.197825 0.01488180 57.90148 4.058743
## 1967 -0.011460878 9.173554 2.216325 0.01849947 59.52902 4.086464
##          Tau_dl        dPxdPm      dPdPm     Trade
## 1962 0.05245795 -0.0071465898 0.02794747 0.1281270
## 1963 0.04077542 -0.0001824482 0.03881851 0.1334532
## 1964 0.04093011  0.0213072313 0.02368851 0.1399260
## 1965 0.02827668 -0.0004084935 0.01910779 0.1420955
## 1966 0.02848701 -0.0044350481 0.00944690 0.1474095
## 1967 0.02772092  0.0038509431 0.03557214 0.1526626

DATA

FRA %>% head(100)
##             WS       WS_l         WS_dl        PS      PS_l         PS_dl
## 1962 0.7414479 -0.2991504 -0.0002258690 0.2585521 -1.352658  0.0006480059
## 1963 0.7513413 -0.2858952  0.0132551250 0.2486587 -1.391674 -0.0390159848
## 1964 0.7499167 -0.2877931 -0.0018978435 0.2500833 -1.385961  0.0057126933
## 1965 0.7418016 -0.2986734 -0.0108803435 0.2581984 -1.354027  0.0319343173
## 1966 0.7316737 -0.3124207 -0.0137472528 0.2683263 -1.315551  0.0384757178
## 1967 0.7233947 -0.3238004 -0.0113796642 0.2766053 -1.285164  0.0303878163
## 1968 0.7330061 -0.3106013  0.0131990454 0.2669939 -1.320529 -0.0353657998
## 1969 0.7206479 -0.3276046 -0.0170032813 0.2793521 -1.275282  0.0452469820
## 1970 0.7177788 -0.3315939 -0.0039893014 0.2822212 -1.265064  0.0102183628
## 1971 0.7182776 -0.3308992  0.0006946831 0.2817224 -1.266833 -0.0017689785
## 1972 0.7135734 -0.3374700 -0.0065707984 0.2864266 -1.250273  0.0165600644
## 1973 0.7086247 -0.3444292 -0.0069591809 0.2913753 -1.233143  0.0171296359
## 1974 0.7137595 -0.3372092  0.0072199512 0.2862405 -1.250923 -0.0177795876
## 1975 0.7489640 -0.2890644  0.0481448300 0.2510360 -1.382159 -0.1312359463
## 1976 0.7546679 -0.2814775  0.0075868564 0.2453321 -1.405142 -0.0229835166
## 1977 0.7518564 -0.2852099 -0.0037323744 0.2481436 -1.393748  0.0113946167
## 1978 0.7525561 -0.2842797  0.0009302037 0.2474439 -1.396571 -0.0028237415
## 1979 0.7512557 -0.2860093 -0.0017295347 0.2487443 -1.391330  0.0052417607
## 1980 0.7546483 -0.2815034  0.0045058407 0.2453517 -1.405063 -0.0137330776
## 1981 0.7567579 -0.2787119  0.0027915121 0.2432421 -1.413698 -0.0086352559
## 1982 0.7543875 -0.2818491 -0.0031371844 0.2456125 -1.404000  0.0096977206
## 1983 0.7442003 -0.2954450 -0.0135959409 0.2557997 -1.363361  0.0406396256
## 1984 0.7336438 -0.3097316 -0.0142865788 0.2663562 -1.322921  0.0404397570
## 1985 0.7226674 -0.3248062 -0.0150746142 0.2773326 -1.282538  0.0403832081
## 1986 0.7006907 -0.3556888 -0.0308825524 0.2993093 -1.206278  0.0762600335
## 1987 0.6951168 -0.3636754 -0.0079866570 0.3048832 -1.187826  0.0184512238
## 1988 0.6791668 -0.3868885 -0.0232130341 0.3208332 -1.136834  0.0509923869
## 1989 0.6661305 -0.4062697 -0.0193812623 0.3338695 -1.097005  0.0398290570
## 1990 0.6692149 -0.4016500  0.0046197477 0.3307851 -1.106286 -0.0092815012
## 1991 0.6699670 -0.4005269  0.0011230828 0.3300330 -1.108562 -0.0022759858
## 1992 0.6655281 -0.4071745 -0.0066475941 0.3344719 -1.095202  0.0133602126
## 1993 0.6672838 -0.4045399  0.0026345805 0.3327162 -1.100465 -0.0052629920
## 1994 0.6614188 -0.4133681 -0.0088281884 0.3385812 -1.082991  0.0174740095
## 1995 0.6619887 -0.4125069  0.0008612405 0.3380113 -1.084676 -0.0016845770
## 1996 0.6630980 -0.4108325  0.0016743784 0.3369020 -1.087963 -0.0032873821
## 1997 0.6573405 -0.4195532 -0.0087206994 0.3426595 -1.071018  0.0169452641
## 1998 0.6490940 -0.4321777 -0.0126244912 0.3509060 -1.047237  0.0237809256
## 1999 0.6525312 -0.4268964  0.0052813006 0.3474688 -1.057080 -0.0098433014
## 2000 0.6463768 -0.4363727 -0.0094763097 0.3536232 -1.039523  0.0175570075
## 2001 0.6440309 -0.4400086 -0.0036359154 0.3559691 -1.032911  0.0066120009
## 2002 0.6485293 -0.4330481  0.0069604469 0.3514707 -1.045629 -0.0127175212
## 2003 0.6496879 -0.4312632  0.0017849515 0.3503121 -1.048931 -0.0033019561
## 2004 0.6464381 -0.4362779 -0.0050146589 0.3535619 -1.039697  0.0092341271
## 2005 0.6490272 -0.4322807  0.0039971392 0.3509728 -1.047046 -0.0073497741
## 2006 0.6461292 -0.4367558 -0.0044751120 0.3538708 -1.038823  0.0082230897
## 2007 0.6382359 -0.4490473 -0.0122914416 0.3617641 -1.016763  0.0220603277
## 2008 0.6392784 -0.4474152  0.0016320697 0.3607216 -1.019649 -0.0028858614
## 2009 0.6597666 -0.4158692  0.0315460416 0.3402334 -1.078123 -0.0584745185
## 2010 0.6573771 -0.4194974 -0.0036282534 0.3426229 -1.071125  0.0069984646
## 2011 0.6610349 -0.4139486  0.0055488076 0.3389651 -1.081858 -0.0107332682
## 2012 0.6691388 -0.4017638  0.0121847851 0.3308612 -1.106056 -0.0241980207
## 2013 0.6753356 -0.3925456  0.0092182509 0.3246644 -1.124963 -0.0189069383
## 2014 0.6740499 -0.3944511 -0.0019055020 0.3259501 -1.121011  0.0039520475
## 2015 0.6662636 -0.4060699 -0.0116188285 0.3337364 -1.097404  0.0236073077
## 2016 0.6692357 -0.4016190  0.0044508672 0.3307643 -1.106349 -0.0089453016
## 2017 0.6728575 -0.3962217  0.0053973061 0.3271425 -1.117359 -0.0110102869
## 2018 0.6755794 -0.3921846  0.0040371406 0.3244206 -1.125714 -0.0083550674
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1962  526.760 6.266745  0.066193267  9730615761826 29.90630  0.0560757035
## 1963  559.597 6.327217  0.060471845 10251407087275 29.95844  0.0521377939
## 1964  596.822 6.391619  0.064402030 10925381701654 30.02211  0.0636737058
## 1965  625.836 6.439088  0.047469444 11524850595846 30.07553  0.0534169466
## 1966  658.704 6.490274  0.051185912 12218016919738 30.13393  0.0584060337
## 1967  691.120 6.538313  0.048039202 12786124200589 30.17938  0.0454488770
## 1968  722.160 6.582247  0.043933251 13584439386664 30.23995  0.0605644389
## 1969  773.502 6.650928  0.068681535 14359666195280 30.29544  0.0554983430
## 1970  820.753 6.710222  0.059293956 14729173696057 30.32085  0.0254068143
## 1971  864.390 6.762024  0.051801844 15309141395163 30.35947  0.0386199946
## 1972  903.386 6.806150  0.044125870 16154040250188 30.41319  0.0537200619
## 1973  960.702 6.867664  0.061514341 17169194462206 30.47414  0.0609465697
## 1974 1002.021 6.909774  0.042109972 17351693203176 30.48471  0.0105733342
## 1975  992.403 6.900129 -0.009644965 17331016172706 30.48352 -0.0011923540
## 1976 1035.639 6.942774  0.042644632 18202265079837 30.53257  0.0490483026
## 1977 1071.517 6.976831  0.034056774 18914142423797 30.57093  0.0383638774
## 1978 1114.148 7.015845  0.039014586 19708977458483 30.61210  0.0411643219
## 1979 1153.700 7.050729  0.034884182 20550686879973 30.65392  0.0418201247
## 1980 1171.914 7.066394  0.015664141 20853093000096 30.66852  0.0146079174
## 1981 1184.442 7.077027  0.010633468 21279266359765 30.68875  0.0202309057
## 1982 1214.117 7.101772  0.024745286 21258483037737 30.68778 -0.0009771708
## 1983 1229.183 7.114105  0.012332657 21839272808163 30.71473  0.0269538365
## 1984 1247.789 7.129128  0.015023464 22850435735944 30.75999  0.0452603326
## 1985 1268.038 7.145226  0.016097639 23677423119889 30.79554  0.0355517966
## 1986 1297.676 7.168330  0.023104148 24443472912055 30.82738  0.0318412406
## 1987 1330.921 7.193626  0.025296211 25282646274809 30.86114  0.0337550187
## 1988 1394.048 7.239967  0.046340561 26498888346588 30.90812  0.0469845405
## 1989 1454.604 7.282489  0.042521954 27524142851363 30.94608  0.0379607585
## 1990 1497.135 7.311309  0.028819583 28385913549311 30.97691  0.0308294789
## 1991 1512.828 7.321736  0.010427465 28809482279997 30.99173  0.0148115585
## 1992 1537.023 7.337603  0.015866682 29416808509617 31.01259  0.0208616502
## 1993 1527.361 7.331297 -0.006306019 29790222185250 31.02520  0.0126139961
## 1994 1563.381 7.354606  0.023309374 30746279081678 31.05679  0.0315887564
## 1995 1596.317 7.375454  0.020848317 31644914428465 31.08560  0.0288084727
## 1996 1618.872 7.389485  0.014030510 32584849097515 31.11487  0.0292699746
## 1997 1656.694 7.412579  0.023094440 33671723470590 31.14768  0.0328109903
## 1998 1716.147 7.447837  0.035257611 34572329239441 31.17407  0.0263952102
## 1999 1774.863 7.481479  0.033641575 35686532633897 31.20579  0.0317197513
## 2000 1844.503 7.519965  0.038486628 37111521488948 31.24495  0.0391540932
## 2001 1881.093 7.539608  0.019643126 37640836946051 31.25911  0.0141620764
## 2002 1902.453 7.550899  0.011291115 38197590198465 31.27379  0.0146828798
## 2003 1918.113 7.559097  0.008197784 39023669630849 31.29519  0.0213959458
## 2004 1972.391 7.587002  0.027904622 40319561413907 31.32786  0.0326683704
## 2005 2005.196 7.603497  0.016495299 41462526321317 31.35581  0.0279532930
## 2006 2054.310 7.627695  0.024198214 42747835076344 31.38634  0.0305285135
## 2007 2104.122 7.651654  0.023958253 43928788621069 31.41359  0.0272513298
## 2008 2109.486 7.654200  0.002546038 44089819176198 31.41725  0.0036590157
## 2009 2048.874 7.625046 -0.029153942 42633012932012 31.38365 -0.0335999935
## 2010 2088.815 7.644352  0.019306546 43935930326684 31.41375  0.0301035392
## 2011 2134.617 7.666043  0.021690320 44790534435627 31.43302  0.0192643884
## 2012 2141.301 7.669169  0.003126349 45424410535476 31.44707  0.0140528054
## 2013 2153.642 7.674916  0.005746774 46117762905743 31.46222  0.0151485507
## 2014 2174.235 7.684432  0.009516516 47060811410852 31.48246  0.0202424369
## 2015 2198.432 7.695500  0.011067500 48136932796996 31.50507  0.0226090909
## 2016 2222.515 7.706395  0.010895059 48943049356073 31.52168  0.0166076480
## 2017 2272.748 7.728745  0.022350234 50061488298470 31.54427  0.0225946517
## 2018 2311.951 7.745847  0.017102085 51180098215595 31.56637  0.0220987339
##          Tax       Yf     Yf_l        Yf_dl        C      C_l         C_dl
## 1962   9.383  517.377 6.248772  0.065214853  292.669 5.679042  0.069944179
## 1963  10.695  548.902 6.307920  0.059148103  313.248 5.746995  0.067952931
## 1964  11.999  584.823 6.371309  0.063389318  330.307 5.800023  0.053027316
## 1965  12.843  612.993 6.418354  0.047044279  343.014 5.837771  0.037748738
## 1966  13.941  644.763 6.468883  0.050529291  358.935 5.883141  0.045370051
## 1967  14.682  676.438 6.516841  0.047957988  376.247 5.930246  0.047104529
## 1968  15.530  706.630 6.560507  0.043666396  392.155 5.971657  0.041411327
## 1969  17.709  755.793 6.627768  0.067260338  417.326 6.033868  0.062210521
## 1970  18.552  802.201 6.687359  0.059591671  436.441 6.078653  0.044785509
## 1971  20.404  843.986 6.738136  0.050776707  460.827 6.133023  0.054369501
## 1972  22.998  880.388 6.780363  0.042226813  484.129 6.182351  0.049328699
## 1973  26.468  934.234 6.839727  0.059364223  511.390 6.237133  0.054781108
## 1974  28.687  973.334 6.880727  0.041000349  525.501 6.264352  0.027219585
## 1975  34.150  958.253 6.865112 -0.015615457  535.763 6.283692  0.019339806
## 1976  41.253  994.386 6.902125  0.037013626  564.973 6.336778  0.053086043
## 1977  44.233 1027.284 6.934674  0.032548244  579.420 6.362028  0.025249661
## 1978  52.002 1062.146 6.968047  0.033372964  601.922 6.400128  0.038100266
## 1979  61.689 1092.011 6.995776  0.027729561  622.331 6.433472  0.033344237
## 1980  68.643 1103.271 7.006035  0.010258453  629.743 6.445312  0.011839694
## 1981  77.980 1106.462 7.008923  0.002888134  642.187 6.464880  0.019567739
## 1982  91.225 1122.892 7.023663  0.014739963  663.120 6.496956  0.032076431
## 1983 101.202 1127.981 7.028185  0.004521809  668.618 6.505213  0.008256926
## 1984 112.301 1135.488 7.034818  0.006633206  672.960 6.511686  0.006472997
## 1985 120.742 1147.296 7.045163  0.010345355  685.513 6.530167  0.018481571
## 1986 128.049 1169.627 7.064440  0.019277025  710.596 6.566104  0.035936591
## 1987 136.461 1194.460 7.085449  0.021009306  733.881 6.598347  0.032242836
## 1988 145.332 1248.716 7.129871  0.044421623  758.255 6.631020  0.032672851
## 1989 151.614 1302.990 7.172417  0.042545800  782.383 6.662344  0.031324650
## 1990 159.104 1338.031 7.198954  0.026537507  802.724 6.688011  0.025666553
## 1991 164.001 1348.827 7.206991  0.008036196  807.968 6.694522  0.006511510
## 1992 166.456 1370.567 7.222980  0.015989197  817.054 6.705705  0.011182734
## 1993 172.158 1355.203 7.211707 -0.011273264  816.579 6.705124 -0.000581526
## 1994 183.860 1379.521 7.229492  0.017785079  830.258 6.721736  0.016612834
## 1995 192.663 1403.654 7.246834  0.017342499  844.556 6.738811  0.017074550
## 1996 204.257 1414.615 7.254613  0.007778573  861.111 6.758223  0.019412371
## 1997 210.880 1445.814 7.276428  0.021815075  865.745 6.763590  0.005366992
## 1998 218.646 1497.501 7.311553  0.035125234  900.251 6.802674  0.039083205
## 1999 225.749 1549.114 7.345438  0.033885436  931.435 6.836726  0.034052794
## 2000 229.386 1615.117 7.387163  0.041724245  965.581 6.872730  0.036003585
## 2001 231.762 1649.331 7.408125  0.020962351  989.900 6.897604  0.024873935
## 2002 239.602 1662.851 7.416289  0.008163848 1010.513 6.918213  0.020609474
## 2003 244.915 1673.198 7.422492  0.006203166 1025.524 6.932959  0.014745579
## 2004 259.112 1713.279 7.446164  0.023672313 1045.532 6.952281  0.019322145
## 2005 271.315 1733.881 7.458118  0.011953170 1070.811 6.976172  0.023890459
## 2006 281.581 1772.729 7.480275  0.022157919 1093.762 6.997378  0.021206825
## 2007 292.005 1812.117 7.502251  0.021975608 1122.611 7.023413  0.026034092
## 2008 295.410 1814.076 7.503332  0.001080472 1128.473 7.028621  0.005208169
## 2009 290.999 1757.875 7.471861 -0.031470554 1131.912 7.031664  0.003042847
## 2010 295.417 1793.398 7.491867  0.020006451 1153.233 7.050325  0.018661064
## 2011 312.820 1821.797 7.507579  0.015711232 1160.356 7.056482  0.006157552
## 2012 321.719 1819.582 7.506362 -0.001216572 1155.446 7.052242 -0.004240438
## 2013 330.843 1822.799 7.508129  0.001766427 1161.333 7.057324  0.005082067
## 2014 339.117 1835.118 7.514864  0.006735553 1170.853 7.065488  0.008164060
## 2015 350.594 1847.838 7.521772  0.006907522 1188.170 7.080170  0.014681765
## 2016 359.654 1862.861 7.529869  0.008097171 1209.318 7.097812  0.017642256
## 2017 376.423 1896.325 7.547673  0.017804325 1226.164 7.111646  0.013834033
## 2018 392.991 1918.960 7.559539  0.011865570 1237.185 7.120594  0.008948041
##              W      W_l           W_dl        R      R_l          R_dl
## 1962  383.6081 5.949621  0.06498898354 133.7689 4.896114  0.0658628584
## 1963  412.4128 6.022025  0.07240322844 136.4892 4.916246  0.0201321187
## 1964  438.5686 6.083516  0.06149147464 146.2544 4.985348  0.0691020114
## 1965  454.7192 6.119680  0.03616393578 158.2738 5.064326  0.0789785965
## 1966  471.7561 6.156462  0.03678203803 173.0069 5.153331  0.0890050086
## 1967  489.3316 6.193040  0.03657832365 187.1064 5.231677  0.0783458042
## 1968  517.9641 6.249906  0.05686544099 188.6659 5.239978  0.0083005958
## 1969  544.6607 6.300163  0.05025705702 211.1323 5.352485  0.1125073203
## 1970  575.8028 6.355765  0.05560236931 226.3982 5.422295  0.0698100335
## 1971  606.2162 6.407237  0.05147138996 237.7698 5.471303  0.0490077283
## 1972  628.2214 6.442893  0.03565601423 252.1666 5.530090  0.0587868770
## 1973  662.0213 6.495298  0.05240504187 272.2127 5.606584  0.0764938587
## 1974  694.7264 6.543518  0.04822030055 278.6076 5.629804  0.0232207617
## 1975  717.6970 6.576047  0.03252937341 240.5560 5.482953 -0.1468514029
## 1976  750.4312 6.620648  0.04460048268 243.9548 5.496983  0.0140301097
## 1977  772.3701 6.649464  0.02881586969 254.9139 5.540926  0.0439428607
## 1978  799.3245 6.683767  0.03430316723 262.8215 5.571475  0.0305492220
## 1979  820.3794 6.709767  0.02600002600 271.6316 5.604447  0.0329713214
## 1980  832.5816 6.724531  0.01476429378 270.6894 5.600972 -0.0034746244
## 1981  837.3239 6.730211  0.00567964581 269.1381 5.595225 -0.0057471222
## 1982  847.0957 6.741814  0.01160277832 275.7963 5.619662  0.0244376834
## 1983  839.4438 6.732740 -0.00907413211 288.5372 5.664824  0.0451614344
## 1984  833.0438 6.725086 -0.00765337332 302.4442 5.711897  0.0470729625
## 1985  829.1134 6.720357 -0.00472925931 318.1826 5.762625  0.0507285630
## 1986  819.5467 6.708751 -0.01160552721 350.0803 5.858163  0.0955370587
## 1987  830.2892 6.721774  0.01302264882 364.1708 5.897623  0.0394605297
## 1988  848.0865 6.742983  0.02120858890 400.6295 5.993037  0.0954140099
## 1989  867.9613 6.766147  0.02316453781 435.0287 6.075412  0.0823748572
## 1990  895.4303 6.797304  0.03115725457 442.6007 6.092668  0.0172560057
## 1991  903.6695 6.806464  0.00915927832 445.1575 6.098428  0.0057602097
## 1992  912.1508 6.815805  0.00934160289 458.4162 6.127778  0.0293494096
## 1993  904.3049 6.807167 -0.00863868369 450.8981 6.111241 -0.0165362562
## 1994  912.4411 6.816124  0.00895689048 467.0799 6.146500  0.0352590884
## 1995  929.2030 6.834327  0.01820373952 474.4510 6.162158  0.0156579220
## 1996  938.0284 6.843780  0.00945295120 476.5866 6.166649  0.0044911907
## 1997  950.3921 6.856875  0.01309437612 495.4219 6.205410  0.0387603396
## 1998  972.0190 6.879375  0.02250074279 525.4820 6.264316  0.0589061596
## 1999 1010.8452 6.918542  0.03916673637 538.2688 6.288358  0.0240421344
## 2000 1043.9741 6.950790  0.03224793559 571.1429 6.347639  0.0592812528
## 2001 1062.2201 6.968116  0.01732643586 587.1109 6.375214  0.0275743522
## 2002 1078.4075 6.983241  0.01512429484 584.4435 6.370660 -0.0045536733
## 2003 1087.0565 6.991229  0.00798811765 586.1415 6.373561  0.0029012101
## 2004 1107.5288 7.009887  0.01865765411 605.7502 6.406468  0.0329064401
## 2005 1125.3359 7.025837  0.01595030950 608.5451 6.411071  0.0046033962
## 2006 1145.4119 7.043520  0.01768280658 627.3171 6.441452  0.0303810083
## 2007 1156.5582 7.053204  0.00968416634 655.5588 6.485488  0.0440359357
## 2008 1159.6996 7.055916  0.00271254180 654.3764 6.483683 -0.0018053893
## 2009 1159.7872 7.055992  0.00007548758 598.0878 6.393738 -0.0899450724
## 2010 1178.9388 7.072370  0.01637819768 614.4592 6.420742  0.0270049157
## 2011 1204.2714 7.093630  0.02126003983 617.5256 6.425720  0.0049779641
## 2012 1217.5529 7.104598  0.01096821284 602.0291 6.400306 -0.0254145929
## 2013 1231.0010 7.115583  0.01098467830 591.7980 6.383165 -0.0171405108
## 2014 1236.9612 7.120413  0.00483005083 598.1568 6.393853  0.0106876003
## 2015 1231.1472 7.115702 -0.00471130609 616.6908 6.424368  0.0305148301
## 2016 1246.6930 7.128250  0.01254803815 616.1680 6.423520 -0.0008481307
## 2017 1275.9565 7.151451  0.02320163079 620.3685 6.430314  0.0067940378
## 2018 1296.4098 7.167354  0.01590271062 622.5502 6.433824  0.0035105026
##            It     It_l         It_dl  Itcurr Itcurr_l    Itcurr_dl
## 1962 116.5876 4.758643  0.0641495331  13.488 2.601800  0.104882839
## 1963 126.4799 4.840083  0.0814404805  15.656 2.750854  0.149053829
## 1964 139.4561 4.937750  0.0976664541  18.011 2.890983  0.140128452
## 1965 147.4164 4.993261  0.0555113790  19.740 2.982647  0.091664352
## 1966 158.6481 5.066689  0.0734273065  21.655 3.075236  0.092589341
## 1967 170.6539 5.139638  0.0729489870  23.785 3.169055  0.093818755
## 1968 180.2649 5.194427  0.0547899068  25.660 3.244933  0.075878229
## 1969 194.2824 5.269313  0.0748853350  29.210 3.374511  0.129577757
## 1970 204.5906 5.321011  0.0516981385  32.273 3.474231  0.099719851
## 1971 218.6660 5.387545  0.0665345423  36.297 3.591735  0.117504126
## 1972 231.7599 5.445702  0.0581564705  40.699 3.706204  0.114468429
## 1973 247.8331 5.512756  0.0670536138  47.128 3.852867  0.146663782
## 1974 253.8604 5.536785  0.0240289739  56.219 4.029255  0.176387474
## 1975 241.3878 5.486405 -0.0503797408  59.983 4.094061  0.064806411
## 1976 246.7529 5.508387  0.0219826622  68.142 4.221594  0.127532574
## 1977 245.1091 5.501703 -0.0066840135  73.946 4.303335  0.081741334
## 1978 251.9713 5.529315  0.0276117746  82.475 4.412495  0.109160120
## 1979 259.4877 5.558709  0.0293941105  93.925 4.542497  0.130001374
## 1980 267.4470 5.588921  0.0302121132 110.359 4.703739  0.161242097
## 1981 264.8787 5.579272 -0.0096494305 121.981 4.803865  0.100126607
## 1982 262.5188 5.570323 -0.0089492868 136.214 4.914227  0.110361884
## 1983 254.5695 5.539574 -0.0307488153 142.727 4.960934  0.046706536
## 1984 252.4391 5.531170 -0.0084038517 150.558 5.014348  0.053414677
## 1985 258.2639 5.553982  0.0228118989 160.486 5.078207  0.063858319
## 1986 269.0698 5.594971  0.0409888951 172.908 5.152760  0.074552950
## 1987 282.9457 5.645255  0.0502841809 187.078 5.231526  0.078765981
## 1988 307.5267 5.728562  0.0833069063 209.277 5.343659  0.112133091
## 1989 330.1768 5.799628  0.0710663558 230.982 5.442340  0.098681052
## 1990 345.3942 5.844686  0.0450581049 246.347 5.506741  0.064401326
## 1991 343.5490 5.839330 -0.0053566228 253.040 5.533548  0.026806468
## 1992 338.4403 5.824348 -0.0149820402 249.731 5.520384 -0.013163240
## 1993 320.0362 5.768434 -0.0559135961 236.491 5.465910 -0.054474186
## 1994 325.0142 5.783869  0.0154347593 240.972 5.484681  0.018770592
## 1995 329.3350 5.797075  0.0132065961 244.558 5.499452  0.014771755
## 1996 331.8105 5.804564  0.0074885530 248.701 5.516251  0.016798872
## 1997 334.4277 5.812421  0.0078566899 252.342 5.530785  0.014533939
## 1998 355.8639 5.874548  0.0621276417 269.042 5.594868  0.064082191
## 1999 383.7673 5.950036  0.0754880249 291.538 5.675170  0.080302856
## 2000 409.2769 6.014392  0.0643555648 318.108 5.762391  0.087220590
## 2001 418.5867 6.036884  0.0224920928 330.919 5.801874  0.039482685
## 2002 414.7467 6.027668 -0.0092160645 332.704 5.807253  0.005379573
## 2003 422.7060 6.046677  0.0190089295 343.008 5.837754  0.030500565
## 2004 437.4167 6.080886  0.0342093857 364.057 5.897310  0.059556678
## 2005 450.0997 6.109469  0.0285828261 384.922 5.953041  0.055730268
## 2006 466.5080 6.145275  0.0358060553 414.923 6.028093  0.075052244
## 2007 492.3268 6.199143  0.0538675545 450.059 6.109379  0.081285724
## 2008 496.5269 6.207638  0.0084949376 470.123 6.152994  0.043615677
## 2009 451.4931 6.112560 -0.0950775709 427.320 6.057533 -0.095461216
## 2010 460.8896 6.133159  0.0205984446 441.067 6.089197  0.031663644
## 2011 470.4118 6.153608  0.0204499464 461.566 6.134625  0.045428264
## 2012 471.5000 6.155919  0.0023106208 469.106 6.150829  0.016203700
## 2013 467.7019 6.147831 -0.0080879749 466.668 6.145618 -0.005210672
## 2014 467.8555 6.148159  0.0003283604 469.073 6.150758  0.005140323
## 2015 472.6470 6.158349  0.0101893221 472.647 6.158349  0.007590403
## 2016 485.2193 6.184601  0.0262521440 487.382 6.189048  0.030699400
## 2017 508.2284 6.230931  0.0463299991 515.926 6.245963  0.056915134
## 2018 522.4005 6.258435  0.0275035822 537.918 6.287706  0.041742788
##           Ipr    Ipr_l       Ipr_dl       Ips      Ips_l         Ips_dl
## 1962  10.8418 2.383409  0.089975691 0.8038108 -0.2183914 -0.01490714811
## 1963  12.5496 2.529689  0.146279759 0.8015841 -0.2211654 -0.00277407016
## 1964  14.2942 2.659854  0.130165068 0.7936372 -0.2311288 -0.00996338424
## 1965  15.5396 2.743392  0.083537744 0.7872138 -0.2392554 -0.00812660765
## 1966  17.2109 2.845543  0.102151299 0.7947772 -0.2296935  0.00956195879
## 1967  18.8568 2.936874  0.091330688 0.7928022 -0.2321815 -0.00248806770
## 1968  20.5037 3.020605  0.083731766 0.7990530 -0.2243280  0.00785353681
## 1969  23.6154 3.161899  0.141293684 0.8084697 -0.2126121  0.01171592672
## 1970  26.0892 3.261521  0.099622394 0.8083909 -0.2127095 -0.00009745695
## 1971  29.6476 3.389381  0.127859742 0.8168058 -0.2023539  0.01035561635
## 1972  33.5881 3.514172  0.124790660 0.8252807 -0.1920317  0.01032223086
## 1973  39.2022 3.668733  0.154561030 0.8318240 -0.1841344  0.00789724800
## 1974  46.8944 3.847898  0.179165398 0.8341379 -0.1813565  0.00277792383
## 1975  48.7219 3.886129  0.038230356 0.8122618 -0.2079326 -0.02657605503
## 1976  55.3398 4.013492  0.127363739 0.8121247 -0.2081014 -0.00016883506
## 1977  60.9947 4.110787  0.097294615 0.8248546 -0.1925481  0.01555328087
## 1978  68.5810 4.228016  0.117228553 0.8315368 -0.1844797  0.00806843326
## 1979  77.9220 4.355708  0.127692798 0.8296194 -0.1867883 -0.00230857643
## 1980  91.7010 4.518533  0.162824958 0.8309336 -0.1852054  0.00158286138
## 1981 100.1110 4.606280  0.087746286 0.8207098 -0.1975857 -0.01238032078
## 1982 110.2560 4.702805  0.096525364 0.8094322 -0.2114222 -0.01383651933
## 1983 115.3640 4.748092  0.045287412 0.8082843 -0.2128414 -0.00141912388
## 1984 121.0590 4.796278  0.048185683 0.8040689 -0.2180704 -0.00522899423
## 1985 127.7510 4.850083  0.053805027 0.7960258 -0.2281237 -0.01005329256
## 1986 138.0460 4.927587  0.077503906 0.7983783 -0.2251727  0.00295095632
## 1987 149.6420 5.008246  0.080658812 0.7998910 -0.2232799  0.00189283081
## 1988 166.7730 5.116634  0.108387832 0.7969008 -0.2270251 -0.00374525960
## 1989 185.3390 5.222187  0.105552974 0.8023959 -0.2201532  0.00687192223
## 1990 197.7310 5.286908  0.064720940 0.8026524 -0.2198336  0.00031961475
## 1991 201.0500 5.303554  0.016646112 0.7945384 -0.2299939 -0.01016035566
## 1992 196.3180 5.279736 -0.023817840 0.7861179 -0.2406485 -0.01065459944
## 1993 184.2510 5.216299 -0.063436835 0.7791036 -0.2496112 -0.00896264868
## 1994 188.2060 5.237537  0.021238149 0.7810285 -0.2471436  0.00246755723
## 1995 193.3830 5.264673  0.027135571 0.7907449 -0.2347798  0.01236381538
## 1996 196.7630 5.282000  0.017327280 0.7911629 -0.2342514  0.00052840827
## 1997 202.6830 5.311643  0.029643223 0.8032076 -0.2191421  0.01510928477
## 1998 218.8270 5.388281  0.076638281 0.8133563 -0.2065860  0.01255609018
## 1999 238.2930 5.473501  0.085219546 0.8173651 -0.2016693  0.00491668938
## 2000 259.8790 5.560216  0.086715129 0.8169521 -0.2021748 -0.00050546112
## 2001 271.6680 5.604581  0.044364594 0.8209501 -0.1972929  0.00488190979
## 2002 272.8330 5.608860  0.004279154 0.8200472 -0.1983933 -0.00110041950
## 2003 279.3600 5.632501  0.023641386 0.8144416 -0.2052525 -0.00685917846
## 2004 296.4470 5.691868  0.059367178 0.8142873 -0.2054420 -0.00018950057
## 2005 314.0380 5.749514  0.057645547 0.8158484 -0.2035267  0.00191527977
## 2006 342.2690 5.835597  0.086082980 0.8248976 -0.1924960  0.01103073542
## 2007 373.4420 5.922763  0.087165727 0.8297623 -0.1866160  0.00588000266
## 2008 391.4820 5.969940  0.047176833 0.8327225 -0.1830548  0.00356115535
## 2009 344.8810 5.843199 -0.126740107 0.8070790 -0.2143337 -0.03127889185
## 2010 358.1310 5.880899  0.037699411 0.8119651 -0.2082980  0.00603576699
## 2011 379.9750 5.940105  0.059206620 0.8232300 -0.1945196  0.01377835554
## 2012 384.5690 5.952123  0.012017766 0.8197913 -0.1987055 -0.00418593447
## 2013 382.3730 5.946397 -0.005726655 0.8193684 -0.1992215 -0.00051598306
## 2014 389.4350 5.964697  0.018300399 0.8302226 -0.1860614  0.01316007620
## 2015 397.7680 5.985869  0.021171950 0.8415752 -0.1724799  0.01358154698
## 2016 412.3070 6.021768  0.035899297 0.8459627 -0.1672800  0.00519989655
## 2017 439.4850 6.085604  0.063835369 0.8518373 -0.1603598  0.00692023486
## 2018 457.5450 6.125875  0.040271654 0.8505850 -0.1618309 -0.00147113416
##              I      I_l         I_dl          r      r_l         r_dl
## 1962  93.71437 4.540252  0.049242385  0.5087944 1.654479 -0.276833200
## 1963 101.38427 4.618918  0.078666410 -0.1762756 1.514090 -0.140388753
## 1964 110.67755 4.706621  0.087703070  1.4001714 1.811845  0.297754693
## 1965 116.04822 4.754006  0.047384771  3.1049106 2.057512  0.245666708
## 1966 126.08989 4.836995  0.082989265  3.5039951 2.107246  0.049734132
## 1967 135.29479 4.907456  0.070460919  3.5603489 2.114073  0.006827702
## 1968 144.04121 4.970099  0.062643444  2.4432411 1.969180 -0.144893194
## 1969 157.07143 5.056701  0.086601262  0.4413724 1.641505 -0.327675615
## 1970 165.38918 5.108301  0.051600682  2.4806901 1.974393  0.332888806
## 1971 178.60766 5.185192  0.076890159  1.7465573 1.866885 -0.107508422
## 1972 191.26698 5.253670  0.068478701  0.5103004 1.654767 -0.212118163
## 1973 206.15351 5.328621  0.074950862  0.3990556 1.633275 -0.021492268
## 1974 211.75459 5.355428  0.026806898 -1.2361569 1.248584 -0.384691007
## 1975 196.07009 5.278472 -0.076955796 -3.7215595 0.000000 -1.248583561
## 1976 200.39412 5.300286  0.021813827 -1.2814609 1.235500  1.235500134
## 1977 202.17937 5.309155  0.008869267  1.0065186 1.745380  0.509879931
## 1978 209.52342 5.344836  0.035680208  0.2021506 1.594062 -0.151317733
## 1979 215.27602 5.371921  0.027085534 -0.3810085 1.468001 -0.126061033
## 1980 222.23070 5.403716  0.031794975  1.2920597 1.794027  0.326025465
## 1981 217.38854 5.381686 -0.022029751  3.7227635 2.133494  0.339467618
## 1982 212.49117 5.358900 -0.022785806  3.1716331 2.066001 -0.067493689
## 1983 205.76454 5.326733 -0.032167939  3.5929260 2.117999  0.051998543
## 1984 202.97842 5.313100 -0.013632846  5.0645333 2.280962  0.162963041
## 1985 205.58473 5.325858  0.012758606  5.3732002 2.312016  0.031054172
## 1986 214.81950 5.369798  0.043939851  3.3171410 2.084267 -0.227749007
## 1987 226.32571 5.421975  0.052177012  6.8752911 2.450734  0.366466120
## 1988 245.06826 5.501537  0.079561647  5.7044332 2.344302 -0.106431575
## 1989 264.93250 5.579475  0.077938278  5.3296603 2.307694 -0.036607986
## 1990 277.23147 5.624853  0.045377720  7.0943295 2.469445  0.161751151
## 1991 272.96288 5.609336 -0.015516978  6.3413944 2.403602 -0.065843111
## 1992 266.05397 5.583699 -0.025636640  6.4951802 2.417407  0.013805239
## 1993 249.34137 5.518823 -0.064876245  5.0741184 2.281941 -0.135466021
## 1994 253.84535 5.536725  0.017902317  6.2373794 2.394155  0.112214203
## 1995 260.41998 5.562296  0.025570411  6.3439254 2.403831  0.009675334
## 1996 262.51615 5.570313  0.008016961  4.8855719 2.262506 -0.141325119
## 1997 268.61485 5.593279  0.022965975  4.6608666 2.238838 -0.023667301
## 1998 289.44414 5.667962  0.074683732  3.6550053 2.125438 -0.113400474
## 1999 313.67802 5.748367  0.080404714  4.3972268 2.210337  0.084898812
## 2000 334.35962 5.812217  0.063850104  3.7780259 2.140017 -0.070319328
## 2001 343.63881 5.839591  0.027374003  2.8739476 2.027557 -0.112460484
## 2002 340.11189 5.829275 -0.010316484  2.7360094 2.009229 -0.018327425
## 2003 344.26937 5.841424  0.012149751  2.2291827 1.938848 -0.070381031
## 2004 356.18287 5.875444  0.034019885  2.4377678 1.968416  0.029567579
## 2005 367.21312 5.905942  0.030498106  1.4456655 1.819249 -0.149167044
## 2006 384.82134 5.952779  0.046836791  1.6099727 1.845542  0.026293281
## 2007 408.51423 6.012527  0.059747557  1.6999022 1.859646  0.014103510
## 2008 413.46912 6.024583  0.012056093  1.8198493 1.878153  0.018506784
## 2009 364.39060 5.898226 -0.126356463  3.5809862 2.116562  0.238409624
## 2010 374.22626 5.924861  0.026634212  2.0286028 1.909567 -0.206995630
## 2011 387.25713 5.959089  0.034228302  2.3497651 1.956048  0.046481268
## 2012 386.53158 5.957214 -0.001875314  1.3623470 1.805647 -0.150400811
## 2013 383.22014 5.948610 -0.008603958  1.4109211 1.813599  0.007952328
## 2014 388.42420 5.962098  0.013488437  1.0867852 1.759296 -0.054303709
## 2015 397.76800 5.985869  0.023770869 -0.2948920 1.487647 -0.271648581
## 2016 410.47744 6.017321  0.031452041 -0.0522861 1.541003  0.053356427
## 2017 432.92790 6.070571  0.053250234  0.3515071 1.623945  0.082942016
## 2018 444.34605 6.096604  0.026032448 -0.0097590 1.550070 -0.073875380
##              P      P_l         P_dl        Pm     Pm_l        Pm_dl
## 1962  10.80301 2.379825 0.0478019957  20.32485 3.011844  0.019854525
## 1963  11.39999 2.433613 0.0537873397  20.63138 3.026813  0.014968830
## 1964  11.85530 2.472775 0.0391621206  20.95310 3.042287  0.015473614
## 1965  12.21118 2.502352 0.0295770898  21.17362 3.052756  0.010469303
## 1966  12.57408 2.531637 0.0292856700  21.59787 3.072595  0.019838770
## 1967  12.95650 2.561598 0.0299603438  21.47701 3.066983 -0.005611800
## 1968  13.52650 2.604650 0.0430525381  21.35225 3.061157 -0.005825804
## 1969  14.52691 2.676003 0.0713526021  22.39273 3.108737  0.047579289
## 1970  15.31496 2.728830 0.0528271391  24.52738 3.199790  0.091053329
## 1971  16.21860 2.786159 0.0573287408  25.65439 3.244715  0.044924663
## 1972  17.32227 2.851993 0.0658343050  25.46718 3.237391 -0.007323865
## 1973  18.68373 2.927653 0.0756600143  27.07023 3.298434  0.061043768
## 1974  20.89447 3.039485 0.1118313556  38.51329 3.651004  0.352569076
## 1975  23.76817 3.168347 0.1288627623  39.14342 3.667232  0.016228838
## 1976  26.32306 3.270445 0.1020980721  43.28516 3.767810  0.100577484
## 1977  28.63295 3.354558 0.0841127927  48.18005 3.874945  0.107135163
## 1978  31.28983 3.443293 0.0887348965  49.32235 3.898377  0.023432393
## 1979  34.51590 3.541420 0.0981270436  54.80758 4.003828  0.105451067
## 1980  38.54975 3.651950 0.1105295751  65.54641 4.182758  0.178930047
## 1981  43.05698 3.762524 0.1105746452  78.10974 4.358115  0.175356294
## 1982  48.26462 3.876699 0.1141744466  88.18878 4.479480  0.121365007
## 1983  52.92232 3.968825 0.0921264286  95.76292 4.561876  0.082395796
## 1984  56.66262 4.037115 0.0682895651 105.10528 4.654963  0.093086913
## 1985  59.75286 4.090217 0.0531023633 107.47028 4.677214  0.022251875
## 1986  62.77347 4.139533 0.0493154708  93.74817 4.540612 -0.136602213
## 1987  64.31510 4.163794 0.0242618996  92.34369 4.525517 -0.015094766
## 1988  66.36894 4.195229 0.0314347240  93.50891 4.538057  0.012539278
## 1989  68.54933 4.227554 0.0323243650  99.09849 4.596114  0.058057534
## 1990  70.37079 4.253778 0.0262247329  97.07793 4.575514 -0.020600146
## 1991  72.16320 4.278930 0.0251518717  97.20525 4.576825  0.001310629
## 1992  73.58269 4.298410 0.0194795937  94.43931 4.547957 -0.028867285
## 1993  74.77730 4.314514 0.0161046522  91.25024 4.513606 -0.034351763
## 1994  75.46894 4.323721 0.0092067803  91.36429 4.514855  0.001249077
## 1995  76.31776 4.334906 0.0111844497  91.46790 4.515988  0.001133368
## 1996  77.35421 4.348395 0.0134893894  92.86884 4.531188  0.015200124
## 1997  78.03354 4.357139 0.0087436793  93.95291 4.542794  0.011605493
## 1998  78.77506 4.366596 0.0094577597  91.19406 4.512990 -0.029804000
## 1999  78.93561 4.368633 0.0020360379  89.51388 4.494394 -0.018596067
## 2000  80.16171 4.384046 0.0154135031  94.28264 4.546297  0.051903431
## 2001  81.77163 4.403930 0.0198843293  93.78966 4.541055 -0.005242495
## 2002  83.46220 4.424394 0.0204634445  90.86776 4.509405 -0.031649301
## 2003  85.01407 4.442817 0.0184229360  89.39604 4.493076 -0.016328858
## 2004  86.39357 4.458913 0.0160965047  90.70523 4.507615  0.014538580
## 2005  88.06644 4.478092 0.0191783306  93.59163 4.538941  0.031325928
## 2006  89.96456 4.499416 0.0213242837  96.95752 4.574273  0.035332047
## 2007  92.26463 4.524661 0.0252450206  97.66903 4.581584  0.007311508
## 2008  94.44860 4.548056 0.0233949270 101.41440 4.619215  0.037630655
## 2009  94.51153 4.548722 0.0006660569  95.17891 4.555758 -0.063456738
## 2010  95.52252 4.559362 0.0106401652  98.68283 4.591911  0.036152531
## 2011  96.42803 4.568797 0.0094349520 104.03145 4.644693  0.052782306
## 2012  97.54836 4.580348 0.0115512754 105.80899 4.661635  0.016942234
## 2013  98.30738 4.588099 0.0077508885 104.37198 4.647961 -0.013674183
## 2014  98.87456 4.593852 0.0057528671 102.40069 4.628893 -0.019067819
## 2015 100.00000 4.605170 0.0113181928 100.00000 4.605170 -0.023723284
## 2016 100.52256 4.610382 0.0052119870  97.76103 4.582526 -0.022644124
## 2017 100.98183 4.614941 0.0045584634  99.82372 4.603406  0.020879815
## 2018 101.77942 4.622808 0.0078673324 101.86320 4.623631  0.020224860
##             Px     Px_l        Px_dl        X      X_l         X_dl
## 1962  22.04604 3.093133  0.012707935  34.0061 3.526540  0.011594298
## 1963  22.37445 3.107920  0.014786382  36.8590 3.607100  0.080559902
## 1964  23.21272 3.144700  0.036780845  39.9135 3.686715  0.079614790
## 1965  23.44744 3.154761  0.010060809  44.2266 3.789326  0.102611805
## 1966  23.81141 3.170165  0.015403722  47.2841 3.856174  0.066847669
## 1967  23.76952 3.168404 -0.001760857  50.8172 3.928235  0.072060793
## 1968  23.58744 3.160714 -0.007689788  56.1401 4.027850  0.099615472
## 1969  24.77951 3.210017  0.049302790  64.8318 4.171796  0.143945872
## 1970  26.68402 3.284065  0.074047654  75.2810 4.321228  0.149431555
## 1971  27.99002 3.331848  0.047783400  82.5508 4.413414  0.092186082
## 1972  28.39119 3.346079  0.014230647  91.6235 4.517688  0.104273928
## 1973  30.53328 3.418817  0.072738366 103.0220 4.634943  0.117254769
## 1974  37.59537 3.626881  0.208063791 114.8891 4.743967  0.109024758
## 1975  39.94266 3.687445  0.060563862 111.2169 4.711482 -0.032484967
## 1976  43.67545 3.776786  0.089341397 120.6856 4.793189  0.081706468
## 1977  47.66984 3.864299  0.087512737 130.2249 4.869263  0.076074139
## 1978  50.85672 3.929012  0.064713326 138.7604 4.932749  0.063485749
## 1979  55.70500 4.020070  0.091057554 148.0891 4.997814  0.065065415
## 1980  62.27914 4.131626  0.111556640 152.2067 5.025239  0.027425346
## 1981  70.20529 4.251424  0.119797222 159.5934 5.072629  0.047389865
## 1982  79.46560 4.375324  0.123900460 157.7966 5.061307 -0.011322469
## 1983  88.30528 4.480800  0.105475720 165.2800 5.107641  0.046334143
## 1984  95.49673 4.559092  0.078292084 176.4710 5.173157  0.065515552
## 1985  98.07071 4.585689  0.026596787 180.2016 5.194076  0.020919667
## 1986  93.04253 4.533057 -0.052632009 178.4592 5.184360 -0.009716220
## 1987  91.44304 4.515716 -0.017340528 183.4475 5.211929  0.027568519
## 1988  94.70539 4.550771  0.035054663 198.9707 5.293158  0.081229055
## 1989  98.87051 4.593811  0.043040082 218.4251 5.386443  0.093285586
## 1990  97.14629 4.576218 -0.017592946 227.4806 5.427065  0.040621796
## 1991  96.34089 4.567893 -0.008325164 241.7603 5.487947  0.060881779
## 1992  94.18309 4.545241 -0.022652254 256.1447 5.545743  0.057795780
## 1993  92.34724 4.525556 -0.019684733 257.1555 5.549681  0.003938441
## 1994  91.88400 4.520527 -0.005028981 278.1366 5.628112  0.078431400
## 1995  91.03107 4.511201 -0.009326010 302.7637 5.712953  0.084840273
## 1996  91.45705 4.515869  0.004668608 315.6859 5.754748  0.041795099
## 1997  92.46434 4.526823  0.010953518 356.8489 5.877312  0.122564711
## 1998  90.96221 4.510444 -0.016378822 388.2964 5.961769  0.084456523
## 1999  89.51017 4.494352 -0.016091932 408.1458 6.011624  0.049855498
## 2000  91.76611 4.519243  0.024890849 460.7376 6.132829  0.121204220
## 2001  91.55466 4.516936 -0.002306978 474.8923 6.163088  0.030259358
## 2002  90.24891 4.502572 -0.014364562 484.3781 6.182866  0.019777759
## 2003  88.75741 4.485907 -0.016664627 479.7335 6.173231 -0.009635059
## 2004  89.23630 4.491288  0.005380935 505.4378 6.225425  0.052194243
## 2005  90.83708 4.509068  0.017779657 525.5321 6.264411  0.038986289
## 2006  92.68109 4.529164  0.020096964 557.0521 6.322659  0.058247499
## 2007  94.43443 4.547906  0.018741192 572.6005 6.350188  0.027529494
## 2008  97.41292 4.578959  0.031053217 575.1239 6.354585  0.004397230
## 2009  93.84802 4.541677 -0.037282283 512.4466 6.239197 -0.115388985
## 2010  95.96040 4.563936  0.022258983 557.0048 6.322574  0.083377347
## 2011  98.74489 4.592540  0.028604049 592.4519 6.384270  0.061695831
## 2012 100.11551 4.606325  0.013784957 609.2902 6.412295  0.028024985
## 2013  99.89935 4.604163 -0.002161408 622.3334 6.433476  0.021181289
## 2014  99.23218 4.597462 -0.006700790 642.6987 6.465676  0.032200068
## 2015 100.00000 4.605170  0.007707783 672.5580 6.511088  0.045412323
## 2016  98.72422 4.592330 -0.012839841 684.5017 6.528691  0.017602775
## 2017  99.49847 4.600142  0.007811885 710.9014 6.566534  0.037842614
## 2018 100.25046 4.607672  0.007529445 735.5567 6.600628  0.034093885
##             M      M_l         M_dl      rulc     rulc_l       rulc_dl
## 1962  33.4861 3.511130  0.069056653 0.7282407 -0.3171236 -0.0012042838
## 1963  37.8210 3.632865  0.121734077 0.7369817 -0.3051922  0.0119313835
## 1964  43.5974 3.774998  0.142133012 0.7348398 -0.3081028 -0.0029105550
## 1965  44.7019 3.800016  0.025018491 0.7265788 -0.3194083 -0.0113055087
## 1966  49.8151 3.908318  0.108302145 0.7161883 -0.3338121 -0.0144038742
## 1967  54.6910 4.001699  0.093381011 0.7080270 -0.3452730 -0.0114608782
## 1968  61.2535 4.115021  0.113321829 0.7172428 -0.3323408  0.0129321900
## 1969  73.7427 4.300582  0.185561017 0.7041490 -0.3507653 -0.0184244776
## 1970  79.1157 4.370911  0.070329331 0.7015544 -0.3544569 -0.0036915866
## 1971  84.8510 4.440897  0.069985439 0.7013226 -0.3547874 -0.0003304543
## 1972  97.3763 4.578583  0.137686077 0.6954075 -0.3632572 -0.0084698560
## 1973 111.9348 4.717917  0.139333704 0.6891016 -0.3723665 -0.0091092993
## 1974 118.1047 4.771572  0.053654960 0.6933252 -0.3662562  0.0061103283
## 1975 107.6145 4.678555 -0.093016122 0.7231911 -0.3240818  0.0421743381
## 1976 127.6280 4.849120  0.170564386 0.7246069 -0.3221260  0.0019558510
## 1977 129.9210 4.866927  0.017806791 0.7208192 -0.3273669 -0.0052409042
## 1978 135.6768 4.910276  0.043349013 0.7174311 -0.3320783 -0.0047114186
## 1979 147.6201 4.994642  0.084366495 0.7110856 -0.3409625 -0.0088841557
## 1980 155.2167 5.044822  0.050180123 0.7104460 -0.3418623 -0.0008998469
## 1981 153.0488 5.030757 -0.014065380 0.7069353 -0.3468161 -0.0049538222
## 1982 158.5009 5.065760  0.035003447 0.6977052 -0.3599586 -0.0131425077
## 1983 154.2236 5.038403 -0.027356774 0.6829283 -0.3813654 -0.0214067895
## 1984 159.4696 5.071853  0.033449811 0.6676159 -0.4040423 -0.0226768374
## 1985 167.0350 5.118203  0.046350063 0.6538553 -0.4248692 -0.0208268982
## 1986 178.1677 5.182725  0.064521870 0.6315496 -0.4595788 -0.0347096755
## 1987 191.8366 5.256644  0.073918726 0.6238456 -0.4718524 -0.0122735626
## 1988 208.0347 5.337705  0.081060925 0.6083625 -0.4969844 -0.0251319724
## 1989 224.8198 5.415299  0.077594300 0.5966994 -0.5163418 -0.0193574158
## 1990 236.1556 5.464491  0.049191717 0.5980959 -0.5140041  0.0023376715
## 1991 243.1360 5.493621  0.029130048 0.5973379 -0.5152723 -0.0012681869
## 1992 247.4319 5.511135  0.017514435 0.5934529 -0.5217974 -0.0065250789
## 1993 239.2191 5.477380 -0.033755524 0.5920702 -0.5241301 -0.0023326646
## 1994 260.4201 5.562296  0.084916228 0.5836332 -0.5384825 -0.0143524837
## 1995 280.0108 5.634828  0.072532078 0.5820918 -0.5411271 -0.0026445776
## 1996 286.8594 5.658992  0.024164026 0.5794333 -0.5457047 -0.0045775584
## 1997 309.7381 5.735727  0.076734901 0.5736678 -0.5557047 -0.0100000638
## 1998 346.5983 5.848166  0.112439371 0.5663961 -0.5684616 -0.0127568686
## 1999 370.6889 5.915363  0.067196694 0.5695342 -0.5629365  0.0055251613
## 2000 427.6026 6.058194  0.142831093 0.5659921 -0.5691751 -0.0062386921
## 2001 437.7871 6.081733  0.023538460 0.5646824 -0.5714918 -0.0023166905
## 2002 446.3046 6.101002  0.019268959 0.5668511 -0.5676587  0.0038331796
## 2003 450.2929 6.109898  0.008896581 0.5667322 -0.5678683 -0.0002096665
## 2004 478.2282 6.170088  0.060189765 0.5615158 -0.5771153 -0.0092469680
## 2005 508.4536 6.231374  0.061285938 0.5612099 -0.5776603 -0.0005449897
## 2006 536.9300 6.285868  0.054493770 0.5575653 -0.5841757 -0.0065154070
## 2007 567.8341 6.341829  0.055961566 0.5496631 -0.5984498 -0.0142740865
## 2008 575.1875 6.354696  0.012866776 0.5497546 -0.5982833  0.0001665039
## 2009 521.3813 6.256482 -0.098214439 0.5660608 -0.5690538  0.0292294295
## 2010 567.7452 6.341673  0.085191091 0.5644056 -0.5719822 -0.0029283479
## 2011 600.8866 6.398406  0.056733505 0.5641628 -0.5724125 -0.0004302801
## 2012 602.0897 6.400406  0.002000206 0.5686043 -0.5645706  0.0078418641
## 2013 616.6511 6.424303  0.023896948 0.5715904 -0.5593327  0.0052379040
## 2014 646.8589 6.472128  0.047824801 0.5689179 -0.5640192 -0.0046864652
## 2015 685.0110 6.529435  0.057306709 0.5600115 -0.5797980 -0.0157788065
## 2016 705.0734 6.558302  0.028867014 0.5609379 -0.5781450  0.0016529796
## 2017 732.9160 6.597031  0.038729187 0.5614157 -0.5772936  0.0008513963
## 2018 741.7792 6.609052  0.012020527 0.5607428 -0.5784930 -0.0011993742
##            ulc    ulc_l       ulc_dl       Tau    Tau_l         Tau_dl
## 1962  7.867196 2.062702  0.046597712  50.41424 3.920274  0.05245795002
## 1963  8.401585 2.128420  0.065718723  52.51239 3.961049  0.04077542152
## 1964  8.711744 2.164672  0.036251566  54.70632 4.001979  0.04093010785
## 1965  8.872384 2.182944  0.018271581  56.27531 4.030256  0.02827667643
## 1966  9.005408 2.197825  0.014881796  57.90148 4.058743  0.02848701143
## 1967  9.173554 2.216325  0.018499466  59.52902 4.086464  0.02772091908
## 1968  9.701781 2.272310  0.055984728  61.12720 4.112957  0.02649301616
## 1969 10.229111 2.325238  0.052928124  63.62467 4.153001  0.04004439923
## 1970 10.744277 2.374373  0.049135552  65.66552 4.184574  0.03157266152
## 1971 11.374471 2.431371  0.056998286  67.60771 4.213722  0.02914810798
## 1972 12.046039 2.488736  0.057364449  69.03373 4.234595  0.02087317119
## 1973 12.874990 2.555287  0.066550715  71.37000 4.267878  0.03328243691
## 1974 14.486661 2.673228  0.117941684  72.60446 4.285026  0.01714869074
## 1975 17.188928 2.844265  0.171037100  71.07684 4.263762 -0.02126482156
## 1976 19.073870 2.948319  0.104053923  72.73957 4.286885  0.02312397384
## 1977 20.639181 3.027191  0.078871888  73.91671 4.302939  0.01605341705
## 1978 22.448296 3.111215  0.084023478  75.64620 4.326067  0.02312830508
## 1979 24.543759 3.200458  0.089242888  77.08768 4.344943  0.01887623522
## 1980 27.387517 3.310087  0.109629728  77.12600 4.345440  0.00049697798
## 1981 30.438497 3.415708  0.105620823  77.14912 4.345740  0.00029970485
## 1982 33.674474 3.516740  0.101031939  78.19200 4.359167  0.01342720711
## 1983 36.142149 3.587460  0.070719639  78.58804 4.364220  0.00505216670
## 1984 37.828866 3.633072  0.045612728  79.44850 4.375109  0.01088954112
## 1985 39.069727 3.665348  0.032275465  80.30401 4.385820  0.01071049058
## 1986 39.644559 3.679954  0.014605795  81.29658 4.398104  0.01228445977
## 1987 40.122692 3.691942  0.011988337  82.23197 4.409544  0.01144012954
## 1988 40.376374 3.698245  0.006302752  84.70366 4.439159  0.02961465008
## 1989 40.903342 3.711212  0.012966949  86.44556 4.459515  0.02035606237
## 1990 42.088484 3.739774  0.028562404  87.46803 4.471273  0.01175856432
## 1991 43.105813 3.763658  0.023883685  87.51750 4.471839  0.00056532905
## 1992 43.667860 3.776612  0.012954515  88.61148 4.484261  0.01242272200
## 1993 44.273414 3.790384  0.013771988  88.33525 4.481139 -0.00312223937
## 1994 44.046181 3.785239 -0.005145703  89.75887 4.497127  0.01598759549
## 1995 44.423940 3.793779  0.008539872  90.74707 4.508076  0.01094936271
## 1996 44.821608 3.802690  0.008911831  91.47033 4.516015  0.00793852717
## 1997 44.765331 3.801434 -0.001256384  92.77788 4.530208  0.01419356873
## 1998 44.617888 3.798135 -0.003299109  94.64383 4.550121  0.01991241409
## 1999 44.956532 3.805696  0.007561199  95.80914 4.562358  0.01223744765
## 2000 45.370897 3.814871  0.009174811  97.06872 4.575419  0.01306110458
## 2001 46.174999 3.832439  0.017567639  97.05534 4.575281 -0.00013794065
## 2002 47.310636 3.856735  0.024296624  96.95155 4.574211 -0.00106995699
## 2003 48.180212 3.874948  0.018213269  96.99897 4.574700  0.00048903815
## 2004 48.511357 3.881798  0.006849537  98.86326 4.593738  0.01903734136
## 2005 49.423760 3.900431  0.018633341  99.29734 4.598119  0.00438105951
## 2006 50.161117 3.915240  0.014808877 100.00793 4.605249  0.00713072374
## 2007 50.714461 3.926211  0.010970934 100.57364 4.610890  0.00564074937
## 2008 51.923554 3.949773  0.023561431  99.71326 4.602299 -0.00859158712
## 2009 53.499270 3.979668  0.029895486  96.98646 4.574571 -0.02772730377
## 2010 53.913441 3.987380  0.007711817  98.33813 4.588412  0.01384047148
## 2011 54.401107 3.996384  0.009004672  99.60987 4.601261  0.01284942323
## 2012 55.466411 4.015778  0.019393139  99.30139 4.598160 -0.00310166802
## 2013 56.191552 4.028766  0.012988792  99.29181 4.598063 -0.00009644842
## 2014 56.251507 4.029833  0.001066402  99.56101 4.600771  0.00270747943
## 2015 56.001149 4.025372 -0.004460614 100.00000 4.605170  0.00439957395
## 2016 56.386918 4.032237  0.006864967 100.32305 4.608396  0.00322532604
## 2017 56.692790 4.037647  0.005409860 101.46238 4.619688  0.01129259115
## 2018 57.072078 4.044315  0.006667958 102.01578 4.625128  0.00543944911
##             dPxdPm        dPdPm     Trade
## 1962 -0.0071465898  0.027947471 0.1281270
## 1963 -0.0001824482  0.038818510 0.1334532
## 1964  0.0213072313  0.023688506 0.1399260
## 1965 -0.0004084935  0.019107787 0.1420955
## 1966 -0.0044350481  0.009446900 0.1474095
## 1967  0.0038509431  0.035572144 0.1526626
## 1968 -0.0018639840  0.048878343 0.1625590
## 1969  0.0017235010  0.023773313 0.1791521
## 1970 -0.0170056751 -0.038226190 0.1881159
## 1971  0.0028587375  0.012404078 0.1936647
## 1972  0.0215545125  0.073158170 0.2092127
## 1973  0.0116945979  0.014616247 0.2237497
## 1974 -0.1445052852 -0.240737721 0.2325239
## 1975  0.0443350241  0.112633924 0.2205066
## 1976 -0.0112360860  0.001520589 0.2397685
## 1977 -0.0196224262 -0.023022371 0.2427828
## 1978  0.0412809329  0.065302504 0.2463202
## 1979 -0.0143935127 -0.007324023 0.2563138
## 1980 -0.0673734066 -0.068400472 0.2623259
## 1981 -0.0555590721 -0.064781649 0.2639574
## 1982  0.0025354532 -0.007190560 0.2605165
## 1983  0.0230799243  0.009730633 0.2599317
## 1984 -0.0147948292 -0.024797348 0.2692287
## 1985  0.0043449113  0.030850488 0.2738377
## 1986  0.0839702036  0.185917684 0.2748197
## 1987 -0.0022457619  0.039356666 0.2819732
## 1988  0.0225153858  0.018895446 0.2919594
## 1989 -0.0150174521 -0.025733169 0.3047186
## 1990  0.0030071999  0.046824879 0.3096823
## 1991 -0.0096357931  0.023841242 0.3205231
## 1992  0.0062150312  0.048346879 0.3276311
## 1993  0.0146670302  0.050456416 0.3249884
## 1994 -0.0062780577  0.007957703 0.3444821
## 1995 -0.0104593784  0.010051081 0.3650744
## 1996 -0.0105315156 -0.001710734 0.3722007
## 1997 -0.0006519752 -0.002861813 0.4023598
## 1998  0.0134251784  0.039261760 0.4282236
## 1999  0.0025041356  0.020632105 0.4388140
## 2000 -0.0270125819 -0.036489927 0.4816149
## 2001  0.0029355169  0.025126824 0.4851857
## 2002  0.0172847385  0.052112745 0.4892014
## 2003 -0.0003357694  0.034751794 0.4848653
## 2004 -0.0091576452  0.001557925 0.4987175
## 2005 -0.0135462714 -0.012147598 0.5156532
## 2006 -0.0152350832 -0.014007763 0.5325302
## 2007  0.0114296842  0.017933513 0.5420002
## 2008 -0.0065774384 -0.014235728 0.5453041
## 2009  0.0261744549  0.064122795 0.5045834
## 2010 -0.0138935479 -0.025512366 0.5384632
## 2011 -0.0241782572 -0.043347354 0.5590410
## 2012 -0.0031572773 -0.005390959 0.5657214
## 2013  0.0115127752  0.021425072 0.5752973
## 2014  0.0123670295  0.024820687 0.5931087
## 2015  0.0314310672  0.035041477 0.6175169
## 2016  0.0098042828  0.027856111 0.6252264
## 2017 -0.0130679304 -0.016321352 0.6352739
## 2018 -0.0126954154 -0.012357528 0.6389997

Adjusted Dickey-fuller testet I(0)

adf.FRA.WS <- adf.test((FRA$WS), alternative = c("stationary"), k = 2)
adf.FRA.PS <- adf.test((FRA$PS), alternative = c("stationary"), k = 2)
adf.FRA.Y <- adf.test((FRA$Y), alternative = c("stationary"), k = 2)
adf.FRA.Yrw <- adf.test((FRA$Yrw), alternative = c("stationary"), k = 2)
adf.FRA.r <- adf.test((FRA$r), alternative = c("stationary"), k = 2)
adf.FRA.R <- adf.test((FRA$R), alternative = c("stationary"), k = 2)
adf.FRA.Tau <- adf.test((FRA$Tau), alternative = c("stationary"), k = 2)
adf.FRA.rulc <- adf.test((FRA$rulc), alternative = c("stationary"), k = 2)
adf.FRA.ulc <- adf.test((FRA$ulc), alternative = c("stationary"), k = 2)
adf.FRA.P <- adf.test((FRA$P), alternative = c("stationary"), k = 2)
adf.FRA.Pm <- adf.test((FRA$Pm), alternative = c("stationary"), k = 2)
adf.FRA.Px <- adf.test((FRA$Px), alternative = c("stationary"), k = 2)
adf.FRA.X <- adf.test((FRA$X), alternative = c("stationary"), k = 2)
adf.FRA.M <- adf.test((FRA$M), alternative = c("stationary"), k = 2)
adf.FRA.I <- adf.test((FRA$I), alternative = c("stationary"), k = 2)
adf.FRA.C <- adf.test((FRA$C), alternative = c("stationary"), k = 2)
adf.FRA.Ipr <- adf.test((FRA$Ipr), alternative = c("stationary"), k = 2)
adf.FRA.Ips <- adf.test((FRA$Ips), alternative = c("stationary"), k = 2)
adf.FRA.It <- adf.test((FRA$It), alternative = c("stationary"), k = 2)
adf.FRA.Itcurr <- adf.test((FRA$Itcurr), alternative = c("stationary"), k = 2)
adf.FRA.Yf <- adf.test((FRA$Yf), alternative = c("stationary"), k = 2)
adf.FRA.W <- adf.test((FRA$W), alternative = c("stationary"), k = 2)

adf.FRA.WS.pval <- adf.FRA.WS$p.value
adf.FRA.PS.pval <- adf.FRA.PS$p.value
adf.FRA.Y.pval <- adf.FRA.Y$p.value
adf.FRA.Yrw.pval <- adf.FRA.Yrw$p.value
adf.FRA.r.pval <- adf.FRA.r$p.value
adf.FRA.R.pval <- adf.FRA.R$p.value
adf.FRA.Tau.pval <- adf.FRA.Tau$p.value
adf.FRA.rulc.pval <- adf.FRA.rulc$p.value
adf.FRA.ulc.pval <- adf.FRA.ulc$p.value
adf.FRA.P.pval <- adf.FRA.P$p.value
adf.FRA.Pm.pval <- adf.FRA.Pm$p.value
adf.FRA.Px.pval <- adf.FRA.Px$p.value
adf.FRA.X.pval <- adf.FRA.X$p.value
adf.FRA.M.pval <- adf.FRA.M$p.value
adf.FRA.I.pval <- adf.FRA.I$p.value
adf.FRA.C.pval <- adf.FRA.C$p.value
adf.FRA.Ipr.pval <- adf.FRA.Ipr$p.value
adf.FRA.Ips.pval <- adf.FRA.Ips$p.value
adf.FRA.It.pval <- adf.FRA.It$p.value
adf.FRA.Itcurr.pval <- adf.FRA.Itcurr$p.value
adf.FRA.Yf.pval <- adf.FRA.Yf$p.value
adf.FRA.W.pval <- adf.FRA.W$p.value

adf.FRA_non <- rbind(adf.FRA.WS.pval,adf.FRA.PS.pval,adf.FRA.Y.pval,adf.FRA.Yrw.pval,adf.FRA.r.pval,adf.FRA.R.pval,adf.FRA.Tau.pval,adf.FRA.rulc.pval,adf.FRA.ulc.pval,adf.FRA.P.pval,adf.FRA.Pm.pval,adf.FRA.Px.pval,adf.FRA.X.pval,adf.FRA.M.pval,adf.FRA.I.pval,adf.FRA.C.pval,adf.FRA.Ipr.pval,adf.FRA.Ips.pval,adf.FRA.It.pval,adf.FRA.Itcurr.pval,adf.FRA.Yf.pval,adf.FRA.W.pval)


colnames(adf.FRA_non) <- c("FRA")
rownames(adf.FRA_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.FRA_non
##              FRA
## WS     0.8456230
## PS     0.8456230
## Y      0.5217722
## Yrw    0.6588661
## r      0.9049776
## R      0.9227521
## Tau    0.8070351
## rulc   0.8819428
## ulc    0.7478044
## P      0.5043065
## Pm     0.8379722
## Px     0.8731298
## X      0.8494307
## M      0.9545177
## I      0.3194831
## C      0.3982410
## Ipr    0.4606598
## Ips    0.7276340
## It     0.1972176
## Itcurr 0.3163161
## Yf     0.5958260
## W      0.4058653

Adjusted Dickey-fuller testet I(1)

adf.FRA.WS_dl <- adf.test((FRA$WS_dl), alternative = c("stationary"), k = 2)
adf.FRA.PS_dl <- adf.test((FRA$PS_dl), alternative = c("stationary"), k = 2)
adf.FRA.Y_dl <- adf.test((FRA$Y_dl), alternative = c("stationary"), k = 2)
adf.FRA.Yrw_dl <- adf.test((FRA$Yrw_dl), alternative = c("stationary"), k = 2)
adf.FRA.r_dl <- adf.test((FRA$r_dl), alternative = c("stationary"), k = 2)
adf.FRA.R_dl <- adf.test((FRA$R_dl), alternative = c("stationary"), k = 2)
adf.FRA.Tau_dl <- adf.test((FRA$Tau_dl), alternative = c("stationary"), k = 2)
adf.FRA.rulc_dl <- adf.test((FRA$rulc_dl), alternative = c("stationary"), k = 2)
adf.FRA.ulc_dl <- adf.test((FRA$ulc_dl), alternative = c("stationary"), k = 2)
adf.FRA.P_dl <- adf.test((FRA$P_dl), alternative = c("stationary"), k = 2)
adf.FRA.Pm_dl <- adf.test((FRA$Pm_dl), alternative = c("stationary"), k = 2)
adf.FRA.Px_dl <- adf.test((FRA$Px_dl), alternative = c("stationary"), k = 2)
adf.FRA.X_dl <- adf.test((FRA$X_dl), alternative = c("stationary"), k = 2)
adf.FRA.M_dl <- adf.test((FRA$M_dl), alternative = c("stationary"), k = 2)
adf.FRA.I_dl <- adf.test((FRA$I_dl), alternative = c("stationary"), k = 2)
adf.FRA.C_dl <- adf.test((FRA$C_dl), alternative = c("stationary"), k = 2)
adf.FRA.Ipr_dl <- adf.test((FRA$Ipr_dl), alternative = c("stationary"), k = 2)
adf.FRA.Ips_dl <- adf.test((FRA$Ips_dl), alternative = c("stationary"), k = 2)
adf.FRA.It_dl <- adf.test((FRA$It_dl), alternative = c("stationary"), k = 2)
adf.FRA.Itcurr_dl <- adf.test((FRA$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.FRA.Yf_dl <- adf.test((FRA$Yf_dl), alternative = c("stationary"), k = 2)
adf.FRA.W_dl <- adf.test((FRA$W_dl), alternative = c("stationary"), k = 2)

adf.FRA.WS_dl.pval <- adf.FRA.WS_dl$p.value
adf.FRA.PS_dl.pval <- adf.FRA.PS_dl$p.value
adf.FRA.Y_dl.pval <- adf.FRA.Y_dl$p.value
adf.FRA.Yrw_dl.pval <- adf.FRA.Yrw_dl$p.value
adf.FRA.r_dl.pval <- adf.FRA.r_dl$p.value
adf.FRA.R_dl.pval <- adf.FRA.R_dl$p.value
adf.FRA.Tau_dl.pval <- adf.FRA.Tau_dl$p.value
adf.FRA.rulc_dl.pval <- adf.FRA.rulc_dl$p.value
adf.FRA.ulc_dl.pval <- adf.FRA.ulc_dl$p.value
adf.FRA.P_dl.pval <- adf.FRA.P_dl$p.value
adf.FRA.Pm_dl.pval <- adf.FRA.Pm_dl$p.value
adf.FRA.Px_dl.pval <- adf.FRA.Px_dl$p.value
adf.FRA.X_dl.pval <- adf.FRA.X_dl$p.value
adf.FRA.M_dl.pval <- adf.FRA.M_dl$p.value
adf.FRA.I_dl.pval <- adf.FRA.I_dl$p.value
adf.FRA.C_dl.pval <- adf.FRA.C_dl$p.value
adf.FRA.Ipr_dl.pval <- adf.FRA.Ipr_dl$p.value
adf.FRA.Ips_dl.pval <- adf.FRA.Ips_dl$p.value
adf.FRA.It_dl.pval <- adf.FRA.It_dl$p.value
adf.FRA.Itcurr_dl.pval <- adf.FRA.Itcurr_dl$p.value
adf.FRA.Yf_dl.pval <- adf.FRA.Yf_dl$p.value
adf.FRA.W_dl.pval <- adf.FRA.W_dl$p.value

adf.FRA_dl <- rbind(adf.FRA.WS_dl.pval,adf.FRA.PS_dl.pval,adf.FRA.Y_dl.pval,adf.FRA.Yrw_dl.pval,adf.FRA.r_dl.pval,adf.FRA.R_dl.pval,adf.FRA.Tau_dl.pval,adf.FRA.rulc_dl.pval,adf.FRA.ulc_dl.pval,adf.FRA.P_dl.pval,adf.FRA.Pm_dl.pval,adf.FRA.Px_dl.pval,adf.FRA.X_dl.pval,adf.FRA.M_dl.pval,adf.FRA.I_dl.pval,adf.FRA.C_dl.pval,adf.FRA.Ipr_dl.pval,adf.FRA.Ips_dl.pval,adf.FRA.It_dl.pval,adf.FRA.Itcurr_dl.pval,adf.FRA.Yf_dl.pval,adf.FRA.W_dl.pval)
colnames(adf.FRA_dl) <- c("FRA")
rownames(adf.FRA_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.FRA_dl
##                     FRA
## dlog(WS)     0.11183116
## dlog(PS)     0.09075478
## dlog(Y)      0.04775760
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.04573899
## dlog(Tau)    0.01174742
## dlog(rulc)   0.15734144
## dlog(ulc)    0.46202034
## dlog(P)      0.47660890
## dlog(Pm)     0.14124860
## dlog(Px)     0.38916518
## dlog(X)      0.02450894
## dlog(M)      0.02291392
## dlog(I)      0.02690750
## dlog(C)      0.07503781
## dlog(Ipr)    0.02382367
## dlog(Ips)    0.01278992
## dlog(It)     0.02525444
## dlog(Itcurr) 0.02435901
## dlog(Yf)     0.10526324
## dlog(W)      0.24240799
adf.FRA <- NULL
adf.FRA <- rbind(adf.FRA_non,adf.FRA_dl)

Økonometriske test

#Consumption (C)
FRA_consumption <- dynlm(FRA$C_dl~FRA$R_dl+FRA$W_dl)
FRA_CR <- summary(FRA_consumption)$coefficients["FRA$R_dl","Estimate"]
FRA_CW <- summary(FRA_consumption)$coefficients["FRA$W_dl","Estimate"]
FRA_Ceffekt <- (FRA_CR*mean(FRA$C/FRA$R))-(FRA_CW*mean(FRA$C/FRA$W))
summary(FRA_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$C_dl ~ FRA$R_dl + FRA$W_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0167229 -0.0048346 -0.0005375  0.0053283  0.0210302 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.007698   0.001706   4.513 0.000034998835260218 ***
## FRA$R_dl    0.153696   0.026839   5.727 0.000000466047413250 ***
## FRA$W_dl    0.644128   0.057365  11.229 0.000000000000000966 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.008257 on 54 degrees of freedom
## Multiple R-squared:  0.7942, Adjusted R-squared:  0.7865 
## F-statistic: 104.2 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Investments (I)
FRA_investment <- dynlm(FRA$I_dl~FRA$PS_dl+FRA$Y_dl)
FRA_iPS <- summary(FRA_investment)$coefficients["FRA$PS_dl","Estimate"]
FRA_Ieffekt <- FRA_iPS*mean(FRA$I/FRA$R)
summary(FRA_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$I_dl ~ FRA$PS_dl + FRA$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.048572 -0.015294  0.004213  0.016517  0.045180 
## 
## Coefficients:
##              Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) -0.016425   0.005398  -3.043          0.00362 ** 
## FRA$PS_dl    0.249098   0.113410   2.196          0.03237 *  
## FRA$Y_dl     1.608205   0.167952   9.575 0.00000000000031 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02356 on 54 degrees of freedom
## Multiple R-squared:  0.7067, Adjusted R-squared:  0.6958 
## F-statistic: 65.05 on 2 and 54 DF,  p-value: 0.000000000000004148
#Price deflator (P)
FRA_deflator <- dynlm(FRA$P_dl~L(FRA$ulc_dl)+FRA$Pm_dl)
FRA_ePULC <- summary(FRA_deflator)$coefficients["L(FRA$ulc_dl)","Estimate"]
summary(FRA_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$P_dl ~ L(FRA$ulc_dl) + FRA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.029749 -0.007095 -0.000980  0.006515  0.035541 
## 
## Coefficients:
##               Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)   0.009286   0.002067   4.493            0.0000375 ***
## L(FRA$ulc_dl) 0.824050   0.050758  16.235 < 0.0000000000000002 ***
## FRA$Pm_dl     0.055250   0.027662   1.997               0.0508 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01114 on 54 degrees of freedom
## Multiple R-squared:  0.904,  Adjusted R-squared:  0.9005 
## F-statistic: 254.3 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
FRA_exportdeflator <- dynlm(FRA$Px_dl~FRA$ulc_dl+FRA$Pm_dl)
FRA_ePX <- summary(FRA_exportdeflator)$coefficients["FRA$ulc_dl","Estimate"]
summary(FRA_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$Px_dl ~ FRA$ulc_dl + FRA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.023585 -0.007575 -0.001495  0.004926  0.038006 
## 
## Coefficients:
##               Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.0008234  0.0023863  -0.345                0.731    
## FRA$ulc_dl   0.3533285  0.0586064   6.029          0.000000153 ***
## FRA$Pm_dl    0.5255792  0.0319396  16.455 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01286 on 54 degrees of freedom
## Multiple R-squared:  0.9295, Adjusted R-squared:  0.9269 
## F-statistic:   356 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Exports (X)
FRA_exports <- dynlm(FRA$X_dl~L(FRA$dPxdPm)+FRA$Yrw_dl)
FRA_eXP <- summary(FRA_exports)$coefficients["L(FRA$dPxdPm)","Estimate"]
FRA_Xeffekt <- -(FRA_eXP*FRA_ePX*(1/(1-FRA_ePULC))*mean(FRA$Yf/FRA$Y)*(mean(FRA$X/FRA$Y)/mean(FRA$rulc)))
summary(FRA_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$X_dl ~ L(FRA$dPxdPm) + FRA$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.092028 -0.014037 -0.004624  0.015499  0.095187 
## 
## Coefficients:
##                 Estimate Std. Error t value        Pr(>|t|)    
## (Intercept)   -0.0008087  0.0076706  -0.105        0.916427    
## L(FRA$dPxdPm) -0.5620236  0.1340063  -4.194        0.000103 ***
## FRA$Yrw_dl     1.7906980  0.2187614   8.186 0.0000000000495 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02942 on 54 degrees of freedom
## Multiple R-squared:  0.5982, Adjusted R-squared:  0.5833 
## F-statistic: 40.19 on 2 and 54 DF,  p-value: 0.00000000002036
#Imports (M)
FRA_imports <- dynlm(FRA$M_dl~FRA$dPdPm+L(FRA$Y_dl)+L(FRA$M_l))
FRA_eMP <- summary(FRA_imports)$coefficients["FRA$dPdPm","Estimate"]
FRA_eMP <- 0
FRA_Meffekt <- -(FRA_eMP*FRA_ePULC*(1/(1-FRA_ePULC))*mean(FRA$Yf/FRA$Y)*(mean(FRA$M/FRA$Y)/mean(FRA$rulc)))
summary(FRA_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$M_dl ~ FRA$dPdPm + L(FRA$Y_dl) + L(FRA$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.055711 -0.016588 -0.000593  0.018988  0.083588 
## 
## Coefficients:
##              Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) -0.158034   0.040313  -3.920           0.000256 ***
## FRA$dPdPm    0.085727   0.076751   1.117           0.269051    
## L(FRA$Y_dl)  2.919235   0.276881  10.543 0.0000000000000128 ***
## L(FRA$M_l)   0.024827   0.006376   3.894           0.000278 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02948 on 53 degrees of freedom
## Multiple R-squared:  0.721,  Adjusted R-squared:  0.7053 
## F-statistic: 45.67 on 3 and 53 DF,  p-value: 0.0000000000000102
names(FRA_consumption$coefficients) <- sub("FRA$","",names(FRA_consumption$coefficients),fixed=TRUE)
names(FRA_investment$coefficients) <- sub("FRA$","",names(FRA_investment$coefficients),fixed=TRUE)
names(FRA_deflator$coefficients) <- sub("FRA$","",names(FRA_deflator$coefficients),fixed=TRUE)
names(FRA_exportdeflator$coefficients) <- sub("FRA$","",names(FRA_exportdeflator$coefficients),fixed=TRUE)
names(FRA_exports$coefficients) <- sub("FRA$","",names(FRA_exports$coefficients),fixed=TRUE)
names(FRA_imports$coefficients) <- sub("FRA$","",names(FRA_imports$coefficients),fixed=TRUE)

FRA_Xeffekt
## [1] 0.2903985
FRA_Meffekt
## [1] 0
#Nettoeksport (NX)
FRA_NXeffekt <- FRA_Xeffekt - FRA_Meffekt

FRA_NXeffekt
## [1] 0.2903985
#Nettoeffekten
FRA_Neteffekt = FRA_Ceffekt + FRA_Ieffekt + FRA_NXeffekt

FRA_Neteffekt
## [1] 0.2040077
FRA_Lukket <- FRA_Ceffekt + FRA_Ieffekt
FRA_Lukket_Konklusion <- ifelse(FRA_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
FRA_Lukket_Konklusion
## [1] "Wage-led domestic"
FRA_Def <- ifelse(FRA_Neteffekt > 0, "Profit-led", "Wage-led")
FRA_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=FRA_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0149161 -0.0047556 -0.0005951  0.0032783  0.0198758 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.87682    0.59933  -1.463    0.154
## z.diff.lag1   0.06199    0.56930   0.109    0.914
## z.diff.lag2  -0.04484    0.54607  -0.082    0.935
## z.diff.lag3   0.04472    0.52278   0.086    0.932
## z.diff.lag4   0.11966    0.50989   0.235    0.816
## z.diff.lag5   0.10449    0.48534   0.215    0.831
## z.diff.lag6   0.25848    0.46960   0.550    0.586
## z.diff.lag7   0.36842    0.44867   0.821    0.418
## z.diff.lag8   0.18423    0.42451   0.434    0.667
## z.diff.lag9   0.20191    0.39689   0.509    0.615
## z.diff.lag10  0.05840    0.34226   0.171    0.866
## z.diff.lag11  0.07255    0.26014   0.279    0.782
## z.diff.lag12 -0.04702    0.18747  -0.251    0.804
## 
## Residual standard error: 0.008949 on 31 degrees of freedom
## Multiple R-squared:  0.5104, Adjusted R-squared:  0.3051 
## F-statistic: 2.486 on 13 and 31 DF,  p-value: 0.01866
## 
## 
## Value of test-statistic is: -1.463 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FRA_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.050585 -0.008658  0.003295  0.014467  0.030789 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.15175    0.29674  -0.511    0.613
## z.diff.lag1  -0.19962    0.33122  -0.603    0.551
## z.diff.lag2  -0.28913    0.32817  -0.881    0.385
## z.diff.lag3  -0.41759    0.31918  -1.308    0.200
## z.diff.lag4  -0.38131    0.32246  -1.182    0.246
## z.diff.lag5  -0.29482    0.31744  -0.929    0.360
## z.diff.lag6  -0.35999    0.30978  -1.162    0.254
## z.diff.lag7  -0.22395    0.28135  -0.796    0.432
## z.diff.lag8  -0.26333    0.27014  -0.975    0.337
## z.diff.lag9   0.13549    0.24931   0.543    0.591
## z.diff.lag10 -0.16167    0.24067  -0.672    0.507
## z.diff.lag11 -0.08677    0.21649  -0.401    0.691
## z.diff.lag12  0.20757    0.19868   1.045    0.304
## 
## Residual standard error: 0.02075 on 31 degrees of freedom
## Multiple R-squared:  0.4328, Adjusted R-squared:  0.195 
## F-statistic:  1.82 on 13 and 31 DF,  p-value: 0.08467
## 
## 
## Value of test-statistic is: -0.5114 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FRA_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.051169 -0.011549  0.000483  0.012791  0.044565 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.05663    0.46241  -2.285   0.0293 *
## z.diff.lag1   0.16793    0.39941   0.420   0.6771  
## z.diff.lag2   0.20270    0.35405   0.573   0.5711  
## z.diff.lag3   0.42360    0.31876   1.329   0.1936  
## z.diff.lag4   0.40160    0.30655   1.310   0.1998  
## z.diff.lag5   0.39509    0.27833   1.420   0.1657  
## z.diff.lag6   0.45411    0.25327   1.793   0.0827 .
## z.diff.lag7   0.26110    0.24855   1.050   0.3016  
## z.diff.lag8   0.24217    0.22873   1.059   0.2979  
## z.diff.lag9   0.31426    0.21882   1.436   0.1610  
## z.diff.lag10  0.21426    0.20253   1.058   0.2982  
## z.diff.lag11  0.05997    0.18287   0.328   0.7452  
## z.diff.lag12 -0.18676    0.13628  -1.370   0.1804  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02254 on 31 degrees of freedom
## Multiple R-squared:  0.566,  Adjusted R-squared:  0.3841 
## F-statistic:  3.11 on 13 and 31 DF,  p-value: 0.004716
## 
## 
## Value of test-statistic is: -2.2851 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FRA_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.054164 -0.015556  0.001177  0.018374  0.066201 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.92150    1.15426  -1.665    0.106
## z.diff.lag1   0.74665    1.09069   0.685    0.499
## z.diff.lag2   0.55807    1.01588   0.549    0.587
## z.diff.lag3   0.41037    0.93615   0.438    0.664
## z.diff.lag4   0.46371    0.85599   0.542    0.592
## z.diff.lag5   0.37078    0.78922   0.470    0.642
## z.diff.lag6   0.19738    0.71273   0.277    0.784
## z.diff.lag7   0.11998    0.63525   0.189    0.851
## z.diff.lag8   0.04148    0.55777   0.074    0.941
## z.diff.lag9  -0.19477    0.46967  -0.415    0.681
## z.diff.lag10 -0.21023    0.37136  -0.566    0.575
## z.diff.lag11 -0.22933    0.26099  -0.879    0.386
## z.diff.lag12 -0.19949    0.15844  -1.259    0.217
## 
## Residual standard error: 0.02823 on 31 degrees of freedom
## Multiple R-squared:  0.6351, Adjusted R-squared:  0.482 
## F-statistic:  4.15 on 13 and 31 DF,  p-value: 0.0005642
## 
## 
## Value of test-statistic is: -1.6647 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61

Test plots

plot(FRA_consumption)

plot(FRA_investment)

plot(FRA_deflator)

plot(FRA_exportdeflator)

plot(FRA_exports)

plot(FRA_imports)

bptest(FRA_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  FRA_consumption
## BP = 0.66963, df = 2, p-value = 0.7155
bptest(FRA_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  FRA_investment
## BP = 2.8063, df = 2, p-value = 0.2458
bptest(FRA_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  FRA_deflator
## BP = 11.487, df = 2, p-value = 0.003204
bptest(FRA_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  FRA_exportdeflator
## BP = 4.3765, df = 2, p-value = 0.1121
bptest(FRA_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  FRA_exports
## BP = 1.0107, df = 2, p-value = 0.6033
bptest(FRA_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  FRA_imports
## BP = 7.3279, df = 3, p-value = 0.06215
resettest(FRA_consumption)
## 
##  RESET test
## 
## data:  FRA_consumption
## RESET = 1.6506, df1 = 2, df2 = 52, p-value = 0.2018
resettest(FRA_investment)
## 
##  RESET test
## 
## data:  FRA_investment
## RESET = 5.3472, df1 = 2, df2 = 52, p-value = 0.007729
resettest(FRA_deflator)
## 
##  RESET test
## 
## data:  FRA_deflator
## RESET = 7.0402, df1 = 2, df2 = 52, p-value = 0.001969
resettest(FRA_exportdeflator)
## 
##  RESET test
## 
## data:  FRA_exportdeflator
## RESET = 4.2624, df1 = 2, df2 = 52, p-value = 0.01931
resettest(FRA_exports)
## 
##  RESET test
## 
## data:  FRA_exports
## RESET = 2.6933, df1 = 2, df2 = 52, p-value = 0.0771
resettest(FRA_imports)
## 
##  RESET test
## 
## data:  FRA_imports
## RESET = 1.1169, df1 = 2, df2 = 51, p-value = 0.3352

Resultater

FRA_regtab <- matrix(c(FRA_Ceffekt, FRA_Ieffekt, FRA_Lukket, FRA_Xeffekt, FRA_Meffekt, FRA_NXeffekt, FRA_Neteffekt,FRA_Lukket_Konklusion, FRA_Def),ncol=9,byrow=TRUE)
colnames(FRA_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(FRA_regtab) <- c("FRA")
FRA_regtab <- as.table(FRA_regtab)
FRA_regtab
##     consumption        investment        Lukket neteffekt   
## FRA -0.253128693895561 0.166737862622821 -0.0863908312727399
##     exports           imports netexports        neteffect        
## FRA 0.290398542502207 0       0.290398542502207 0.204007711229467
##     Lukket konklusion Konklusion
## FRA Wage-led domestic Profit-led
FRA_smoke <- matrix(c(mean(FRA$C/FRA$R), mean(FRA$C/FRA$W), mean(FRA$I/FRA$R), FRA_CR, FRA_CW, FRA_iPS, FRA_ePULC, (1/(1-FRA_ePULC)), FRA_eXP, FRA_ePX, FRA_eMP, mean(FRA$Yf/FRA$Y), mean(FRA$X/FRA$Y), mean(FRA$rulc), (mean(FRA$X/FRA$Y)/mean(FRA$rulc))),ncol=15,byrow=TRUE)
colnames(FRA_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(FRA_smoke) <- c("FRA")
FRA_smoke <- as.table(FRA_smoke)
FRA_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## FRA  1.9681887  0.8626101  0.6693664  0.1536958  0.6441277  0.2490981
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## FRA  0.8240505  5.6834474 -0.5620236  0.3533285  0.0000000  0.9070664
##            X/Y       RULC (X/Y)/rulc
## FRA  0.1789426  0.6308169  0.2836680

Summary af regressioner

summary(FRA_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$C_dl ~ FRA$R_dl + FRA$W_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0167229 -0.0048346 -0.0005375  0.0053283  0.0210302 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.007698   0.001706   4.513 0.000034998835260218 ***
## R_dl        0.153696   0.026839   5.727 0.000000466047413250 ***
## W_dl        0.644128   0.057365  11.229 0.000000000000000966 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.008257 on 54 degrees of freedom
## Multiple R-squared:  0.7942, Adjusted R-squared:  0.7865 
## F-statistic: 104.2 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(FRA_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$I_dl ~ FRA$PS_dl + FRA$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.048572 -0.015294  0.004213  0.016517  0.045180 
## 
## Coefficients:
##              Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) -0.016425   0.005398  -3.043          0.00362 ** 
## PS_dl        0.249098   0.113410   2.196          0.03237 *  
## Y_dl         1.608205   0.167952   9.575 0.00000000000031 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02356 on 54 degrees of freedom
## Multiple R-squared:  0.7067, Adjusted R-squared:  0.6958 
## F-statistic: 65.05 on 2 and 54 DF,  p-value: 0.000000000000004148
summary(FRA_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$P_dl ~ L(FRA$ulc_dl) + FRA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.029749 -0.007095 -0.000980  0.006515  0.035541 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.009286   0.002067   4.493            0.0000375 ***
## L(ulc_dl)   0.824050   0.050758  16.235 < 0.0000000000000002 ***
## Pm_dl       0.055250   0.027662   1.997               0.0508 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01114 on 54 degrees of freedom
## Multiple R-squared:  0.904,  Adjusted R-squared:  0.9005 
## F-statistic: 254.3 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(FRA_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$Px_dl ~ FRA$ulc_dl + FRA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.023585 -0.007575 -0.001495  0.004926  0.038006 
## 
## Coefficients:
##               Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.0008234  0.0023863  -0.345                0.731    
## ulc_dl       0.3533285  0.0586064   6.029          0.000000153 ***
## Pm_dl        0.5255792  0.0319396  16.455 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01286 on 54 degrees of freedom
## Multiple R-squared:  0.9295, Adjusted R-squared:  0.9269 
## F-statistic:   356 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(FRA_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$X_dl ~ L(FRA$dPxdPm) + FRA$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.092028 -0.014037 -0.004624  0.015499  0.095187 
## 
## Coefficients:
##               Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) -0.0008087  0.0076706  -0.105        0.916427    
## L(dPxdPm)   -0.5620236  0.1340063  -4.194        0.000103 ***
## Yrw_dl       1.7906980  0.2187614   8.186 0.0000000000495 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02942 on 54 degrees of freedom
## Multiple R-squared:  0.5982, Adjusted R-squared:  0.5833 
## F-statistic: 40.19 on 2 and 54 DF,  p-value: 0.00000000002036
summary(FRA_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = FRA$M_dl ~ FRA$dPdPm + L(FRA$Y_dl) + L(FRA$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.055711 -0.016588 -0.000593  0.018988  0.083588 
## 
## Coefficients:
##              Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) -0.158034   0.040313  -3.920           0.000256 ***
## dPdPm        0.085727   0.076751   1.117           0.269051    
## L(Y_dl)      2.919235   0.276881  10.543 0.0000000000000128 ***
## L(M_l)       0.024827   0.006376   3.894           0.000278 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02948 on 53 degrees of freedom
## Multiple R-squared:  0.721,  Adjusted R-squared:  0.7053 
## F-statistic: 45.67 on 3 and 53 DF,  p-value: 0.0000000000000102

Grækenland analyse

Test for NA værdier

GRC_df[!complete.cases(GRC_df),]
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1960 0.8258995 -0.1912822           NA 0.1741005 -1.7481225           NA
## 1961 0.7584656 -0.2764578 -0.085175576 0.2415344 -1.4207436  0.327378940
## 1962 0.7666088 -0.2657787  0.010679083 0.2333912 -1.4550391 -0.034295559
## 1963 0.7207767 -0.3274259 -0.061647201 0.2792233 -1.2757435  0.179295648
## 1964 0.7116265 -0.3402021 -0.012776184 0.2883735 -1.2434988  0.032244692
## 1965 0.6858694 -0.3770680 -0.036865944 0.3141306 -1.1579465  0.085552266
## 1966 0.6885167 -0.3732157  0.003852306 0.3114833 -1.1664096 -0.008463018
## 1967 0.6916006 -0.3687467  0.004469036 0.3083994 -1.1763596 -0.009950003
## 1968 0.6950275 -0.3638038  0.004942874 0.3049725 -1.1875338 -0.011174274
## 1969 0.6616953 -0.4129502 -0.049146375 0.3383047 -1.0838082  0.103725656
## 1970 0.6329591 -0.4573495 -0.044399303 0.3670409 -1.0022820  0.081526184
## 1971 0.6127919 -0.4897298 -0.032380338 0.3872081 -0.9487931  0.053488880
## 1972 0.5962559 -0.5170853 -0.027355527 0.4037441 -0.9069740  0.041819088
## 1973 0.5333840 -0.6285137 -0.111428328 0.4666160 -0.7622486  0.144725395
## 1989 0.5939432 -0.5209717  0.027930317 0.4060568 -0.9012621 -0.039498251
## 1990 0.5995268 -0.5116146  0.009357068 0.4004732 -0.9151084 -0.013846324
## 1991 0.5577193 -0.5838995 -0.072284896 0.4422807 -0.8158105  0.099297913
## 1992 0.5498868 -0.5980428 -0.014143345 0.4501132 -0.7982562  0.017554352
## 2019 0.5872286 -0.5323410  0.013838442 0.4127714 -0.8848614 -0.019362969
## 2020 0.5822815 -0.5408013 -0.008460229 0.4177185 -0.8729475  0.011913909
## 2021 0.5964757 -0.5167168  0.024084515 0.4035243 -0.9075186 -0.034571081
## 2022        NA         NA           NA        NA         NA           NA
##             Y      Y_l            Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960  37.7776 3.631716              NA  8971158919800 29.82504         NA
## 1961  42.7657 3.755736  0.124020045044  9393148424028 29.87100 0.04596567
## 1962  42.9217 3.759378  0.003641146128  9947056571939 29.92830 0.05729615
## 1963  48.0057 3.871320  0.111942228305 10492391850587 29.98167 0.05337372
## 1964  52.5229 3.961249  0.089929511113 11179202280571 30.04508 0.06340470
## 1965  58.1786 4.063518  0.102268324555 11795160435162 30.09871 0.05363420
## 1966  61.9570 4.126441  0.062923006516 12511248271054 30.15765 0.05893879
## 1967  65.4696 4.181586  0.055145316724 13093603981589 30.20314 0.04549576
## 1968  70.1859 4.251147  0.069561523391 13915276771456 30.26401 0.06086342
## 1969  78.3019 4.360572  0.109424432190 14719468826646 30.32019 0.05618374
## 1970  85.2947 4.446112  0.085540450574 15103576994695 30.34595 0.02576058
## 1971  91.9842 4.521617  0.075504504248 15702890250297 30.38487 0.03891318
## 1972 101.3291 4.618374  0.096756812380 16580237041591 30.43923 0.05436666
## 1973 109.5280 4.696180  0.077806588782 17629335440452 30.50059 0.06135285
## 1989 143.1678 4.964017  0.037286284049 28201807247366 30.97041 0.03816788
## 1990 143.1683 4.964021  0.000003492399 29094396446621 31.00157 0.03115953
## 1991 147.6089 4.994566  0.030545347146 29550088727047 31.01711 0.01554115
## 1992 148.6380 5.001514  0.006947611195 30170956363599 31.03790 0.02079301
## 2019 186.4812 5.228330  0.018535581354             NA       NA         NA
## 2020 168.3137 5.125830 -0.102500929572             NA       NA         NA
## 2021 181.5911 5.201757  0.075927956014             NA       NA         NA
## 2022       NA       NA              NA             NA       NA         NA
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1960  0.03463  37.74297 3.630799           NA  22.9067 3.131429
## 1961  0.04046  42.72524 3.754790  0.123990613  24.4743 3.197624
## 1962  0.04447  42.87723 3.758341  0.003551069  25.4708 3.237533
## 1963  0.05151  47.95419 3.870246  0.111905264  26.9121 3.292576
## 1964  0.05937  52.46353 3.960118  0.089872081  29.6330 3.388889
## 1965  0.06823  58.11037 4.062344  0.102225872  31.7233 3.457051
## 1966  0.08156  61.87544 4.125123  0.062779199  33.9742 3.525601
## 1967  0.09062  65.37898 4.180201  0.055077468  36.3390 3.592892
## 1968  0.10101  70.08489 4.249707  0.069506422  39.1646 3.667773
## 1969  0.11433  78.18757 4.359111  0.109403462  41.6560 3.729445
## 1970  0.12441  85.17029 4.444653  0.085541981  45.4225 3.816008
## 1971  0.13423  91.84997 4.520156  0.075503821  47.9860 3.870909
## 1972  0.15055 101.17855 4.616887  0.096730293  50.8676 3.929226
## 1973  0.18580 109.34220 4.694482  0.077595636  53.9679 3.988389
## 1989  4.04525 139.12255 4.935355  0.036303149  91.3001 4.514152
## 1990  5.54078 137.62752 4.924551 -0.010804294  93.6791 4.539875
## 1991  7.19341 140.41549 4.944606  0.020054908  96.2635 4.567089
## 1992  8.75051 139.88749 4.940838 -0.003767356  98.4971 4.590027
## 2019 31.02565 155.45555 5.046360  0.021101255 126.4712 4.840015
## 2020 27.75933 140.55437 4.945594 -0.100765450 115.0888 4.745704
## 2021 30.29724 151.29386 5.019224  0.073629649 123.7780 4.818490
## 2022       NA        NA       NA           NA       NA       NA
##             C_dl        W      W_l         W_dl        R      R_l
## 1960          NA 31.17190 3.439517           NA  6.57107 1.882677
## 1961  0.06619414 32.40563 3.478332  0.038815037 10.31961 2.334046
## 1962  0.03990911 32.87006 3.492562  0.014230153 10.00717 2.303302
## 1963  0.05504330 34.56426 3.542820  0.050258063 13.38993 2.594503
## 1964  0.09631261 37.33444 3.619916  0.077095897 15.12909 2.716619
## 1965  0.06816282 39.85613 3.685276  0.065359928 18.25424 2.904398
## 1966  0.06854999 42.60227 3.751908  0.066631505 19.27317 2.958714
## 1967  0.06729013 45.21614 3.811454  0.059546504 20.16284 3.003841
## 1968  0.07488173 48.71093 3.885903  0.074449295 21.37396 3.062173
## 1969  0.06167214 51.73634 3.946161  0.060257087 26.45123 3.275303
## 1970  0.08656216 53.90931 3.987303  0.041142677 31.26098 3.442371
## 1971  0.05490172 56.28492 4.030427  0.043123483 35.56505 3.571363
## 1972  0.05831688 60.32831 4.099801  0.069374766 40.85024 3.709913
## 1973  0.05916325 58.32138 4.065969 -0.033832692 51.02082 3.932234
## 1989  0.05975226 82.63089 4.414384  0.064233466 56.49166 4.034093
## 1990  0.02572323 82.51139 4.412936 -0.001447226 55.11613 4.009442
## 1991  0.02721411 78.31243 4.360706 -0.052229989 62.10306 4.128795
## 1992  0.02293788 76.92228 4.342796 -0.017910701 62.96521 4.142582
## 2019  0.00795271 91.28795 4.514019  0.034939697 64.16760 4.161498
## 2020 -0.09431061 81.84221 4.404793 -0.109225678 58.71216 4.072647
## 2021  0.07278563 90.24311 4.502507  0.097714165 61.05075 4.111705
## 2022          NA       NA       NA           NA       NA       NA
##              R_dl       It     It_l       It_dl   Itcurr   Itcurr_l
## 1960           NA 11.24260 2.419710          NA  0.08580 -2.4557363
## 1961  0.451369553 12.72191 2.543326  0.12361557  0.09699 -2.3331474
## 1962 -0.030744490 13.36583 2.592701  0.04937575  0.11163 -2.1925654
## 1963  0.291200912 12.50161 2.525857 -0.06684401  0.11003 -2.2070022
## 1964  0.122116774 14.91688 2.702493  0.17663602  0.13582 -1.9964248
## 1965  0.187778138 17.24137 2.847312  0.14481827  0.16265 -1.8161546
## 1966  0.054316181 18.18065 2.900358  0.05304611  0.18926 -1.6646335
## 1967  0.045127465 17.93774 2.886907 -0.01345097  0.19548 -1.6322972
## 1968  0.058332147 22.08062 3.094700  0.20779343  0.24224 -1.4178263
## 1969  0.213129118 25.72042 3.247285  0.15258493  0.29251 -1.2292564
## 1970  0.167068164 25.09243 3.222566 -0.02471902  0.31950 -1.1409980
## 1971  0.128992701 27.95984 3.330769  0.10820299  0.37067 -0.9924431
## 1972  0.138549380 33.49593 3.511424  0.18065474  0.49325 -0.7067391
## 1973  0.222321031 37.26791 3.618133  0.10670870  0.65091 -0.4293839
## 1989 -0.003195102 25.75257 3.248534  0.03674848  9.12942  2.2115022
## 1990 -0.024650618 26.17798 3.264919  0.01638417 11.29099  2.4240051
## 1991  0.119352821 28.12667 3.336718  0.07179964 13.61478  2.6111560
## 1992  0.013786995 26.45735 3.275534 -0.06118423 14.85870  2.6985856
## 2019  0.001738286 21.51162 3.068593  0.04572793 21.40543  3.0636446
## 2020 -0.088851540 15.05813 2.711918 -0.35667521 14.86393  2.6989375
## 2021  0.039058568 20.02732 2.997097  0.28517930 19.92718  2.9920846
## 2022           NA       NA       NA          NA       NA         NA
##        Itcurr_dl      Ipr      Ipr_l      Ipr_dl       Ips      Ips_l
## 1960          NA  0.07306 -2.6164743          NA 0.8515152 -0.1607380
## 1961  0.12258887  0.08142 -2.5081343  0.10833992 0.8394680 -0.1749869
## 1962  0.14058195  0.09387 -2.3658444  0.14228990 0.8409030 -0.1732790
## 1963 -0.01443678  0.09414 -2.3629722  0.00287219 0.8555848 -0.1559700
## 1964  0.21057742  0.11853 -2.1325892  0.23038306 0.8726992 -0.1361644
## 1965  0.18027017  0.14468 -1.9332309  0.19935831 0.8895174 -0.1170762
## 1966  0.15152108  0.16625 -1.7942626  0.13896827 0.8784212 -0.1296291
## 1967  0.03233634  0.17195 -1.7605515  0.03371106 0.8796296 -0.1282543
## 1968  0.21447090  0.21242 -1.5491898  0.21136171 0.8768989 -0.1313635
## 1969  0.18856988  0.25741 -1.3570851  0.19210470 0.8800041 -0.1278287
## 1970  0.08825842  0.27789 -1.2805299  0.07655521 0.8697653 -0.1395319
## 1971  0.14855491  0.32266 -1.1311561  0.14937379 0.8704778 -0.1387130
## 1972  0.28570397  0.42829 -0.8479547  0.28320140 0.8683021 -0.1412156
## 1973  0.27735524  0.57210 -0.5584415  0.28951327 0.8789234 -0.1290576
## 1989  0.21867844  7.72114  2.0439620  0.22519068 0.8457427 -0.1675401
## 1990  0.21250290  9.66272  2.2682752  0.22431316 0.8557903 -0.1557299
## 1991  0.18715090 11.45749  2.4386437  0.17036848 0.8415479 -0.1725123
## 1992  0.08742958 12.17937  2.4997435  0.06109987 0.8196794 -0.1988420
## 2019  0.04544759 17.26343  2.8485904  0.14821087 0.8064977 -0.2150542
## 2020 -0.36470716 11.39994  2.4336081 -0.41498230 0.7669533 -0.2653294
## 2021  0.29314716 13.31039  2.5885449  0.15493684 0.6679515 -0.4035397
## 2022          NA       NA         NA          NA        NA         NA
##             Ips_dl         I      I_l        I_dl         r      r_l
## 1960            NA  9.573244 2.258972          NA        NA       NA
## 1961 -0.0142489522 10.679636 2.368339  0.10936662        NA       NA
## 1962  0.0017079527 11.239366 2.419422  0.05108370        NA       NA
## 1963  0.0173089648 10.696188 2.369887 -0.04953505        NA       NA
## 1964  0.0198056333 13.017949 2.566329  0.19644165        NA       NA
## 1965  0.0190881408 15.336498 2.730235  0.16390641        NA       NA
## 1966 -0.0125528057 15.970269 2.770729  0.04049331        NA       NA
## 1967  0.0013747160 15.778568 2.758653 -0.01207625        NA       NA
## 1968 -0.0031091878 19.362472 2.963337  0.20468424        NA       NA
## 1969  0.0035348137 22.634075 3.119457  0.15611974        NA       NA
## 1970 -0.0117032122 21.824524 3.083034 -0.03642223        NA       NA
## 1971  0.0008188802 24.338420 3.192056  0.10902187        NA       NA
## 1972 -0.0025025670 29.084586 3.370208  0.17815218        NA       NA
## 1973  0.0121580261 32.755636 3.489075  0.11886672 -9.584004 0.332772
## 1989  0.0065122379 21.780047 3.080994  0.04326071        NA       NA
## 1990  0.0118102638 22.402862 3.109189  0.02819444        NA       NA
## 1991 -0.0167824223 23.669941 3.164206  0.05501721        NA       NA
## 1992 -0.0263297127 21.686544 3.076692 -0.08751395  8.125238 2.949901
## 2019  0.1027632804 17.349072 2.853539  0.14849121  2.980136 2.636122
## 2020 -0.0502751436 11.548882 2.446589 -0.40695035        NA       NA
## 2021 -0.1382103153 13.377279 2.593558  0.14696898        NA       NA
## 2022            NA        NA       NA          NA        NA       NA
##             r_dl          P        P_l         P_dl         Pm      Pm_l
## 1960          NA   1.012457 0.01238035           NA   2.311284 0.8378030
## 1961          NA   1.023250 0.02298393  0.010603588   2.273639 0.8213814
## 1962          NA   1.070703 0.06831582  0.045331882   2.258225 0.8145791
## 1963          NA   1.082600 0.07936519  0.011049370   2.271150 0.8202863
## 1964          NA   1.119466 0.11285188  0.033486689   2.349271 0.8541052
## 1965          NA   1.165120 0.15282426  0.039972382   2.367350 0.8617712
## 1966          NA   1.221242 0.19986862  0.047044362   2.400460 0.8756605
## 1967          NA   1.247739 0.22133279  0.021464174   2.387062 0.8700633
## 1968          NA   1.266172 0.23599778  0.014664988   2.398108 0.8746800
## 1969          NA   1.306451 0.26731430  0.031316520   2.406840 0.8783147
## 1970          NA   1.356089 0.30460497  0.037290669   2.501459 0.9168742
## 1971          NA   1.396026 0.33362956  0.029024588   2.550568 0.9363161
## 1972          NA   1.466922 0.38316619  0.049536634   2.754847 1.0133621
## 1973          NA   1.772974 0.57265836  0.189492171   3.344974 1.2074590
## 1989          NA  26.354390 3.27163485  0.135384941  40.999469 3.7135591
## 1990          NA  31.807972 3.45971696  0.188082107  46.604902 3.8417057
## 1991          NA  38.101424 3.64025164  0.180534687  52.328995 3.9575506
## 1992          NA  43.741219 3.77829087  0.138039231  58.746179 4.0732261
## 2019 -0.04484164 100.522975 4.61038631 -0.003795656 108.975553 4.6911236
## 2020          NA 100.377316 4.60893624 -0.001450066 102.641519 4.6312425
## 2021          NA 100.964301 4.61476700  0.005830757 108.605736 4.6877242
## 2022          NA         NA         NA           NA         NA        NA
##             Pm_dl         Px      Px_l        Px_dl        X       X_l
## 1960           NA   2.116386 0.7497101           NA  1.79171 0.5831705
## 1961 -0.016421586   2.081988 0.7333233 -0.016386852  2.01202 0.6991392
## 1962 -0.006802305   2.063129 0.7242239 -0.009099395  1.86764 0.6246756
## 1963  0.005707205   2.213461 0.7945572  0.070333359  2.11725 0.7501181
## 1964  0.033818884   2.256266 0.8137114  0.019154149  2.00368 0.6949855
## 1965  0.007665991   2.233251 0.8034585 -0.010252907  2.32411 0.8433372
## 1966  0.013889283   2.316733 0.8401579  0.036699413  3.06899 1.1213485
## 1967 -0.005597190   2.302066 0.8338069 -0.006350937  3.20330 1.1641815
## 1968  0.004616689   2.258454 0.8146804 -0.019126562  3.13694 1.1432478
## 1969  0.003634716   2.299732 0.8327927  0.018112306  3.44110 1.2357912
## 1970  0.038559558   2.346008 0.8527152  0.019922479  3.89804 1.3604739
## 1971  0.019441838   2.278050 0.8233199 -0.029395215  4.61589 1.5295047
## 1972  0.077046008   2.381784 0.8678499  0.044529925  5.69482 1.7395570
## 1973  0.194096953   3.066194 1.1204372  0.252587280  7.36978 1.9973879
## 1989  0.137148193  34.572752 3.5430659  0.130563826 17.40189 2.8565788
## 1990  0.128146609  40.062321 3.6904363  0.147370395 16.79893 2.8213152
## 1991  0.115844889  45.656128 3.8211378  0.130701564 17.49173 2.8617282
## 1992  0.115675504  50.265501 3.9173190  0.096181157 19.24444 2.9572222
## 2019  0.012134819 104.386346 4.6480989 -0.003281541 66.78110 4.2014201
## 2020 -0.059881050  99.109180 4.5962221 -0.051876807 52.50733 3.9609528
## 2021  0.056481701 104.201450 4.6463260  0.050103976 61.91993 4.1258421
## 2022           NA         NA        NA           NA       NA        NA
##             X_dl        M       M_l        M_dl      rulc     rulc_l
## 1960          NA  2.42945 0.8876649          NA 0.8251424 -0.1921993
## 1961  0.11596872  2.74007 1.0079835  0.12031857 0.7577481 -0.2774043
## 1962 -0.07446359  3.02961 1.1084339  0.10045043 0.7658145 -0.2668153
## 1963  0.12544248  3.52810 1.2607595  0.15232558 0.7200033 -0.3284995
## 1964 -0.05513259  4.20719 1.4367950  0.17603548 0.7108221 -0.3413331
## 1965  0.14835168  4.91293 1.5918705  0.15507554 0.6850651 -0.3782415
## 1966  0.27801135  4.97778 1.6049840  0.01311350 0.6876103 -0.3745330
## 1967  0.04283301  5.24456 1.6571913  0.05220734 0.6906433 -0.3701318
## 1968 -0.02093373  5.83404 1.7637097  0.10651838 0.6940273 -0.3652440
## 1969  0.09254339  6.65432 1.8952663  0.13155654 0.6607291 -0.4144114
## 1970  0.12468267  7.08156 1.9574942  0.06222795 0.6320359 -0.4588091
## 1971  0.16903084  7.63981 2.0333727  0.07587851 0.6118977 -0.4911902
## 1972  0.21005229  8.73159 2.1669475  0.13357475 0.5953700 -0.5185722
## 1973  0.25783087 11.66919 2.4569520  0.29000455 0.5324792 -0.6302115
## 1989  0.01919536 22.85911 3.1293497  0.09960016 0.5771611 -0.5496338
## 1990 -0.03526363 24.77048 3.2096526  0.08030290 0.5763244 -0.5510845
## 1991  0.04041300 26.21691 3.2664046  0.05675200 0.5305400 -0.6338599
## 1992  0.09549399 26.49909 3.2771104  0.01070577 0.5175143 -0.6587182
## 2019  0.04689165 63.98514 4.1586509  0.02452613 0.4895290 -0.7143116
## 2020 -0.24046733 52.46781 3.9601998 -0.19845103 0.4862481 -0.7210364
## 2021  0.16488932 60.75773 4.1068943  0.14669448 0.4969578 -0.6992502
## 2022          NA       NA        NA          NA        NA         NA
##           rulc_dl        ulc       ulc_l       ulc_dl       Tau    Tau_l
## 1960           NA  0.8354215 -0.17981895           NA  54.41788 3.996693
## 1961 -0.085205008  0.7753658 -0.25442037 -0.074601420  59.47608 4.085574
## 1962  0.010589007  0.8199602 -0.19849948  0.055920888  58.12187 4.062542
## 1963 -0.061684165  0.7794753 -0.24913427 -0.050634795  63.79320 4.155647
## 1964 -0.012833614  0.7957413 -0.22848120  0.020653076  68.12339 4.221321
## 1965 -0.036908396  0.7981831 -0.22541721  0.003063986  73.17084 4.292797
## 1966  0.003708499  0.8397388 -0.17466435  0.050752860  75.69349 4.326692
## 1967  0.004401188  0.8617423 -0.14879899  0.025865361  78.12527 4.358314
## 1968  0.004887772  0.8787576 -0.12924623  0.019552760  81.28847 4.398004
## 1969 -0.049167345  0.8632102 -0.14709706 -0.017850826  87.26390 4.468937
## 1970 -0.044397773  0.8570970 -0.15420416 -0.007107105  91.85148 4.520173
## 1971 -0.032381022  0.8542251 -0.15756059 -0.003356434  95.42641 4.558355
## 1972 -0.027382046  0.8733612 -0.13540601  0.022154588 100.63290 4.611479
## 1973 -0.111639280  0.9440717 -0.05755312  0.077852891 103.77427 4.642218
## 1989  0.026947182 15.2107288  2.72200102  0.162332123  97.20474 4.576819
## 1990 -0.001450718 18.3317111  2.90863241  0.186631389  95.51671 4.559301
## 1991 -0.082775336 20.2143300  3.00639176  0.097759351  98.37152 4.588751
## 1992 -0.024858313 22.6367044  3.11957268  0.113180919  97.41580 4.578988
## 2019  0.016404115 49.2089085  3.89607467  0.012608459 103.96187 4.644024
## 2020 -0.006724749 48.8082746  3.88789986 -0.008174814  96.56033 4.570168
## 2021  0.021786209 50.1749965  3.91551683  0.027616966 102.64140 4.631241
## 2022           NA         NA          NA           NA        NA       NA
##            Tau_dl         dPxdPm         dPdPm     Trade
## 1960           NA             NA            NA 0.1117371
## 1961  0.088881512  0.00003473472  0.0270251741 0.1111192
## 1962 -0.023032240 -0.00229708990  0.0521341868 0.1140973
## 1963  0.093104639  0.06462615430  0.0053421656 0.1175975
## 1964  0.065674041 -0.01466473472 -0.0003321945 0.1182507
## 1965  0.071476383 -0.01791889765  0.0323063913 0.1243935
## 1966  0.033895097  0.02281013029  0.0331550788 0.1298767
## 1967  0.031621460 -0.00075374711  0.0270613634 0.1290348
## 1968  0.039690549 -0.02374325047  0.0100482988 0.1278174
## 1969  0.070932693  0.01447759002  0.0276818041 0.1289294
## 1970  0.051236125 -0.01863707888 -0.0012688892 0.1287255
## 1971  0.038182416 -0.04883705260  0.0095827502 0.1332370
## 1972  0.053123828 -0.03251608257 -0.0275093732 0.1423718
## 1973  0.030738822  0.05849032706 -0.0046047823 0.1738274
## 1989  0.025337375 -0.00658436662 -0.0017632523 0.2812155
## 1990 -0.017518238  0.01922378619  0.0599354981 0.2903535
## 1991  0.029450113  0.01485667508  0.0646897984 0.2961111
## 1992 -0.009762898 -0.01949434758  0.0223637268 0.3077512
## 2019  0.012344556 -0.01541635941 -0.0159304750 0.7012302
## 2020 -0.073856232  0.00800424359  0.0584309845 0.6236874
## 2021  0.061073424 -0.00637772471 -0.0506509431 0.6755709
## 2022           NA             NA            NA        NA
GRC <- GRC_df[34:59,]
GRC[!complete.cases(GRC),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
GRC %>% head()
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1993 0.5348550 -0.6257595 -0.027716700 0.4651450 -0.7654062  0.032850014
## 1994 0.5320748 -0.6309713 -0.005211753 0.4679252 -0.7594467  0.005959443
## 1995 0.5426254 -0.6113361  0.019635139 0.4573746 -0.7822524 -0.022805712
## 1996 0.5357822 -0.6240275 -0.012691327 0.4642178 -0.7674015  0.014850916
## 1997 0.5461601 -0.6048432  0.019184319 0.4538399 -0.7900107 -0.022609227
## 1998 0.5512656 -0.5955386  0.009304602 0.4487344 -0.8013241 -0.011313356
##             Y      Y_l        Y_dl            Yrw    Yrw_l     Yrw_dl
## 1993 146.2611 4.985393 -0.01612044 30536072225426 31.04993 0.01202893
## 1994 149.1861 5.005195  0.01980114 31507570486056 31.08125 0.03131917
## 1995 152.3187 5.025975  0.02078052 32424915529848 31.10995 0.02869928
## 1996 156.6783 5.054195  0.02821962 33383961784841 31.13910 0.02914847
## 1997 163.7041 5.098061  0.04386587 34495978457855 31.17186 0.03276715
## 1998 170.0802 5.136270  0.03820956 35430882928826 31.19860 0.02674109
##           Tax       Yf     Yf_l       Yf_dl        C      C_l         C_dl
## 1993  9.45710 136.8040 4.918549 -0.02228921  97.7737 4.582656 -0.007371481
## 1994 10.40783 138.7783 4.932877  0.01432824  99.7456 4.602623  0.019967320
## 1995 11.57661 140.7421 4.946929  0.01405159 102.6809 4.631626  0.029003177
## 1996 13.09752 143.5808 4.966898  0.01996874 105.4275 4.658024  0.026397392
## 1997 14.74300 148.9611 5.003685  0.03678739 110.1314 4.701674  0.043650685
## 1998 15.64921 154.4310 5.039747  0.03606213 115.1599 4.746322  0.044647399
##             W      W_l         W_dl        R      R_l         R_dl
## 1993 73.17031 4.292790 -0.050005913 63.63369 4.153143  0.010560802
## 1994 73.84041 4.301906  0.009116482 64.93786 4.173431  0.020287678
## 1995 76.37023 4.335593  0.033686726 64.37186 4.164677 -0.008754125
## 1996 76.92803 4.342870  0.007277410 66.65275 4.199496  0.034819653
## 1997 81.35661 4.398842  0.055971713 67.60449 4.213674  0.014178168
## 1998 85.13249 4.444209  0.045366734 69.29850 4.238423  0.024748775
##            It     It_l       It_dl   Itcurr Itcurr_l  Itcurr_dl      Ipr
## 1993 25.22320 3.227764 -0.04776980 15.91480 2.767249 0.06866394 13.07775
## 1994 24.86944 3.213640 -0.01412447 16.61007 2.810009 0.04275964 13.54977
## 1995 25.64084 3.244186  0.03054665 18.57277 2.921697 0.11168739 14.93977
## 1996 27.96186 3.330841  0.08665505 21.42318 3.064474 0.14277698 17.18018
## 1997 28.94129 3.365269  0.03442786 23.16473 3.142631 0.07815735 18.65873
## 1998 35.47900 3.568941  0.20367168 29.70693 3.391380 0.24874949 23.33193
##         Ipr_l     Ipr_dl       Ips      Ips_l       Ips_dl        I
## 1993 2.570912 0.07116878 0.8217351 -0.1963372  0.002504834 20.72679
## 1994 2.606370 0.03545726 0.8157563 -0.2036396 -0.007302384 20.28740
## 1995 2.704027 0.09765721 0.8043911 -0.2176697 -0.014030180 20.62526
## 1996 2.843756 0.13972961 0.8019435 -0.2207171 -0.003047375 22.42383
## 1997 2.926314 0.08255774 0.8054801 -0.2163167  0.004400389 23.31163
## 1998 3.149823 0.22350868 0.7854036 -0.2415575 -0.025240813 27.86533
##           I_l        I_dl        r      r_l         r_dl        P      P_l
## 1993 3.031427 -0.04526496 7.727385 2.928856 -0.021045508 50.05208 3.913064
## 1994 3.010000 -0.02142685 8.560679 2.972439  0.043582685 55.64894 4.019063
## 1995 3.026517  0.01651647 6.528963 2.862646 -0.109792383 61.09794 4.112478
## 1996 3.110124  0.08360767 6.312307 2.850194 -0.012452018 65.76319 4.186060
## 1997 3.148953  0.03882825 3.159565 2.648894 -0.201299874 70.07290 4.249536
## 1998 3.327383  0.17843086 3.212481 2.652630  0.003735729 73.64912 4.299312
##            P_dl       Pm     Pm_l      Pm_dl       Px     Px_l      Px_dl
## 1993 0.13477325 63.08266 4.144446 0.07121976 54.86261 4.004832 0.08751312
## 1994 0.10599886 66.61732 4.198965 0.05451877 59.58042 4.087327 0.08249490
## 1995 0.09341509 71.58917 4.270944 0.07197912 64.75163 4.170559 0.08323186
## 1996 0.07358222 73.77121 4.300969 0.03002482 68.21688 4.222692 0.05213315
## 1997 0.06347586 75.22642 4.320502 0.01953389 70.05080 4.249221 0.02652861
## 1998 0.04977604 78.32444 4.360860 0.04035727 73.52482 4.297623 0.04840243
##             X      X_l        X_dl        M      M_l        M_dl      rulc
## 1993 18.74472 2.930912 -0.02631008 26.66578 3.283381 0.006270703 0.5002718
## 1994 20.12944 3.002183  0.07127131 27.06515 3.298247 0.014865827 0.4949551
## 1995 20.73259 3.031707  0.02952344 29.48664 3.383937 0.085690357 0.5013844
## 1996 21.57941 3.071740  0.04003276 32.41652 3.478668 0.094730890 0.4909935
## 1997 26.56488 3.279590  0.20785042 35.15176 3.559675 0.081006519 0.4969735
## 1998 27.76412 3.323745  0.04415450 41.53596 3.726560 0.166884870 0.5005432
##          rulc_l      rulc_dl      ulc    ulc_l     ulc_dl       Tau
## 1993 -0.6926037 -0.033885474 25.03965 3.220460 0.10088778  94.69031
## 1994 -0.7032883 -0.010684657 27.54372 3.315775 0.09531420  95.01212
## 1995 -0.6903821  0.012906209 30.63355 3.422096 0.10632130  95.93676
## 1996 -0.7113243 -0.020942212 32.28930 3.474736 0.05264001  98.26400
## 1997 -0.6992185  0.012105842 34.82438 3.550318 0.07558170 102.14309
## 1998 -0.6920613  0.007157174 36.86457 3.607251 0.05693321 102.53281
##         Tau_l       Tau_dl      dPxdPm       dPdPm     Trade
## 1993 4.550612 -0.028376805 0.016293361 0.063553489 0.3104756
## 1994 4.554005  0.003392865 0.027976139 0.051480096 0.3163471
## 1995 4.563689  0.009684750 0.011252743 0.021435974 0.3296984
## 1996 4.587658  0.023968432 0.022108330 0.043557405 0.3446293
## 1997 4.626375  0.038716934 0.006994725 0.043941972 0.3770012
## 1998 4.630183  0.003808190 0.008045162 0.009418767 0.4074553

DATA

GRC %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l        PS_dl
## 1993 0.5348550 -0.6257595 -0.0277167004 0.4651450 -0.7654062  0.032850014
## 1994 0.5320748 -0.6309713 -0.0052117531 0.4679252 -0.7594467  0.005959443
## 1995 0.5426254 -0.6113361  0.0196351389 0.4573746 -0.7822524 -0.022805712
## 1996 0.5357822 -0.6240275 -0.0126913273 0.4642178 -0.7674015  0.014850916
## 1997 0.5461601 -0.6048432  0.0191843190 0.4538399 -0.7900107 -0.022609227
## 1998 0.5512656 -0.5955386  0.0093046024 0.4487344 -0.8013241 -0.011313356
## 1999 0.5557685 -0.5874034  0.0081351348 0.4442315 -0.8114095 -0.010085378
## 2000 0.5572067 -0.5848190  0.0025843950 0.4427933 -0.8146522 -0.003242715
## 2001 0.5492647 -0.5991748 -0.0143557517 0.4507353 -0.7968751  0.017777130
## 2002 0.5782915 -0.5476771  0.0514976304 0.4217085 -0.8634411 -0.066565989
## 2003 0.5722705 -0.5581434 -0.0104662792 0.4277295 -0.8492644  0.014176664
## 2004 0.5623422 -0.5756448 -0.0175013631 0.4376578 -0.8263179  0.022946527
## 2005 0.6003706 -0.5102082  0.0654365592 0.3996294 -0.9172175 -0.090899678
## 2006 0.5806186 -0.5436612 -0.0334529747 0.4193814 -0.8689745  0.048243045
## 2007 0.5773164 -0.5493648 -0.0057036432 0.4226836 -0.8611313  0.007843176
## 2008 0.5834231 -0.5388426  0.0105222033 0.4165769 -0.8756842 -0.014552858
## 2009 0.6023736 -0.5068774  0.0319652755 0.3976264 -0.9222425 -0.046558322
## 2010 0.6114138 -0.4919813  0.0148960812 0.3885862 -0.9452403 -0.022997774
## 2011 0.5995533 -0.5115704 -0.0195891422 0.4004467 -0.9151746  0.030065710
## 2012 0.5889037 -0.5294925 -0.0179221037 0.4110963 -0.8889279  0.026246673
## 2013 0.5632138 -0.5740959 -0.0446034011 0.4367862 -0.8283115  0.060616394
## 2014 0.5734392 -0.5561033  0.0179925828 0.4265608 -0.8520004 -0.023688886
## 2015 0.5725622 -0.5576338 -0.0015304853 0.4274378 -0.8499466  0.002053796
## 2016 0.5794691 -0.5456429  0.0119909543 0.4205309 -0.8662374 -0.016290810
## 2017 0.5786864 -0.5469946 -0.0013517271 0.4213136 -0.8643778  0.001859620
## 2018 0.5791583 -0.5461795  0.0008151232 0.4208417 -0.8654985 -0.001120679
##             Y      Y_l         Y_dl            Yrw    Yrw_l       Yrw_dl
## 1993 146.2611 4.985393 -0.016120439 30536072225426 31.04993  0.012028929
## 1994 149.1861 5.005195  0.019801139 31507570486056 31.08125  0.031319169
## 1995 152.3187 5.025975  0.020780516 32424915529848 31.10995  0.028699275
## 1996 156.6783 5.054195  0.028219622 33383961784841 31.13910  0.029148473
## 1997 163.7041 5.098061  0.043865871 34495978457855 31.17186  0.032767152
## 1998 170.0802 5.136270  0.038209561 35430882928826 31.19860  0.026741088
## 1999 175.3061 5.166534  0.030263498 36583849556824 31.23063  0.032023035
## 2000 182.1776 5.204982  0.038448447 38054868881274 31.27005  0.039422162
## 2001 189.7045 5.245468  0.040485563 38624053015307 31.28490  0.014846181
## 2002 197.1464 5.283947  0.038479002 39209855400970 31.29995  0.015052911
## 2003 208.5701 5.340275  0.056328596 40068254507320 31.32161  0.021656234
## 2004 219.1258 5.389646  0.049370798 41394830659252 31.35418  0.032571647
## 2005 220.4387 5.395620  0.005973658 42579084558063 31.38238  0.028207150
## 2006 232.8988 5.450604  0.054984373 43910381774738 31.41317  0.030787619
## 2007 240.5234 5.482817  0.032213358 45129047405703 31.44055  0.027375327
## 2008 239.7172 5.479460 -0.003357487 45300994809136 31.44435  0.003802887
## 2009 229.4076 5.435500 -0.043959561 43809935204043 31.41088 -0.033468370
## 2010 216.8383 5.379152 -0.056348420 45107471170271 31.44007  0.029187268
## 2011 197.0355 5.283384 -0.095767999 45944157329716 31.45845  0.018378797
## 2012 182.6510 5.207577 -0.075806687 46539901050039 31.47133  0.012883344
## 2013 176.7305 5.174626 -0.032951255 47215897847875 31.48575  0.014420623
## 2014 178.0379 5.181996  0.007370476 48178510155295 31.50593  0.020182420
## 2015 177.2584 5.177609 -0.004387894 49305643534299 31.52906  0.023125474
## 2016 176.9199 5.175697 -0.001911467 50148196177132 31.54600  0.016943997
## 2017 179.5827 5.190636  0.014938738 51301075631435 31.56873  0.022729174
## 2018 183.0565 5.209795  0.019159022 52450626335735 31.59089  0.022160557
##           Tax       Yf     Yf_l         Yf_dl        C      C_l
## 1993  9.45710 136.8040 4.918549 -0.0222892121  97.7737 4.582656
## 1994 10.40783 138.7783 4.932877  0.0143282351  99.7456 4.602623
## 1995 11.57661 140.7421 4.946929  0.0140515869 102.6809 4.631626
## 1996 13.09752 143.5808 4.966898  0.0199687371 105.4275 4.658024
## 1997 14.74300 148.9611 5.003685  0.0367873944 110.1314 4.701674
## 1998 15.64921 154.4310 5.039747  0.0360621319 115.1599 4.746322
## 1999 17.53407 157.7720 5.061151  0.0214038131 119.1874 4.780697
## 2000 18.67565 163.5020 5.096825  0.0356737739 122.1950 4.805618
## 2001 19.58491 170.1196 5.136502  0.0396767434 126.6229 4.841213
## 2002 21.19789 175.9485 5.170191  0.0336897351 133.0621 4.890816
## 2003 21.88773 186.6824 5.229409  0.0592172211 139.0939 4.935149
## 2004 22.70678 196.4190 5.280250  0.0508416179 144.1109 4.970583
## 2005 23.89766 196.5410 5.280871  0.0006210301 148.7582 5.002322
## 2006 26.96144 205.9374 5.327572  0.0467007804 152.8965 5.029761
## 2007 29.54815 210.9753 5.351741  0.0241687831 159.1289 5.069715
## 2008 30.72001 208.9972 5.342321 -0.0094200211 164.8319 5.104926
## 2009 28.08030 201.3273 5.304932 -0.0373888650 162.0791 5.088084
## 2010 28.73365 188.1046 5.236998 -0.0679334850 151.5134 5.020674
## 2011 28.15097 168.8845 5.129215 -0.1077832299 136.7443 4.918113
## 2012 26.02395 156.6270 5.053868 -0.0753477252 125.7735 4.834483
## 2013 25.59297 151.1375 5.018190 -0.0356772847 122.5424 4.808457
## 2014 27.78918 150.2487 5.012292 -0.0058981628 123.3057 4.814667
## 2015 28.87190 148.3865 4.999820 -0.0124716980 123.0786 4.812823
## 2016 30.61824 146.3017 4.985671 -0.0141497017 123.0519 4.812606
## 2017 31.01459 148.5681 5.001044  0.0153728518 124.1044 4.821123
## 2018 30.84689 152.2096 5.025259  0.0242150777 125.4694 4.832062
##               C_dl         W      W_l         W_dl        R      R_l
## 1993 -0.0073714814  73.17031 4.292790 -0.050005913 63.63369 4.153143
## 1994  0.0199673198  73.84041 4.301906  0.009116482 64.93786 4.173431
## 1995  0.0290031765  76.37023 4.335593  0.033686726 64.37186 4.164677
## 1996  0.0263973918  76.92803 4.342870  0.007277410 66.65275 4.199496
## 1997  0.0436506855  81.35661 4.398842  0.055971713 67.60449 4.213674
## 1998  0.0446473990  85.13249 4.444209  0.045366734 69.29850 4.238423
## 1999  0.0343754470  87.68473 4.473748  0.029538948 70.08730 4.249742
## 2000  0.0249210850  91.10438 4.512006  0.038258169 72.39757 4.282173
## 2001  0.0355952487  93.44069 4.537327  0.025320992 76.67890 4.339627
## 2002  0.0496025585 101.74953 4.622514  0.085187366 74.19898 4.306750
## 2003  0.0443333081 106.83282 4.671265  0.048750942 79.84955 4.380144
## 2004  0.0354338974 110.45470 4.704605  0.033340255 85.96432 4.453932
## 2005  0.0317390269 117.99745 4.770663  0.066057589 78.54359 4.363654
## 2006  0.0274390529 119.57106 4.783911  0.013247806 86.36630 4.458598
## 2007  0.0399533437 121.79947 4.802376  0.018465140 89.17578 4.490610
## 2008  0.0352116011 121.93379 4.803478  0.001102182 87.06340 4.466637
## 2009 -0.0168416790 121.27426 4.798055 -0.005423589 80.05304 4.382689
## 2010 -0.0674104178 115.00978 4.745017 -0.053037404 73.09487 4.291758
## 2011 -0.1025613114 101.25527 4.617645 -0.127372372 67.62926 4.214041
## 2012 -0.0836300883  92.23826 4.524375 -0.093269829 64.38879 4.164940
## 2013 -0.0260255777  85.12275 4.444094 -0.080280686 66.01478 4.189879
## 2014  0.0062095453  86.15851 4.456189  0.012094420 64.09021 4.160292
## 2015 -0.0018434621  84.96051 4.442187 -0.014002183 63.42599 4.149874
## 2016 -0.0002169581  84.77730 4.440028 -0.002158747 61.52436 4.119433
## 2017  0.0085169293  85.97434 4.454049  0.014021125 62.59377 4.136666
## 2018  0.0109387573  88.15345 4.479079  0.025030201 64.05616 4.159760
##              R_dl       It     It_l        It_dl   Itcurr Itcurr_l
## 1993  0.010560802 25.22320 3.227764 -0.047769797 15.91480 2.767249
## 1994  0.020287678 24.86944 3.213640 -0.014124465 16.61007 2.810009
## 1995 -0.008754125 25.64084 3.244186  0.030546652 18.57277 2.921697
## 1996  0.034819653 27.96186 3.330841  0.086655046 21.42318 3.064474
## 1997  0.014178168 28.94129 3.365269  0.034427856 23.16473 3.142631
## 1998  0.024748775 35.47900 3.568941  0.203671677 29.70693 3.391380
## 1999  0.011318435 38.10385 3.640315  0.071374355 32.78042 3.489831
## 2000  0.032431059 39.19523 3.668555  0.028239729 34.80505 3.549762
## 2001  0.057453874 41.29903 3.720839  0.052283957 37.64788 3.628277
## 2002 -0.032876254 41.16127 3.717498 -0.003341247 38.58082 3.652755
## 2003  0.073393885 47.37802 3.858158  0.140660642 45.30723 3.813467
## 2004  0.073788145 48.78147 3.887351  0.029192120 47.25702 3.855601
## 2005 -0.090278648 42.98612 3.760877 -0.126473255 41.50008 3.725695
## 2006  0.094943825 51.32090 3.938098  0.177220804 51.60242 3.943569
## 2007  0.032011959 59.47432 4.085545  0.147446546 60.52817 4.103109
## 2008 -0.023972879 55.19607 4.010892 -0.074652868 57.62694 4.053990
## 2009 -0.083947187 47.50651 3.860867 -0.150025001 49.38687 3.899685
## 2010 -0.090931259 38.31587 3.645864 -0.215002584 39.69799 3.681301
## 2011 -0.077717520 30.46244 3.416494 -0.229369721 31.60696 3.453377
## 2012 -0.049101053 23.31661 3.149166 -0.267328467 24.13999 3.183870
## 2013  0.024939109 21.35146 3.061120 -0.088045861 21.96287 3.089353
## 2014 -0.029587049 20.35301 3.013229 -0.047891309 20.62438 3.026474
## 2015 -0.010417902 20.49034 3.019954  0.006724743 20.49034 3.019954
## 2016 -0.030440511 21.46346 3.066352  0.046398399 21.28437 3.057973
## 2017  0.017232471 23.41179 3.153240  0.086887787 23.24298 3.146003
## 2018  0.023094398 20.55009 3.022865 -0.130374421 20.45438 3.018197
##         Itcurr_dl      Ipr    Ipr_l      Ipr_dl       Ips      Ips_l
## 1993  0.068663942 13.07775 2.570912  0.07116878 0.8217351 -0.1963372
## 1994  0.042759644 13.54977 2.606370  0.03545726 0.8157563 -0.2036396
## 1995  0.111687392 14.93977 2.704027  0.09765721 0.8043911 -0.2176697
## 1996  0.142776984 17.18018 2.843756  0.13972961 0.8019435 -0.2207171
## 1997  0.078157350 18.65873 2.926314  0.08255774 0.8054801 -0.2163167
## 1998  0.248749489 23.33193 3.149823  0.22350868 0.7854036 -0.2415575
## 1999  0.098451034 25.51042 3.239087  0.08926419 0.7782213 -0.2507444
## 2000  0.059931105 27.66805 3.320278  0.08119132 0.7949435 -0.2294842
## 2001  0.078514153 28.60288 3.353507  0.03322909 0.7597474 -0.2747692
## 2002  0.024478617 30.56982 3.420013  0.06650584 0.7923580 -0.2327420
## 2003  0.160711361 34.67123 3.545910  0.12589699 0.7652472 -0.2675564
## 2004  0.042134592 36.23202 3.589943  0.04403302 0.7667013 -0.2656580
## 2005 -0.129905859 32.68908 3.487041 -0.10290218 0.7876872 -0.2386543
## 2006  0.217873216 39.12042 3.666645  0.17960350 0.7581121 -0.2769240
## 2007  0.159540306 49.24217 3.896750  0.23010579 0.8135414 -0.2063585
## 2008 -0.049118710 44.11694 3.786844 -0.10990653 0.7655610 -0.2671463
## 2009 -0.154305567 35.82787 3.578726 -0.20811775 0.7254533 -0.3209585
## 2010 -0.218384043 31.36799 3.445788 -0.13293814 0.7901657 -0.2355126
## 2011 -0.227923207 26.51796 3.277822 -0.16796571 0.8389912 -0.1755551
## 2012 -0.269507548 19.31499 2.960881 -0.31694076 0.8001242 -0.2229883
## 2013 -0.094516501 15.74187 2.756324 -0.20455744 0.7167492 -0.3330293
## 2014 -0.062879429 14.05438 2.642934 -0.11338995 0.6814450 -0.3835398
## 2015 -0.006520316 13.67834 2.615814 -0.02712053 0.6675507 -0.4041400
## 2016  0.038019445 15.17637 2.719740  0.10392605 0.7130289 -0.3382334
## 2017  0.088030150 15.38898 2.733652  0.01391206 0.6620915 -0.4123515
## 2018 -0.127806110 14.88538 2.700380 -0.03327215 0.7277356 -0.3178175
##            Ips_dl        I      I_l         I_dl          r      r_l
## 1993  0.002504834 20.72679 3.031427 -0.045264962  7.7273847 2.928856
## 1994 -0.007302384 20.28740 3.010000 -0.021426849  8.5606786 2.972439
## 1995 -0.014030180 20.62526 3.026517  0.016516472  6.5289630 2.862646
## 1996 -0.003047375 22.42383 3.110124  0.083607671  6.3123073 2.850194
## 1997  0.004400389 23.31163 3.148953  0.038828246  3.1595652 2.648894
## 1998 -0.025240813 27.86533 3.327383  0.178430864  3.2124812 2.652630
## 1999 -0.009186847 29.65323 3.389571  0.062187508  2.5836636 2.607308
## 2000  0.021260216 31.15800 3.439071  0.049499945  4.4366636 2.735373
## 2001 -0.045285059 31.37683 3.446070  0.006998898  1.7639542 2.544965
## 2002  0.042027218 32.61446 3.484756  0.038685971  1.7138432 2.541025
## 2003 -0.034814372 36.25590 3.590602  0.105846270  0.7891711 2.465384
## 2004  0.001898430 37.40082 3.621693  0.031090549  1.1617545 2.496554
## 2005  0.027003678 33.85961 3.522223 -0.099469576  1.3201073 2.509513
## 2006 -0.038269712 38.90700 3.661174  0.138951092  0.5555391 2.445331
## 2007  0.070565483 48.38482 3.879186  0.218012029  1.0416828 2.486615
## 2008 -0.060787825 42.25596 3.743745 -0.135440692  0.4364527 2.434953
## 2009 -0.053812186 34.46376 3.539908 -0.203837187  2.5350826 2.603720
## 2010  0.085445907 30.27589 3.410352 -0.129556677  8.3603283 2.962132
## 2011  0.059957500 25.55772 3.240939 -0.169412221 14.8332210 3.250842
## 2012 -0.047433213 18.65618 2.926178 -0.314761680 22.9554222 3.524425
## 2013 -0.110040936 15.30364 2.728091 -0.198086796 12.7010620 3.164626
## 2014 -0.050510521 13.86946 2.629689 -0.098401830  8.9256238 2.990944
## 2015 -0.020600216 13.67834 2.615814 -0.013875473 10.0510591 3.045945
## 2016  0.065906608 15.30407 2.728119  0.112305007  8.6251962 2.975735
## 2017 -0.074118095 15.50075 2.740888  0.012769693  5.3488155 2.792860
## 2018  0.094533965 14.95503 2.705048 -0.035840456  3.6203258 2.680964
##              r_dl         P      P_l         P_dl        Pm     Pm_l
## 1993 -0.021045508  50.05208 3.913064  0.134773252  63.08266 4.144446
## 1994  0.043582685  55.64894 4.019063  0.105998861  66.61732 4.198965
## 1995 -0.109792383  61.09794 4.112478  0.093415095  71.58917 4.270944
## 1996 -0.012452018  65.76319 4.186060  0.073582225  73.77121 4.300969
## 1997 -0.201299874  70.07290 4.249536  0.063475862  75.22642 4.320502
## 1998  0.003735729  73.64912 4.299312  0.049776037  78.32444 4.360860
## 1999 -0.045321720  76.31723 4.334899  0.035586589  79.11897 4.370953
## 2000  0.128064894  77.53272 4.350700  0.015801249  85.75620 4.451508
## 2001 -0.190407872  80.22679 4.384858  0.034157462  87.94559 4.476718
## 2002 -0.003940252  82.91340 4.417797  0.032939142  88.67735 4.485004
## 2003 -0.075640817  85.77687 4.451749  0.033952769  88.60856 4.484228
## 2004  0.031169846  88.40393 4.481916  0.030167014  90.47432 4.505066
## 2005  0.012958926  90.38446 4.504072  0.022155916  93.52641 4.538244
## 2006 -0.064181647  93.54344 4.538426  0.034353546  96.62165 4.570803
## 2007  0.041283383  96.74511 4.572080  0.033653939  98.73834 4.592473
## 2008 -0.051661531 100.94829 4.614608  0.042528555 104.13542 4.645692
## 2009  0.168766629 103.54243 4.639981  0.025373079 102.62612 4.631092
## 2010  0.358412179 104.23966 4.646693  0.006711183 108.03535 4.682459
## 2011  0.288709467 105.07186 4.654645  0.007951869 114.90555 4.744110
## 2012  0.273583388 104.68268 4.650934 -0.003710838 119.72498 4.785197
## 2013 -0.359798604 102.22023 4.627130 -0.023804037 116.00342 4.753620
## 2014 -0.173682708 100.34746 4.608639 -0.018490884 111.71512 4.715952
## 2015  0.055001192 100.00000 4.605170 -0.003468576 100.00000 4.605170
## 2016 -0.070209742  99.75586 4.602726 -0.002444373  97.02760 4.574995
## 2017 -0.182875217 100.35354 4.608699  0.005973501 102.24864 4.627407
## 2018 -0.111895986 100.90525 4.614182  0.005482649 107.66115 4.678989
##              Pm_dl        Px     Px_l       Px_dl        X      X_l
## 1993  0.0712197630  54.86261 4.004832  0.08751312 18.74472 2.930912
## 1994  0.0545187651  59.58042 4.087327  0.08249490 20.12944 3.002183
## 1995  0.0719791206  64.75163 4.170559  0.08323186 20.73259 3.031707
## 1996  0.0300248200  68.21688 4.222692  0.05213315 21.57941 3.071740
## 1997  0.0195338900  70.05080 4.249221  0.02652861 26.56488 3.279590
## 1998  0.0403572694  73.52482 4.297623  0.04840243 27.76412 3.323745
## 1999  0.0100929219  74.56353 4.311652  0.01402843 34.55102 3.542437
## 2000  0.0805557025  79.35840 4.373974  0.06232282 42.21553 3.742788
## 2001  0.0252099643  82.05848 4.407432  0.03345787 42.26627 3.743989
## 2002  0.0082861196  83.93227 4.430010  0.02257793 39.17043 3.667922
## 2003 -0.0007760426  85.32597 4.446479  0.01646876 38.88285 3.660553
## 2004  0.0208376751  87.02493 4.466195  0.01971574 46.09586 3.830723
## 2005  0.0331777375  89.14198 4.490230  0.02403579 47.63522 3.863572
## 2006  0.0325589788  92.04225 4.522248  0.03201730 50.11832 3.914387
## 2007  0.0216704793  94.52272 4.548840  0.02659245 55.44006 4.015302
## 2008  0.0532189303  98.54853 4.590549  0.04170896 57.36539 4.049441
## 2009 -0.0145997684  96.46457 4.569176 -0.02137335 46.74170 3.844637
## 2010  0.0513660877 101.92605 4.624248  0.05507171 49.01390 3.892104
## 2011  0.0616519277 107.82924 4.680549  0.05630138 49.02722 3.892376
## 2012  0.0410867912 110.56895 4.705639  0.02509043 49.60246 3.904040
## 2013 -0.0315775644 108.90297 4.690457 -0.01518200 50.35195 3.919037
## 2014 -0.0376676152 106.60377 4.669119 -0.02133848 54.25374 3.993672
## 2015 -0.1107818851 100.00000 4.605170 -0.06394865 55.93081 4.024115
## 2016 -0.0301747459  96.62299 4.570817 -0.03435351 54.91332 4.005756
## 2017  0.0524120071 101.41387 4.619210  0.04839320 58.62561 4.071172
## 2018  0.0515813050 104.72946 4.651380  0.03217055 63.72191 4.154528
##               X_dl        M      M_l         M_dl      rulc     rulc_l
## 1993 -0.0263100751 26.66578 3.283381  0.006270703 0.5002718 -0.6926037
## 1994  0.0712713073 27.06515 3.298247  0.014865827 0.4949551 -0.7032883
## 1995  0.0295234383 29.48664 3.383937  0.085690357 0.5013844 -0.6903821
## 1996  0.0400327610 32.41652 3.478668  0.094730890 0.4909935 -0.7113243
## 1997  0.2078504233 35.15176 3.559675  0.081006519 0.4969735 -0.6992185
## 1998  0.0441544969 41.53596 3.726560  0.166884870 0.5005432 -0.6920613
## 1999  0.2186925326 47.55297 3.861844  0.135284690 0.5001807 -0.6927859
## 2000  0.2003510906 57.14921 4.045666  0.183821319 0.5000855 -0.6929761
## 2001  0.0012012056 57.71581 4.055531  0.009865573 0.4925592 -0.7081407
## 2002 -0.0760672430 55.73490 4.020607 -0.034924618 0.5161116 -0.6614323
## 2003 -0.0073688460 59.85562 4.091935  0.071328807 0.5122154 -0.6690100
## 2004  0.1701698618 62.49981 4.135164  0.043228188 0.5040698 -0.6850405
## 2005  0.0328492624 63.03362 4.143668  0.008504718 0.5352847 -0.6249566
## 2006  0.0508142063 71.42326 4.268624  0.124955352 0.5134035 -0.6666932
## 2007  0.1009158272 82.49345 4.412719  0.144095310 0.5063934 -0.6804414
## 2008  0.0341387227 83.58295 4.425840  0.013120656 0.5086568 -0.6759817
## 2009 -0.2048044599 66.57055 4.198262 -0.227577264 0.5286410 -0.6374458
## 2010  0.0474672315 64.28677 4.163354 -0.034908432 0.5303942 -0.6341347
## 2011  0.0002717227 58.21249 4.064100 -0.099253919 0.5138936 -0.6657391
## 2012  0.0116647752 52.91550 3.968696 -0.095403635 0.5049973 -0.6832023
## 2013  0.0149969180 51.64958 3.944482 -0.024214238 0.4816528 -0.7305317
## 2014  0.0746345828 55.61496 4.018452  0.073970166 0.4839335 -0.7258077
## 2015  0.0304434610 55.83973 4.022486  0.004033393 0.4793031 -0.7354220
## 2016 -0.0183594491 55.98130 4.025018  0.002532083 0.4791846 -0.7356693
## 2017  0.0654156898 59.94436 4.093417  0.068399092 0.4787451 -0.7365869
## 2018  0.0833568277 62.43492 4.134125  0.040707936 0.4815642 -0.7307157
##            rulc_dl      ulc    ulc_l       ulc_dl       Tau    Tau_l
## 1993 -0.0338854736 25.03965 3.220460  0.100887779  94.69031 4.550612
## 1994 -0.0106846572 27.54372 3.315775  0.095314204  95.01212 4.554005
## 1995  0.0129062093 30.63355 3.422096  0.106321304  95.93676 4.563689
## 1996 -0.0209422124 32.28930 3.474736  0.052640012  98.26400 4.587658
## 1997  0.0121058421 34.82438 3.550318  0.075581704 102.14309 4.626375
## 1998  0.0071571737 36.86457 3.607251  0.056933210 102.53281 4.630183
## 1999 -0.0007245504 38.17241 3.642113  0.034862039 104.42403 4.648460
## 2000 -0.0001902777 38.77299 3.657724  0.015610971 107.09979 4.673761
## 2001 -0.0151645711 39.51644 3.676717  0.018992891 110.03047 4.700757
## 2002  0.0467083639 42.79256 3.756364  0.079647506 111.70367 4.715850
## 2003 -0.0075776539 43.93624 3.782739  0.026375115 115.75496 4.751476
## 2004 -0.0160305435 44.56175 3.796876  0.014136470 118.50869 4.774986
## 2005  0.0600839317 48.38141 3.879116  0.082239848 117.64222 4.767648
## 2006 -0.0417365670 48.02553 3.871733 -0.007383021 121.57822 4.800558
## 2007 -0.0137482177 48.99109 3.891638  0.019905722 122.72586 4.809953
## 2008  0.0044596691 51.34803 3.938627  0.046988224 120.07276 4.788098
## 2009  0.0385359718 54.73677 4.002536  0.063909051 114.53722 4.740900
## 2010  0.0033110157 55.28811 4.012558  0.010022199 109.68695 4.697630
## 2011 -0.0316043732 53.99575 3.988905 -0.023652504 103.88876 4.643321
## 2012 -0.0174631416 52.86447 3.967731 -0.021173979 100.46714 4.609831
## 2013 -0.0473294310 49.23467 3.896598 -0.071133468  99.33277 4.598476
## 2014  0.0047239444 48.56150 3.882831 -0.013766940 100.21938 4.607362
## 2015 -0.0096142893 47.93031 3.869748 -0.013082865 100.00000 4.605170
## 2016 -0.0002472803 47.80148 3.867056 -0.002691653 100.07955 4.605965
## 2017 -0.0009176136 48.04377 3.872112  0.005055888 101.12633 4.616371
## 2018  0.0058711787 48.59236 3.883466  0.011353828 102.68639 4.631680
##             Tau_dl       dPxdPm        dPdPm     Trade
## 1993 -0.0283768045  0.016293361  0.063553489 0.3104756
## 1994  0.0033928654  0.027976139  0.051480096 0.3163471
## 1995  0.0096847500  0.011252743  0.021435974 0.3296984
## 1996  0.0239684316  0.022108330  0.043557405 0.3446293
## 1997  0.0387169337  0.006994725  0.043941972 0.3770012
## 1998  0.0038081903  0.008045162  0.009418767 0.4074553
## 1999  0.0182769836  0.003935512  0.025493668 0.4683465
## 2000  0.0253012256 -0.018232883 -0.064754454 0.5454279
## 2001  0.0269963313  0.008247909  0.008947497 0.5270412
## 2002  0.0150922433  0.014291812  0.024653023 0.4813952
## 2003  0.0356259594  0.017244807  0.034728812 0.4734066
## 2004  0.0235107461 -0.001121939  0.009329339 0.4955860
## 2005 -0.0073382826 -0.009141949 -0.011021821 0.5020391
## 2006  0.0329097759 -0.000541675  0.001794568 0.5218643
## 2007  0.0093952617  0.004921975  0.011983460 0.5734723
## 2008 -0.0218551989 -0.011509966 -0.010690375 0.5879776
## 2009 -0.0471980729 -0.006773581  0.039972848 0.4939342
## 2010 -0.0432693762  0.003705626 -0.044654905 0.5225123
## 2011 -0.0543097401 -0.005350545 -0.053700059 0.5442659
## 2012 -0.0334899937 -0.015996357 -0.044797629 0.5612778
## 2013 -0.0113551130  0.016395562  0.007773528 0.5771586
## 2014  0.0088860441  0.016329133  0.019176731 0.6171085
## 2015 -0.0021914271  0.046833233  0.107313310 0.6305514
## 2016  0.0007951758 -0.004178768  0.027730373 0.6268069
## 2017  0.0104051676 -0.004018812 -0.046438506 0.6602527
## 2018  0.0153091017 -0.019410753 -0.046098656 0.6891688

Adjusted Dickey-fuller testet I(0)

adf.GRC.WS <- adf.test((GRC$WS), alternative = c("stationary"), k = 2)
adf.GRC.PS <- adf.test((GRC$PS), alternative = c("stationary"), k = 2)
adf.GRC.Y <- adf.test((GRC$Y), alternative = c("stationary"), k = 2)
adf.GRC.Yrw <- adf.test((GRC$Yrw), alternative = c("stationary"), k = 2)
adf.GRC.r <- adf.test((GRC$r), alternative = c("stationary"), k = 2)
adf.GRC.R <- adf.test((GRC$R), alternative = c("stationary"), k = 2)
adf.GRC.Tau <- adf.test((GRC$Tau), alternative = c("stationary"), k = 2)
adf.GRC.rulc <- adf.test((GRC$rulc), alternative = c("stationary"), k = 2)
adf.GRC.ulc <- adf.test((GRC$ulc), alternative = c("stationary"), k = 2)
adf.GRC.P <- adf.test((GRC$P), alternative = c("stationary"), k = 2)
adf.GRC.Pm <- adf.test((GRC$Pm), alternative = c("stationary"), k = 2)
adf.GRC.Px <- adf.test((GRC$Px), alternative = c("stationary"), k = 2)
adf.GRC.X <- adf.test((GRC$X), alternative = c("stationary"), k = 2)
adf.GRC.M <- adf.test((GRC$M), alternative = c("stationary"), k = 2)
adf.GRC.I <- adf.test((GRC$I), alternative = c("stationary"), k = 2)
adf.GRC.C <- adf.test((GRC$C), alternative = c("stationary"), k = 2)
adf.GRC.Ipr <- adf.test((GRC$Ipr), alternative = c("stationary"), k = 2)
adf.GRC.Ips <- adf.test((GRC$Ips), alternative = c("stationary"), k = 2)
adf.GRC.It <- adf.test((GRC$It), alternative = c("stationary"), k = 2)
adf.GRC.Itcurr <- adf.test((GRC$Itcurr), alternative = c("stationary"), k = 2)
adf.GRC.Yf <- adf.test((GRC$Yf), alternative = c("stationary"), k = 2)
adf.GRC.W <- adf.test((GRC$W), alternative = c("stationary"), k = 2)

adf.GRC.WS.pval <- adf.GRC.WS$p.value
adf.GRC.PS.pval <- adf.GRC.PS$p.value
adf.GRC.Y.pval <- adf.GRC.Y$p.value
adf.GRC.Yrw.pval <- adf.GRC.Yrw$p.value
adf.GRC.r.pval <- adf.GRC.r$p.value
adf.GRC.R.pval <- adf.GRC.R$p.value
adf.GRC.Tau.pval <- adf.GRC.Tau$p.value
adf.GRC.rulc.pval <- adf.GRC.rulc$p.value
adf.GRC.ulc.pval <- adf.GRC.ulc$p.value
adf.GRC.P.pval <- adf.GRC.P$p.value
adf.GRC.Pm.pval <- adf.GRC.Pm$p.value
adf.GRC.Px.pval <- adf.GRC.Px$p.value
adf.GRC.X.pval <- adf.GRC.X$p.value
adf.GRC.M.pval <- adf.GRC.M$p.value
adf.GRC.I.pval <- adf.GRC.I$p.value
adf.GRC.C.pval <- adf.GRC.C$p.value
adf.GRC.Ipr.pval <- adf.GRC.Ipr$p.value
adf.GRC.Ips.pval <- adf.GRC.Ips$p.value
adf.GRC.It.pval <- adf.GRC.It$p.value
adf.GRC.Itcurr.pval <- adf.GRC.Itcurr$p.value
adf.GRC.Yf.pval <- adf.GRC.Yf$p.value
adf.GRC.W.pval <- adf.GRC.W$p.value

adf.GRC_non <- rbind(adf.GRC.WS.pval,adf.GRC.PS.pval,adf.GRC.Y.pval,adf.GRC.Yrw.pval,adf.GRC.r.pval,adf.GRC.R.pval,adf.GRC.Tau.pval,adf.GRC.rulc.pval,adf.GRC.ulc.pval,adf.GRC.P.pval,adf.GRC.Pm.pval,adf.GRC.Px.pval,adf.GRC.X.pval,adf.GRC.M.pval,adf.GRC.I.pval,adf.GRC.C.pval,adf.GRC.Ipr.pval,adf.GRC.Ips.pval,adf.GRC.It.pval,adf.GRC.Itcurr.pval,adf.GRC.Yf.pval,adf.GRC.W.pval)


colnames(adf.GRC_non) <- c("GRC")
rownames(adf.GRC_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.GRC_non
##              GRC
## WS     0.8300833
## PS     0.8300833
## Y      0.5026104
## Yrw    0.5680479
## r      0.5192945
## R      0.7376246
## Tau    0.4320494
## rulc   0.8729598
## ulc    0.9330244
## P      0.9519248
## Pm     0.4261103
## Px     0.7976946
## X      0.6062361
## M      0.6830860
## I      0.7878450
## C      0.9210318
## Ipr    0.8367126
## Ips    0.3255945
## It     0.7484944
## Itcurr 0.7988064
## Yf     0.4734609
## W      0.4525984

Adjusted Dickey-fuller testet I(1)

adf.GRC.WS_dl <- adf.test((GRC$WS_dl), alternative = c("stationary"), k = 2)
adf.GRC.PS_dl <- adf.test((GRC$PS_dl), alternative = c("stationary"), k = 2)
adf.GRC.Y_dl <- adf.test((GRC$Y_dl), alternative = c("stationary"), k = 2)
adf.GRC.Yrw_dl <- adf.test((GRC$Yrw_dl), alternative = c("stationary"), k = 2)
adf.GRC.r_dl <- adf.test((GRC$r_dl), alternative = c("stationary"), k = 2)
adf.GRC.R_dl <- adf.test((GRC$R_dl), alternative = c("stationary"), k = 2)
adf.GRC.Tau_dl <- adf.test((GRC$Tau_dl), alternative = c("stationary"), k = 2)
adf.GRC.rulc_dl <- adf.test((GRC$rulc_dl), alternative = c("stationary"), k = 2)
adf.GRC.ulc_dl <- adf.test((GRC$ulc_dl), alternative = c("stationary"), k = 2)
adf.GRC.P_dl <- adf.test((GRC$P_dl), alternative = c("stationary"), k = 2)
adf.GRC.Pm_dl <- adf.test((GRC$Pm_dl), alternative = c("stationary"), k = 2)
adf.GRC.Px_dl <- adf.test((GRC$Px_dl), alternative = c("stationary"), k = 2)
adf.GRC.X_dl <- adf.test((GRC$X_dl), alternative = c("stationary"), k = 2)
adf.GRC.M_dl <- adf.test((GRC$M_dl), alternative = c("stationary"), k = 2)
adf.GRC.I_dl <- adf.test((GRC$I_dl), alternative = c("stationary"), k = 2)
adf.GRC.C_dl <- adf.test((GRC$C_dl), alternative = c("stationary"), k = 2)
adf.GRC.Ipr_dl <- adf.test((GRC$Ipr_dl), alternative = c("stationary"), k = 2)
adf.GRC.Ips_dl <- adf.test((GRC$Ips_dl), alternative = c("stationary"), k = 2)
adf.GRC.It_dl <- adf.test((GRC$It_dl), alternative = c("stationary"), k = 2)
adf.GRC.Itcurr_dl <- adf.test((GRC$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.GRC.Yf_dl <- adf.test((GRC$Yf_dl), alternative = c("stationary"), k = 2)
adf.GRC.W_dl <- adf.test((GRC$W_dl), alternative = c("stationary"), k = 2)

adf.GRC.WS_dl.pval <- adf.GRC.WS_dl$p.value
adf.GRC.PS_dl.pval <- adf.GRC.PS_dl$p.value
adf.GRC.Y_dl.pval <- adf.GRC.Y_dl$p.value
adf.GRC.Yrw_dl.pval <- adf.GRC.Yrw_dl$p.value
adf.GRC.r_dl.pval <- adf.GRC.r_dl$p.value
adf.GRC.R_dl.pval <- adf.GRC.R_dl$p.value
adf.GRC.Tau_dl.pval <- adf.GRC.Tau_dl$p.value
adf.GRC.rulc_dl.pval <- adf.GRC.rulc_dl$p.value
adf.GRC.ulc_dl.pval <- adf.GRC.ulc_dl$p.value
adf.GRC.P_dl.pval <- adf.GRC.P_dl$p.value
adf.GRC.Pm_dl.pval <- adf.GRC.Pm_dl$p.value
adf.GRC.Px_dl.pval <- adf.GRC.Px_dl$p.value
adf.GRC.X_dl.pval <- adf.GRC.X_dl$p.value
adf.GRC.M_dl.pval <- adf.GRC.M_dl$p.value
adf.GRC.I_dl.pval <- adf.GRC.I_dl$p.value
adf.GRC.C_dl.pval <- adf.GRC.C_dl$p.value
adf.GRC.Ipr_dl.pval <- adf.GRC.Ipr_dl$p.value
adf.GRC.Ips_dl.pval <- adf.GRC.Ips_dl$p.value
adf.GRC.It_dl.pval <- adf.GRC.It_dl$p.value
adf.GRC.Itcurr_dl.pval <- adf.GRC.Itcurr_dl$p.value
adf.GRC.Yf_dl.pval <- adf.GRC.Yf_dl$p.value
adf.GRC.W_dl.pval <- adf.GRC.W_dl$p.value

adf.GRC_dl <- rbind(adf.GRC.WS_dl.pval,adf.GRC.PS_dl.pval,adf.GRC.Y_dl.pval,adf.GRC.Yrw_dl.pval,adf.GRC.r_dl.pval,adf.GRC.R_dl.pval,adf.GRC.Tau_dl.pval,adf.GRC.rulc_dl.pval,adf.GRC.ulc_dl.pval,adf.GRC.P_dl.pval,adf.GRC.Pm_dl.pval,adf.GRC.Px_dl.pval,adf.GRC.X_dl.pval,adf.GRC.M_dl.pval,adf.GRC.I_dl.pval,adf.GRC.C_dl.pval,adf.GRC.Ipr_dl.pval,adf.GRC.Ips_dl.pval,adf.GRC.It_dl.pval,adf.GRC.Itcurr_dl.pval,adf.GRC.Yf_dl.pval,adf.GRC.W_dl.pval)
colnames(adf.GRC_dl) <- c("GRC")
rownames(adf.GRC_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.GRC_dl
##                     GRC
## dlog(WS)     0.12516419
## dlog(PS)     0.11146830
## dlog(Y)      0.60069733
## dlog(Yrw)    0.29602560
## dlog(r)      0.32519406
## dlog(R)      0.60892769
## dlog(Tau)    0.67561756
## dlog(rulc)   0.21957081
## dlog(ulc)    0.45064239
## dlog(P)      0.33812130
## dlog(Pm)     0.02902880
## dlog(Px)     0.05446993
## dlog(X)      0.24254964
## dlog(M)      0.48681335
## dlog(I)      0.64869193
## dlog(C)      0.58848458
## dlog(Ipr)    0.71865586
## dlog(Ips)    0.04156621
## dlog(It)     0.46532393
## dlog(Itcurr) 0.50903601
## dlog(Yf)     0.68728993
## dlog(W)      0.68722124
adf.GRC <- NULL
adf.GRC <- rbind(adf.GRC_non,adf.GRC_dl)

Økonometriske test

#Consumption (C)
GRC_consumption <- dynlm(GRC$C_dl~GRC$R_dl+GRC$W_dl)
GRC_CR <- summary(GRC_consumption)$coefficients["GRC$R_dl","Estimate"]
GRC_CW <- summary(GRC_consumption)$coefficients["GRC$W_dl","Estimate"]
GRC_Ceffekt <- (GRC_CR*mean(GRC$C/GRC$R))-(GRC_CW*mean(GRC$C/GRC$W))
summary(GRC_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$C_dl ~ GRC$R_dl + GRC$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.017425 -0.009142  0.000227  0.003950  0.034325 
## 
## Coefficients:
##             Estimate Std. Error t value       Pr(>|t|)    
## (Intercept) 0.005736   0.002462   2.330       0.028965 *  
## GRC$R_dl    0.232264   0.052212   4.448       0.000184 ***
## GRC$W_dl    0.652396   0.053320  12.236 0.000000000015 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01248 on 23 degrees of freedom
## Multiple R-squared:  0.911,  Adjusted R-squared:  0.9032 
## F-statistic: 117.7 on 2 and 23 DF,  p-value: 0.00000000000083
#Investments (I)
GRC_investment <- dynlm(GRC$I_dl~GRC$PS_dl+GRC$Y_dl+L(GRC$r_dl))
GRC_iPS <- summary(GRC_investment)$coefficients["GRC$PS_dl","Estimate"]
GRC_iPS <- 0
GRC_Ieffekt <- GRC_iPS*mean(GRC$I/GRC$R)
summary(GRC_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$I_dl ~ GRC$PS_dl + GRC$Y_dl + L(GRC$r_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.117425 -0.044790 -0.008026  0.025028  0.174340 
## 
## Coefficients:
##             Estimate Std. Error t value    Pr(>|t|)    
## (Intercept) -0.03504    0.01478  -2.371      0.0269 *  
## GRC$PS_dl    0.49425    0.45597   1.084      0.2901    
## GRC$Y_dl     2.99206    0.44149   6.777 0.000000825 ***
## L(GRC$r_dl)  0.18840    0.11081   1.700      0.1032    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07366 on 22 degrees of freedom
## Multiple R-squared:  0.7032, Adjusted R-squared:  0.6628 
## F-statistic: 17.38 on 3 and 22 DF,  p-value: 0.000005186
#Price deflator (P)
GRC_deflator <- dynlm(GRC$P_dl~L(GRC$ulc_dl)+GRC$Pm_dl)
GRC_ePULC <- summary(GRC_deflator)$coefficients["L(GRC$ulc_dl)","Estimate"]
summary(GRC_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$P_dl ~ L(GRC$ulc_dl) + GRC$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.045581 -0.014707  0.002155  0.008334  0.048849 
## 
## Coefficients:
##               Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)   0.009467   0.005119   1.849     0.0773 .  
## L(GRC$ulc_dl) 0.642770   0.102583   6.266 0.00000215 ***
## GRC$Pm_dl     0.163014   0.107683   1.514     0.1437    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02089 on 23 degrees of freedom
## Multiple R-squared:  0.7162, Adjusted R-squared:  0.6915 
## F-statistic: 29.02 on 2 and 23 DF,  p-value: 0.0000005127
#Export price deflator (Px)
GRC_exportdeflator <- dynlm(GRC$Px_dl~GRC$ulc_dl+GRC$Pm_dl)
GRC_ePX <- summary(GRC_exportdeflator)$coefficients["GRC$ulc_dl","Estimate"]
summary(GRC_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$Px_dl ~ GRC$ulc_dl + GRC$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.025676 -0.006722  0.001624  0.007593  0.021782 
## 
## Coefficients:
##             Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) 0.006676   0.002992   2.231          0.0357 *  
## GRC$ulc_dl  0.135263   0.059957   2.256          0.0339 *  
## GRC$Pm_dl   0.754672   0.062938  11.991 0.0000000000224 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01221 on 23 degrees of freedom
## Multiple R-squared:  0.8975, Adjusted R-squared:  0.8886 
## F-statistic: 100.7 on 2 and 23 DF,  p-value: 0.000000000004184
#Exports (X)
GRC_exports <- dynlm(GRC$X_dl~L(GRC$dPxdPm)+GRC$Yrw_dl)
GRC_eXP <- summary(GRC_exports)$coefficients["L(GRC$dPxdPm)","Estimate"]
GRC_Xeffekt <- -(GRC_eXP*GRC_ePX*(1/(1-GRC_ePULC))*mean(GRC$Yf/GRC$Y)*(mean(GRC$X/GRC$Y)/mean(GRC$rulc)))
summary(GRC_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$X_dl ~ L(GRC$dPxdPm) + GRC$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.077127 -0.041926 -0.003058  0.027479  0.113792 
## 
## Coefficients:
##               Estimate Std. Error t value    Pr(>|t|)    
## (Intercept)   -0.06170    0.01886  -3.272     0.00335 ** 
## L(GRC$dPxdPm) -1.24989    0.68665  -1.820     0.08176 .  
## GRC$Yrw_dl     5.35627    0.75311   7.112 0.000000303 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05172 on 23 degrees of freedom
## Multiple R-squared:  0.6903, Adjusted R-squared:  0.6634 
## F-statistic: 25.64 on 2 and 23 DF,  p-value: 0.000001397
#Imports (M)
GRC_imports <- dynlm(GRC$M_dl~GRC$dPdPm+L(GRC$Y_dl))
GRC_eMP <- summary(GRC_imports)$coefficients["GRC$dPdPm","Estimate"]
GRC_Meffekt <- -(GRC_eMP*GRC_ePULC*(1/(1-GRC_ePULC))*mean(GRC$Yf/GRC$Y)*(mean(GRC$M/GRC$Y)/mean(GRC$rulc)))
summary(GRC_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$M_dl ~ GRC$dPdPm + L(GRC$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.149547 -0.027721  0.002387  0.045704  0.079430 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)  0.02317    0.01205   1.923     0.0669 .  
## GRC$dPdPm   -0.53624    0.30317  -1.769     0.0902 .  
## L(GRC$Y_dl)  1.81456    0.30726   5.906 0.00000509 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05938 on 23 degrees of freedom
## Multiple R-squared:  0.6027, Adjusted R-squared:  0.5681 
## F-statistic: 17.44 on 2 and 23 DF,  p-value: 0.00002457
names(GRC_consumption$coefficients) <- sub("GRC$","",names(GRC_consumption$coefficients),fixed=TRUE)
names(GRC_investment$coefficients) <- sub("GRC$","",names(GRC_investment$coefficients),fixed=TRUE)
names(GRC_deflator$coefficients) <- sub("GRC$","",names(GRC_deflator$coefficients),fixed=TRUE)
names(GRC_exportdeflator$coefficients) <- sub("GRC$","",names(GRC_exportdeflator$coefficients),fixed=TRUE)
names(GRC_exports$coefficients) <- sub("GRC$","",names(GRC_exports$coefficients),fixed=TRUE)
names(GRC_imports$coefficients) <- sub("GRC$","",names(GRC_imports$coefficients),fixed=TRUE)

GRC_Xeffekt
## [1] 0.1871525
GRC_Meffekt
## [1] 0.4782916
#Nettoeksport (NX)
GRC_NXeffekt <- GRC_Xeffekt - GRC_Meffekt

GRC_NXeffekt
## [1] -0.2911391
#Nettoeffekten
GRC_Neteffekt = GRC_Ceffekt + GRC_Ieffekt + GRC_NXeffekt

GRC_Neteffekt
## [1] -0.7577486
GRC_Lukket <- GRC_Ceffekt + GRC_Ieffekt
GRC_Lukket_Konklusion <- ifelse(GRC_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
GRC_Lukket_Konklusion
## [1] "Wage-led domestic"
GRC_Def <- ifelse(GRC_Neteffekt > 0, "Profit-led", "Wage-led")
GRC_Def
## [1] "Wage-led"

Kointegrations-test

summary(ur.df(y=GRC_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -15.247         NA      NA       NA
## z.diff.lag1    13.869         NA      NA       NA
## z.diff.lag2    12.486         NA      NA       NA
## z.diff.lag3    11.554         NA      NA       NA
## z.diff.lag4    10.298         NA      NA       NA
## z.diff.lag5     8.692         NA      NA       NA
## z.diff.lag6     7.286         NA      NA       NA
## z.diff.lag7     6.277         NA      NA       NA
## z.diff.lag8     5.035         NA      NA       NA
## z.diff.lag9     3.415         NA      NA       NA
## z.diff.lag10    2.694         NA      NA       NA
## z.diff.lag11    2.155         NA      NA       NA
## z.diff.lag12    2.248         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=GRC_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -1.4458         NA      NA       NA
## z.diff.lag1    0.8001         NA      NA       NA
## z.diff.lag2    0.6166         NA      NA       NA
## z.diff.lag3    1.4336         NA      NA       NA
## z.diff.lag4    2.4021         NA      NA       NA
## z.diff.lag5    1.8640         NA      NA       NA
## z.diff.lag6    2.0036         NA      NA       NA
## z.diff.lag7    0.6792         NA      NA       NA
## z.diff.lag8    0.6108         NA      NA       NA
## z.diff.lag9    1.7746         NA      NA       NA
## z.diff.lag10   1.3375         NA      NA       NA
## z.diff.lag11   2.0205         NA      NA       NA
## z.diff.lag12   0.9176         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=GRC_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1        -7.393         NA      NA       NA
## z.diff.lag1     3.996         NA      NA       NA
## z.diff.lag2     5.398         NA      NA       NA
## z.diff.lag3     2.612         NA      NA       NA
## z.diff.lag4     3.757         NA      NA       NA
## z.diff.lag5     2.309         NA      NA       NA
## z.diff.lag6     3.518         NA      NA       NA
## z.diff.lag7     1.412         NA      NA       NA
## z.diff.lag8     2.159         NA      NA       NA
## z.diff.lag9     1.121         NA      NA       NA
## z.diff.lag10    1.440         NA      NA       NA
## z.diff.lag11    1.395         NA      NA       NA
## z.diff.lag12    1.390         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=GRC_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -2.0977         NA      NA       NA
## z.diff.lag1    1.3874         NA      NA       NA
## z.diff.lag2    0.8286         NA      NA       NA
## z.diff.lag3    1.4864         NA      NA       NA
## z.diff.lag4    0.8737         NA      NA       NA
## z.diff.lag5    0.2366         NA      NA       NA
## z.diff.lag6    0.9881         NA      NA       NA
## z.diff.lag7    0.7764         NA      NA       NA
## z.diff.lag8    0.8521         NA      NA       NA
## z.diff.lag9    0.9980         NA      NA       NA
## z.diff.lag10   0.4520         NA      NA       NA
## z.diff.lag11  -0.4299         NA      NA       NA
## z.diff.lag12   1.4847         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(GRC_consumption)

plot(GRC_investment)

plot(GRC_deflator)

plot(GRC_exportdeflator)

plot(GRC_exports)

plot(GRC_imports)

bptest(GRC_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  GRC_consumption
## BP = 1.3068, df = 2, p-value = 0.5203
bptest(GRC_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  GRC_investment
## BP = 1.0315, df = 3, p-value = 0.7936
bptest(GRC_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  GRC_deflator
## BP = 5.6126, df = 2, p-value = 0.06043
bptest(GRC_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  GRC_exportdeflator
## BP = 4.689, df = 2, p-value = 0.0959
bptest(GRC_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  GRC_exports
## BP = 1.4761, df = 2, p-value = 0.478
bptest(GRC_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  GRC_imports
## BP = 1.245, df = 2, p-value = 0.5366
resettest(GRC_consumption)
## 
##  RESET test
## 
## data:  GRC_consumption
## RESET = 3.4339, df1 = 2, df2 = 21, p-value = 0.05125
resettest(GRC_investment)
## 
##  RESET test
## 
## data:  GRC_investment
## RESET = 1.312, df1 = 2, df2 = 20, p-value = 0.2915
resettest(GRC_deflator)
## 
##  RESET test
## 
## data:  GRC_deflator
## RESET = 2.4455, df1 = 2, df2 = 21, p-value = 0.111
resettest(GRC_exportdeflator)
## 
##  RESET test
## 
## data:  GRC_exportdeflator
## RESET = 2.1547, df1 = 2, df2 = 21, p-value = 0.1409
resettest(GRC_exports)
## 
##  RESET test
## 
## data:  GRC_exports
## RESET = 1.2562, df1 = 2, df2 = 21, p-value = 0.3053
resettest(GRC_imports)
## 
##  RESET test
## 
## data:  GRC_imports
## RESET = 0.24177, df1 = 2, df2 = 21, p-value = 0.7874

Resultater

GRC_regtab <- matrix(c(GRC_Ceffekt, GRC_Ieffekt, GRC_Lukket, GRC_Xeffekt, GRC_Meffekt, GRC_NXeffekt, GRC_Neteffekt,GRC_Lukket_Konklusion, GRC_Def),ncol=9,byrow=TRUE)
colnames(GRC_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(GRC_regtab) <- c("GRC")
GRC_regtab <- as.table(GRC_regtab)
GRC_regtab
##     consumption        investment Lukket neteffekt   exports          
## GRC -0.466609515873891 0          -0.466609515873891 0.187152498813869
##     imports           netexports         neteffect         
## GRC 0.478291615604291 -0.291139116790422 -0.757748632664313
##     Lukket konklusion Konklusion
## GRC Wage-led domestic Wage-led
GRC_smoke <- matrix(c(mean(GRC$C/GRC$R), mean(GRC$C/GRC$W), mean(GRC$I/GRC$R), GRC_CR, GRC_CW, GRC_iPS, GRC_ePULC, (1/(1-GRC_ePULC)), GRC_eXP, GRC_ePX, GRC_eMP, mean(GRC$Yf/GRC$Y), mean(GRC$X/GRC$Y), mean(GRC$rulc), (mean(GRC$X/GRC$Y)/mean(GRC$rulc))),ncol=15,byrow=TRUE)
colnames(GRC_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(GRC_smoke) <- c("GRC")
GRC_smoke <- as.table(GRC_smoke)
GRC_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## GRC  1.8026390  1.3569940  0.3634173  0.2322642  0.6523965  0.0000000
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## GRC  0.6427698  2.7993153 -1.2498936  0.1352632 -0.5362425  0.8810981
##            X/Y       RULC (X/Y)/rulc
## GRC  0.2250355  0.5013997  0.4488145

Summary af regressioner

summary(GRC_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$C_dl ~ GRC$R_dl + GRC$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.017425 -0.009142  0.000227  0.003950  0.034325 
## 
## Coefficients:
##             Estimate Std. Error t value       Pr(>|t|)    
## (Intercept) 0.005736   0.002462   2.330       0.028965 *  
## R_dl        0.232264   0.052212   4.448       0.000184 ***
## W_dl        0.652396   0.053320  12.236 0.000000000015 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01248 on 23 degrees of freedom
## Multiple R-squared:  0.911,  Adjusted R-squared:  0.9032 
## F-statistic: 117.7 on 2 and 23 DF,  p-value: 0.00000000000083
summary(GRC_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$I_dl ~ GRC$PS_dl + GRC$Y_dl + L(GRC$r_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.117425 -0.044790 -0.008026  0.025028  0.174340 
## 
## Coefficients:
##             Estimate Std. Error t value    Pr(>|t|)    
## (Intercept) -0.03504    0.01478  -2.371      0.0269 *  
## PS_dl        0.49425    0.45597   1.084      0.2901    
## Y_dl         2.99206    0.44149   6.777 0.000000825 ***
## L(r_dl)      0.18840    0.11081   1.700      0.1032    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07366 on 22 degrees of freedom
## Multiple R-squared:  0.7032, Adjusted R-squared:  0.6628 
## F-statistic: 17.38 on 3 and 22 DF,  p-value: 0.000005186
summary(GRC_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$P_dl ~ L(GRC$ulc_dl) + GRC$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.045581 -0.014707  0.002155  0.008334  0.048849 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept) 0.009467   0.005119   1.849     0.0773 .  
## L(ulc_dl)   0.642770   0.102583   6.266 0.00000215 ***
## Pm_dl       0.163014   0.107683   1.514     0.1437    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02089 on 23 degrees of freedom
## Multiple R-squared:  0.7162, Adjusted R-squared:  0.6915 
## F-statistic: 29.02 on 2 and 23 DF,  p-value: 0.0000005127
summary(GRC_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$Px_dl ~ GRC$ulc_dl + GRC$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.025676 -0.006722  0.001624  0.007593  0.021782 
## 
## Coefficients:
##             Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) 0.006676   0.002992   2.231          0.0357 *  
## ulc_dl      0.135263   0.059957   2.256          0.0339 *  
## Pm_dl       0.754672   0.062938  11.991 0.0000000000224 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01221 on 23 degrees of freedom
## Multiple R-squared:  0.8975, Adjusted R-squared:  0.8886 
## F-statistic: 100.7 on 2 and 23 DF,  p-value: 0.000000000004184
summary(GRC_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$X_dl ~ L(GRC$dPxdPm) + GRC$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.077127 -0.041926 -0.003058  0.027479  0.113792 
## 
## Coefficients:
##             Estimate Std. Error t value    Pr(>|t|)    
## (Intercept) -0.06170    0.01886  -3.272     0.00335 ** 
## L(dPxdPm)   -1.24989    0.68665  -1.820     0.08176 .  
## Yrw_dl       5.35627    0.75311   7.112 0.000000303 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05172 on 23 degrees of freedom
## Multiple R-squared:  0.6903, Adjusted R-squared:  0.6634 
## F-statistic: 25.64 on 2 and 23 DF,  p-value: 0.000001397
summary(GRC_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = GRC$M_dl ~ GRC$dPdPm + L(GRC$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.149547 -0.027721  0.002387  0.045704  0.079430 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)  0.02317    0.01205   1.923     0.0669 .  
## dPdPm       -0.53624    0.30317  -1.769     0.0902 .  
## L(Y_dl)      1.81456    0.30726   5.906 0.00000509 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05938 on 23 degrees of freedom
## Multiple R-squared:  0.6027, Adjusted R-squared:  0.5681 
## F-statistic: 17.44 on 2 and 23 DF,  p-value: 0.00002457

Irland analyse

Test for NA værdier

IRL_df[!complete.cases(IRL_df),]
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1960 0.7392622 -0.3021027            NA 0.2607378 -1.3442398            NA
## 1961 0.7353662 -0.3073866 -0.0052839293 0.2646338 -1.3294085  0.0148313247
## 1962 0.7393980 -0.3019190  0.0054676550 0.2606020 -1.3447609 -0.0153524205
## 1963 0.7320694 -0.3118800 -0.0099610441 0.2679306 -1.3170272  0.0277337070
## 1964 0.7392474 -0.3021226  0.0097574023 0.2607526 -1.3441833 -0.0271561461
## 1965 0.7311781 -0.3130982 -0.0109755737 0.2688219 -1.3137063  0.0304770205
## 1966 0.7600229 -0.2744067  0.0386914743 0.2399771 -1.4272118 -0.1135055264
## 1967 0.7432481 -0.2967254 -0.0223186840 0.2567519 -1.3596450  0.0675668244
## 1968 0.7310220 -0.3133117 -0.0165863575 0.2689780 -1.3131256  0.0465193604
## 1969 0.7289322 -0.3161745 -0.0028627986 0.2710678 -1.3053864  0.0077392934
## 1970 0.7493624 -0.2885326  0.0276419702 0.2506376 -1.3837472 -0.0783608550
## 1971 0.7503720 -0.2871862  0.0013463439 0.2496280 -1.3877834 -0.0040361773
## 2019 0.3652108 -1.0072806 -0.0003232241 0.6347892 -0.4544623  0.0001860066
## 2020 0.3677919 -1.0002379  0.0070426876 0.6322081 -0.4585367 -0.0040744328
## 2021 0.3557429 -1.0335469 -0.0333090032 0.6442571 -0.4396575  0.0188792577
## 2022        NA         NA            NA        NA         NA            NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960  21.4973 3.067927           NA  8430966115371 29.76293         NA
## 1961  22.5756 3.116870  0.048942331  8827469369768 29.80889 0.04595701
## 1962  23.3017 3.148526  0.031656642  9340423710895 29.86537 0.05648324
## 1963  24.4073 3.194882  0.046355949  9846180656268 29.91810 0.05273201
## 1964  25.3314 3.232045  0.037162465 10489131719408 29.98136 0.06325602
## 1965  25.8212 3.251196  0.019151127 11071828842466 30.03543 0.05406429
## 1966  26.0519 3.260091  0.008894842 11747958406927 30.09470 0.05927553
## 1967  27.5593 3.316340  0.056249344 12290823417633 30.13987 0.04517345
## 1968  29.8312 3.395555  0.079214779 13074874847797 30.20171 0.06183952
## 1969  31.5805 3.452540  0.056985016 13821137390949 30.25722 0.05550668
## 1970  32.4206 3.478794  0.026254182 14149747655528 30.28072 0.02349768
## 1971  33.5455 3.512903  0.034108703 14695846755887 30.31859 0.03786813
## 2019 336.4633 5.818489  0.054012652             NA       NA         NA
## 2020 309.7244 5.735683 -0.082806209             NA       NA         NA
## 2021 328.5694 5.794748  0.059065209             NA       NA         NA
## 2022       NA       NA           NA             NA       NA         NA
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1960  0.13007  21.36723 3.061858           NA  14.3414 2.663150
## 1961  0.14171  22.43389 3.110573  0.048714322  14.7906 2.693992
## 1962  0.14559  23.15611 3.142259  0.031685915  15.3032 2.728062
## 1963  0.16084  24.24646 3.188271  0.046011951  15.9525 2.769616
## 1964  0.19097  25.14043 3.224477  0.036206680  16.6310 2.811268
## 1965  0.20881  25.61239 3.243076  0.018598912  16.7677 2.819454
## 1966  0.23648  25.81542 3.250972  0.007895769  17.0167 2.834195
## 1967  0.25988  27.29942 3.306865  0.055893469  17.6559 2.871070
## 1968  0.29415  29.53705 3.385645  0.078779951  19.2376 2.956867
## 1969  0.35466  31.22584 3.441246  0.055600550  20.2726 3.009270
## 1970  0.40689  32.01371 3.466164  0.024918291  20.0646 2.998957
## 1971  0.46300  33.08250 3.499004  0.032840193  20.7142 3.030819
## 2019 27.66219 308.80111 5.732697  0.052265554 100.2407 4.607574
## 2020 23.98377 285.74063 5.655085 -0.077612901  91.4195 4.515459
## 2021 25.89138 302.67802 5.712670  0.057585089  95.6248 4.560432
## 2022       NA        NA       NA           NA       NA       NA
##              C_dl         W      W_l         W_dl          R      R_l
## 1960           NA  15.79598 2.759756           NA   5.571246 1.717619
## 1961  0.030841384  16.49713 2.803186  0.043430393   5.936765 1.781164
## 1962  0.034070113  17.12158 2.840340  0.037153570   6.034529 1.797498
## 1963  0.041553600  17.75009 2.876391  0.036050907   6.496369 1.871243
## 1964  0.041652867  18.58500 2.922355  0.045964082   6.555432 1.880294
## 1965  0.008185993  18.72722 2.929978  0.007623338   6.885171 1.929370
## 1966  0.014740798  19.62031 2.976565  0.046587243   6.195109 1.823760
## 1967  0.036874790  20.29024 3.010140  0.033574785   7.009178 1.947220
## 1968  0.085796692  21.59223 3.072334  0.062193594   7.944817 2.072520
## 1969  0.052403523  22.76152 3.125071  0.052737751   8.464319 2.135860
## 1970 -0.010313152  23.98987 3.177632  0.052560262   8.023839 2.082417
## 1971  0.031862387  24.82418 3.211818  0.034186537   8.258319 2.111221
## 2019  0.027539368 112.77750 4.725417  0.051942330 196.023609 5.278235
## 2020 -0.092115490 105.09310 4.654847 -0.070570214 180.647528 5.196548
## 2021  0.044973397 107.67557 4.679123  0.024276086 195.002449 5.273012
## 2022           NA        NA       NA           NA         NA       NA
##              R_dl       It     It_l       It_dl   Itcurr   Itcurr_l
## 1960           NA   3.1437 1.145400          NA   0.1360 -1.9951004
## 1961  0.063545647   3.6753 1.301635  0.15623431   0.1657 -1.7975764
## 1962  0.016333494   4.2176 1.439266  0.13763148   0.1965 -1.6270928
## 1963  0.073745658   4.7232 1.552487  0.11322029   0.2310 -1.4653376
## 1964  0.009050534   5.2341 1.655195  0.10270837   0.2757 -1.2884420
## 1965  0.049075932   5.7814 1.754646  0.09945096   0.3069 -1.1812333
## 1966 -0.105609757   5.6095 1.724462 -0.03018428   0.2987 -1.2083156
## 1967  0.123460293   5.9899 1.790075  0.06561313   0.3307 -1.1065437
## 1968  0.125299311   6.7823 1.914316  0.12424156   0.3891 -0.9439189
## 1969  0.063339843   8.1693 2.100383  0.18606695   0.5001 -0.6929472
## 1970 -0.053442564   7.8975 2.066546 -0.03383697   0.5506 -0.5967467
## 1971  0.028804016   8.6020 2.151995  0.08544848   0.6548 -0.4234254
## 2019  0.052451561 136.0330 4.912898  0.66366825 150.8300  5.0161534
## 2020 -0.081687334  79.4059 4.374573 -0.53832483  87.0927  4.4669731
## 2021  0.076464347  92.8627 4.531122  0.15654939 103.6721  4.6412330
## 2022           NA       NA       NA          NA       NA         NA
##        Itcurr_dl      Ipr      Ipr_l     Ipr_dl       Ips       Ips_l
## 1960          NA       NA         NA         NA        NA          NA
## 1961  0.19752404       NA         NA         NA        NA          NA
## 1962  0.17048351       NA         NA         NA        NA          NA
## 1963  0.16175528       NA         NA         NA        NA          NA
## 1964  0.17689561       NA         NA         NA        NA          NA
## 1965  0.10720864       NA         NA         NA        NA          NA
## 1966 -0.02708224       NA         NA         NA        NA          NA
## 1967  0.10177189       NA         NA         NA        NA          NA
## 1968  0.16262476       NA         NA         NA        NA          NA
## 1969  0.25097170       NA         NA         NA        NA          NA
## 1970  0.09620051   0.4504 -0.7976192         NA 0.8180167 -0.20087252
## 1971  0.17332125   0.5375 -0.6208265  0.1767927 0.8208613 -0.19740109
## 2019  0.68786381 142.7562  4.9611383  0.7200691 0.9464709 -0.05501509
## 2020 -0.54918031  78.2607  4.3600456 -0.6010927 0.8985908 -0.10692751
## 2021  0.17425997  94.6224  4.5498942  0.1898487 0.9127084 -0.09133880
## 2022          NA       NA         NA         NA        NA          NA
##           Ips_dl          I      I_l        I_dl         r      r_l
## 1960          NA         NA       NA          NA        NA       NA
## 1961          NA         NA       NA          NA        NA       NA
## 1962          NA         NA       NA          NA        NA       NA
## 1963          NA         NA       NA          NA        NA       NA
## 1964          NA         NA       NA          NA        NA       NA
## 1965          NA         NA       NA          NA        NA       NA
## 1966          NA         NA       NA          NA        NA       NA
## 1967          NA         NA       NA          NA        NA       NA
## 1968          NA         NA       NA          NA        NA       NA
## 1969          NA         NA       NA          NA        NA       NA
## 1970          NA   6.460287 1.865674          NA        NA       NA
## 1971  0.00347143   7.061049 1.954594  0.08891991 -1.175314 1.784499
## 2019  0.03220531 128.751271 4.857882  0.69587355 -1.170774 1.785261
## 2020 -0.05191241  71.353412 4.267645 -0.59023724        NA       NA
## 2021  0.01558871  84.756569 4.439783  0.17213809        NA       NA
## 2022          NA         NA       NA          NA        NA       NA
##            r_dl          P      P_l       P_dl         Pm     Pm_l
## 1960         NA   4.256210 1.448379         NA   8.791821 2.173822
## 1961         NA   4.363634 1.473305 0.02492601   8.887073 2.184598
## 1962         NA   4.576592 1.520955 0.04764947   8.934989 2.189975
## 1963         NA   4.698851 1.547318 0.02636340   9.106670 2.209007
## 1964         NA   5.152805 1.639541 0.09222320   9.225755 2.221999
## 1965         NA   5.382306 1.683117 0.04357568   9.465148 2.247616
## 1966         NA   5.621138 1.726534 0.04341727   9.487610 2.249987
## 1967         NA   5.803822 1.758517 0.03198260   9.462171 2.247302
## 1968         NA   6.049770 1.800020 0.04150360  10.208549 2.323226
## 1969         NA   6.600865 1.887201 0.08718030  10.640883 2.364703
## 1970         NA   7.243008 1.980037 0.09283591  10.717443 2.371873
## 1971         NA   8.006361 2.080236 0.10019987  11.300100 2.424812
## 2019 -0.1973801 103.195618 4.636626 0.01507138 101.069295 4.615806
## 2020         NA 104.526938 4.649445 0.01281843  99.130931 4.596442
## 2021         NA 105.762470 4.661196 0.01175092 100.395352 4.609116
## 2022         NA         NA       NA         NA         NA       NA
##             Pm_dl       Px     Px_l         Px_dl        X       X_l
## 1960           NA 10.54782 2.355919            NA   2.4464 0.8946176
## 1961  0.010775835 10.53705 2.354897 -0.0010218893   2.8668 1.0531964
## 1962  0.005377191 10.73690 2.373687  0.0187891368   2.8373 1.0428529
## 1963  0.019032217 10.96088 2.394333  0.0206464427   3.1096 1.1344941
## 1964  0.012991885 11.47712 2.440356  0.0460225229   3.3635 1.2129821
## 1965  0.025617371 11.69427 2.459099  0.0187434375   3.6644 1.2986646
## 1966  0.002370400 11.91529 2.477823  0.0187236975   4.0543 1.3997780
## 1967 -0.002684887 11.98815 2.483919  0.0060958608   4.4730 1.4980593
## 1968  0.075923625 12.73734 2.544538  0.0606189937   4.8742 1.5839560
## 1969  0.041477916 13.51606 2.603879  0.0593413948   5.0996 1.6291621
## 1970  0.007169142 12.69232 2.540997 -0.0628818317   6.0577 1.8013302
## 1971  0.052939020 13.62175 2.611668  0.0706708616   6.3059 1.8414857
## 2019 -0.003975882 98.46855 4.589737  0.0001029559 447.1003 6.1027830
## 2020 -0.019364859 98.65581 4.591637  0.0018999505 379.1804 5.9380121
## 2021  0.012674401 99.63676 4.601531  0.0098940610 404.6709 6.0030741
## 2022           NA       NA       NA            NA       NA        NA
##             X_dl        M      M_l        M_dl      rulc     rulc_l
## 1960          NA   3.5063 1.254561          NA 0.7347892 -0.3081716
## 1961  0.15857887   3.9863 1.382863  0.12830213 0.7307503 -0.3136835
## 1962 -0.01034353   4.1997 1.435013  0.05214961 0.7347782 -0.3081866
## 1963  0.09164120   4.6444 1.535662  0.10064910 0.7272452 -0.3184916
## 1964  0.07848800   5.2450 1.657275  0.12161305 0.7336743 -0.3096900
## 1965  0.08568251   5.8227 1.761764  0.10448883 0.7252653 -0.3212178
## 1966  0.10111344   6.0272 1.796283  0.03451849 0.7531240 -0.2835254
## 1967  0.09828128   6.2526 1.832997  0.03671482 0.7362394 -0.3062000
## 1968  0.08589666   7.2321 1.978529  0.14553207 0.7238138 -0.3232212
## 1969  0.04520612   8.2044 2.104671  0.12614115 0.7207461 -0.3274684
## 1970  0.17216808   8.9089 2.187051  0.08238018 0.7399576 -0.3011623
## 1971  0.04015551   9.3241 2.232602  0.04555167 0.7400152 -0.3010845
## 2019  0.10486552 386.2086 5.956378  0.30458589 0.3351851 -1.0930722
## 2020 -0.16477087 279.1802 5.631857 -0.32452019 0.3393117 -1.0808362
## 2021  0.06506206 302.6049 5.712428  0.08057054 0.3277103 -1.1156253
## 2022          NA       NA       NA          NA        NA         NA
##             rulc_dl       ulc    ulc_l       ulc_dl       Tau    Tau_l
## 1960             NA  3.127417 1.140208           NA  29.31307 3.378033
## 1961 -0.00551193845  3.188726 1.159622  0.019414073  30.37510 3.413623
## 1962  0.00549692744  3.362780 1.212768  0.053146395  30.73296 3.425336
## 1963 -0.01030504192  3.417216 1.228826  0.016058354  31.51797 3.450558
## 1964  0.00880161713  3.780481 1.329851  0.101024817  31.97855 3.465066
## 1965 -0.01152778913  3.903599 1.361899  0.032047894  31.94601 3.464047
## 1966  0.03769240106  4.233414 1.443009  0.081109667  31.69146 3.456047
## 1967 -0.02267455981  4.273003 1.452317  0.009308041  33.00263 3.496587
## 1968 -0.01702118545  4.378907 1.476799  0.024482418  34.94022 3.553639
## 1969 -0.00424726479  4.757547 1.559732  0.082933040  36.03346 3.584448
## 1970  0.02630607988  5.359519 1.678874  0.119141989  36.40883 3.594811
## 1971  0.00007783404  5.924829 1.779152  0.100277700  36.86077 3.607148
## 2019 -0.00207032189 34.589638 3.543554  0.013001055 109.89111 4.699490
## 2020  0.01223599556 35.467209 3.568609  0.025054422 102.68295 4.631646
## 2021 -0.03478912332 34.659449 3.545570 -0.023038208 107.27505 4.675396
## 2022             NA        NA       NA           NA        NA       NA
##            Tau_dl       dPxdPm         dPdPm     Trade
## 1960           NA           NA            NA 0.2769045
## 1961  0.035589627 -0.011797724  0.0141501767 0.3035623
## 1962  0.011712482  0.013411946  0.0422722767 0.3019951
## 1963  0.025222152  0.001614226  0.0073311786 0.3176918
## 1964  0.014507777  0.033030638  0.0792313154 0.3398351
## 1965 -0.001018322 -0.006873934  0.0179583114 0.3674151
## 1966 -0.008000050  0.016353297  0.0410468654 0.3869775
## 1967  0.040540000  0.008780748  0.0346674885 0.3891826
## 1968  0.057051510 -0.015304632 -0.0344200223 0.4058268
## 1969  0.030809232  0.017863479  0.0457023887 0.4212726
## 1970  0.010363572 -0.070050973  0.0856667677 0.4616386
## 1971  0.012336515  0.017731841  0.0472608459 0.4659343
## 2019 -0.006896686  0.004078838  0.0190472595 2.4766710
## 2020 -0.067843903  0.021264809  0.0321832852 2.1256336
## 2021  0.043750006 -0.002780340 -0.0009234852 2.1525918
## 2022           NA           NA            NA        NA
IRL <- IRL_df[13:59,]
IRL[!complete.cases(IRL),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
IRL %>% head()
##             WS       WS_l        WS_dl        PS      PS_l       PS_dl
## 1972 0.7182570 -0.3309279 -0.043741673 0.2817430 -1.266760  0.12102357
## 1973 0.7139521 -0.3369394 -0.006011464 0.2860479 -1.251596  0.01516370
## 1974 0.7606794 -0.2735433  0.063396058 0.2393206 -1.429951 -0.17835508
## 1975 0.7461722 -0.2927989 -0.019255614 0.2538278 -1.371099  0.05885212
## 1976 0.7421914 -0.2981481 -0.005349164 0.2578086 -1.355538  0.01556113
## 1977 0.6813680 -0.3836528 -0.085504722 0.3186320 -1.143718  0.21181963
##            Y      Y_l       Y_dl            Yrw    Yrw_l        Yrw_dl
## 1972 35.7225 3.575781 0.06287802 15530551449638 30.37383  0.0552442249
## 1973 37.4092 3.621917 0.04613592 16513647538000 30.43521  0.0613780173
## 1974 39.0029 3.663636 0.04171934 16675329944786 30.44495  0.0097432159
## 1975 41.2091 3.718659 0.05502310 16670027327982 30.44463 -0.0003180423
## 1976 41.7654 3.732068 0.01340914 17506218406389 30.49358  0.0489438192
## 1977 45.1573 3.810152 0.07808370 18190139458975 30.53190  0.0383235040
##          Tax       Yf     Yf_l       Yf_dl       C      C_l        C_dl
## 1972 0.53593 35.18657 3.560664 0.061660034 21.7807 3.081024 0.050204801
## 1973 0.63898 36.77022 3.604688 0.044023803 23.3442 3.150349 0.069324303
## 1974 0.68798 38.31492 3.645839 0.041151098 23.7276 3.166639 0.016290368
## 1975 0.83499 40.37411 3.698189 0.052349361 23.9231 3.174845 0.008205592
## 1976 1.15240 40.61300 3.704088 0.005899474 24.5737 3.201677 0.026832246
## 1977 1.31402 43.84328 3.780621 0.076533245 26.2120 3.266217 0.064540556
##             W      W_l          W_dl         R      R_l        R_dl
## 1972 25.27300 3.229737  0.0179183609  9.913571 2.293905  0.18268360
## 1973 26.25218 3.267749  0.0380123383 10.518043 2.353092  0.05918751
## 1974 29.14537 3.372296  0.1045471560  9.169550 2.215888 -0.13720398
## 1975 30.12604 3.405390  0.0330937472 10.248073 2.327090  0.11120148
## 1976 30.14262 3.405940  0.0005503104 10.470380 2.348550  0.02146061
## 1977 29.87341 3.396969 -0.0089714769 13.969874 2.636903  0.28835287
##           It     It_l       It_dl Itcurr    Itcurr_l  Itcurr_dl    Ipr
## 1972  9.2745 2.227269  0.07527396 0.7915 -0.23382540 0.18960003 0.6520
## 1973 10.7736 2.377099  0.14983000 1.0194  0.01921422 0.25303962 0.8368
## 1974  9.5222 2.253626 -0.12347278 1.0995  0.09485553 0.07564131 0.8393
## 1975  9.1784 2.216853 -0.03677302 1.2877  0.25285768 0.15800215 0.9760
## 1976 10.1058 2.313110  0.09625662 1.6834  0.52081556 0.26795788 1.3674
## 1977 10.5859 2.359523  0.04641341 2.0568  0.72115138 0.20033582 1.6755
##            Ipr_l      Ipr_dl       Ips      Ips_l       Ips_dl        I
## 1972 -0.42771072 0.193115802 0.8237524 -0.1938853  0.003515768 7.639891
## 1973 -0.17817019 0.249540531 0.8208750 -0.1973844 -0.003499087 8.843779
## 1974 -0.17518707 0.002983118 0.7633470 -0.2700426 -0.072658194 7.268743
## 1975 -0.02429269 0.150894375 0.7579405 -0.2771504 -0.007107775 6.956681
## 1976  0.31291113 0.337203819 0.8122847 -0.2079044  0.069245943 8.208786
## 1977  0.51611163 0.203200502 0.8146149 -0.2050397  0.002864683 8.623432
##           I_l        I_dl          r       r_l        r_dl         P
## 1972 2.033383  0.07878973 -3.8057373 1.2018225 -0.58267670  9.078024
## 1973 2.179714  0.14633091 -3.9493973 1.1576713 -0.04415125 10.464472
## 1974 1.983583 -0.19613098  8.0427800 2.7196290  1.56195767 11.101508
## 1975 1.939703 -0.04388079 -5.1304257 0.6938895 -2.02573951 13.336614
## 1976 2.105205  0.16550256 -5.2959917 0.6075452 -0.08634423 16.139858
## 1977 2.154483  0.04927809 -0.3820517 1.9095216  1.30197640 18.290164
##           P_l       P_dl       Pm     Pm_l      Pm_dl       Px     Px_l
## 1972 2.205857 0.12562016 11.94886 2.480636 0.05582459 15.19382 2.720888
## 1973 2.347986 0.14212933 13.61133 2.610903 0.13026656 18.18425 2.900556
## 1974 2.407081 0.05909505 19.65152 2.978155 0.36725189 22.37231 3.107824
## 1975 2.590513 0.18343221 23.68721 3.164935 0.18678064 26.48239 3.276480
## 1976 2.781292 0.19077874 28.17744 3.338522 0.17358638 32.56438 3.483219
## 1977 2.906363 0.12507154 32.91204 3.493838 0.15531684 37.37491 3.621000
##          Px_dl      X      X_l        X_dl       M      M_l        M_dl
## 1972 0.1092205 6.5331 1.876882 0.035395860  9.7963 2.282005  0.04940232
## 1973 0.1796673 7.2462 1.980477 0.103595631 11.6608 2.456233  0.17422803
## 1974 0.2072684 7.2973 1.987504 0.007027223 11.3941 2.433096 -0.02313711
## 1975 0.1686557 7.8484 2.060310 0.072805273 10.2308 2.325403 -0.10769290
## 1976 0.2067391 8.4854 2.138347 0.078037350 11.7318 2.462303  0.13690033
## 1977 0.1377808 9.6760 2.269649 0.131301553 13.2881 2.586869  0.12456579
##           rulc     rulc_l      rulc_dl       ulc    ulc_l     ulc_dl
## 1972 0.7074812 -0.3460442 -0.044959655  6.422532 1.859812 0.08066050
## 1973 0.7017572 -0.3541677 -0.008123583  7.343519 1.993818 0.13400575
## 1974 0.7472616 -0.2913399  0.062827817  8.295731 2.115741 0.12192286
## 1975 0.7310530 -0.3132693 -0.021929356  9.749772 2.277244 0.16150285
## 1976 0.7217127 -0.3261281 -0.012858829 11.648341 2.455164 0.17791991
## 1977 0.6615410 -0.4131833 -0.087055181 12.099694 2.493180 0.03801636
##           Tau    Tau_l       Tau_dl      dPxdPm        dPdPm     Trade
## 1972 38.23783 3.643825  0.036677331  0.05339591  0.069795565 0.4571181
## 1973 38.61859 3.653734  0.009908417  0.04940073  0.011862770 0.5054104
## 1974 39.06983 3.665351  0.011616866 -0.15998352 -0.308156847 0.4792310
## 1975 40.62465 3.704375  0.039024405 -0.01812497 -0.003348434 0.4387186
## 1976 40.47610 3.700712 -0.003663418  0.03315273  0.017192356 0.4840658
## 1977 42.43055 3.747869  0.047157056 -0.01753602 -0.030245299 0.5085357

DATA

IRL %>% head(100)
##             WS       WS_l        WS_dl        PS       PS_l         PS_dl
## 1972 0.7182570 -0.3309279 -0.043741673 0.2817430 -1.2667598  0.1210235702
## 1973 0.7139521 -0.3369394 -0.006011464 0.2860479 -1.2515961  0.0151637034
## 1974 0.7606794 -0.2735433  0.063396058 0.2393206 -1.4299512 -0.1783550751
## 1975 0.7461722 -0.2927989 -0.019255614 0.2538278 -1.3710991  0.0588521181
## 1976 0.7421914 -0.2981481 -0.005349164 0.2578086 -1.3555379  0.0155611340
## 1977 0.6813680 -0.3836528 -0.085504722 0.3186320 -1.1437183  0.2118196287
## 1978 0.6637103 -0.4099095 -0.026256682 0.3362897 -1.0897824  0.0539359494
## 1979 0.6909596 -0.3696739  0.040235587 0.3090404 -1.1742833 -0.0845009648
## 1980 0.7324808 -0.3113181  0.058355793 0.2675192 -1.3185641 -0.1442807416
## 1981 0.7217473 -0.3260802 -0.014762125 0.2782527 -1.2792255  0.0393385530
## 1982 0.7072850 -0.3463215 -0.020241290 0.2927150 -1.2285560  0.0506695200
## 1983 0.7101315 -0.3423051  0.004016421 0.2898685 -1.2383279 -0.0097719552
## 1984 0.6916053 -0.3687399 -0.026434762 0.3083947 -1.1763748  0.0619531222
## 1985 0.6693957 -0.4013799 -0.032640070 0.3306043 -1.1068331  0.0695417722
## 1986 0.6700797 -0.4003587  0.001021270 0.3299203 -1.1089041 -0.0020710302
## 1987 0.6630087 -0.4109672 -0.010608543 0.3369913 -1.0876981  0.0212059901
## 1988 0.6540656 -0.4245477 -0.013580464 0.3459344 -1.0615060  0.0261920516
## 1989 0.6385455 -0.4485623 -0.024014665 0.3614545 -1.0176191  0.0438869073
## 1990 0.6313173 -0.4599467 -0.011384331 0.3686827 -0.9978189  0.0198001893
## 1991 0.6323599 -0.4582965  0.001650151 0.3676401 -1.0006509 -0.0028319910
## 1992 0.6492844 -0.4318844  0.026412114 0.3507156 -1.0477797 -0.0471287951
## 1993 0.6364046 -0.4519207 -0.020036308 0.3635954 -1.0117137  0.0360660755
## 1994 0.6327114 -0.4577409 -0.005820173 0.3672886 -1.0016074  0.0101062785
## 1995 0.6006430 -0.5097546 -0.052013712 0.3993570 -0.9178994  0.0837079397
## 1996 0.5877622 -0.5314329 -0.021678280 0.4122378 -0.8861549  0.0317445744
## 1997 0.5683736 -0.5649763 -0.033543400 0.4316264 -0.8401950  0.0459599022
## 1998 0.5680648 -0.5655198 -0.000543579 0.4319352 -0.8394796  0.0007153445
## 1999 0.5504852 -0.5969553 -0.031435406 0.4495148 -0.7995864  0.0398931717
## 2000 0.5313285 -0.6323749 -0.035419633 0.4686715 -0.7578531  0.0417333538
## 2001 0.5200959 -0.6537420 -0.021367114 0.4799041 -0.7341691  0.0236840372
## 2002 0.4971933 -0.6987764 -0.045034385 0.5028067 -0.6875495  0.0466195664
## 2003 0.5059779 -0.6812623  0.017514075 0.4940221 -0.7051750 -0.0176255147
## 2004 0.5166696 -0.6603516  0.020910665 0.4833304 -0.7270548 -0.0218798368
## 2005 0.5255007 -0.6434037  0.016947952 0.4744993 -0.7454952 -0.0184403672
## 2006 0.5334326 -0.6284226  0.014981110 0.4665674 -0.7623528 -0.0168575468
## 2007 0.5499762 -0.5978803  0.030542260 0.4500238 -0.7984547 -0.0361019961
## 2008 0.5876585 -0.5316093  0.066271043 0.4123415 -0.8859034 -0.0874486430
## 2009 0.5820377 -0.5412200 -0.009610733 0.4179623 -0.8723641  0.0135392901
## 2010 0.5526778 -0.5929800 -0.051760028 0.4473222 -0.8044762  0.0678879070
## 2011 0.5310253 -0.6329457 -0.039965641 0.4689747 -0.7572064  0.0472698168
## 2012 0.5206134 -0.6527475 -0.019801822 0.4793866 -0.7352480  0.0219584227
## 2013 0.5226868 -0.6487728  0.003974677 0.4773132 -0.7395824 -0.0043344659
## 2014 0.4991306 -0.6948875 -0.046114658 0.5008694 -0.6914099  0.0481725221
## 2015 0.3840374 -0.9570155 -0.262127970 0.6159626 -0.4845690  0.2068409412
## 2016 0.3947703 -0.9294513  0.027564152 0.6052297 -0.5021472 -0.0175782006
## 2017 0.3798765 -0.9679091 -0.038457839 0.6201235 -0.4778366  0.0243105689
## 2018 0.3653289 -1.0069573 -0.039048186 0.6346711 -0.4546483  0.0231882750
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1972  35.7225 3.575781  0.062878016 15530551449638 30.37383  0.0552442249
## 1973  37.4092 3.621917  0.046135921 16513647538000 30.43521  0.0613780173
## 1974  39.0029 3.663636  0.041719339 16675329944786 30.44495  0.0097432159
## 1975  41.2091 3.718659  0.055023103 16670027327982 30.44463 -0.0003180423
## 1976  41.7654 3.732068  0.013409140 17506218406389 30.49358  0.0489438192
## 1977  45.1573 3.810152  0.078083705 18190139458975 30.53190  0.0383235040
## 1978  48.3752 3.878987  0.068835336 18940281596010 30.57231  0.0404112961
## 1979  49.8519 3.909057  0.030069324 19732218924937 30.61327  0.0409618228
## 1980  51.3755 3.939161  0.030104795 20025742374621 30.62804  0.0147657864
## 1981  53.0737 3.971682  0.032520109 20435198251127 30.64828  0.0202402539
## 1982  54.2753 3.994069  0.022387730 20385029235845 30.64582 -0.0024580481
## 1983  54.1456 3.991677 -0.002392529 20958487199633 30.67356  0.0277429108
## 1984  56.4950 4.034152  0.042475424 21958144561420 30.72016  0.0465944401
## 1985  58.2462 4.064679  0.030526716 22775446989959 30.75670  0.0365449480
## 1986  58.4149 4.067571  0.002892140 23526848022914 30.78916  0.0324591688
## 1987  61.1389 4.113148  0.045577331 24364184068806 30.82414  0.0349719498
## 1988  63.7472 4.154925  0.041776937 25539549828052 30.87125  0.0471140364
## 1989  67.7070 4.215190  0.060264310 26527018153229 30.90918  0.0379355423
## 1990  72.8785 4.288794  0.073604099 27366863049101 30.94035  0.0311691372
## 1991  74.2848 4.307906  0.019112684 27792856466076 30.95580  0.0154461223
## 1992  76.7683 4.340792  0.032885440 28377910390162 30.97663  0.0208320133
## 1993  78.8354 4.367362  0.026570340 28754207176282 30.98981  0.0131730537
## 1994  83.3730 4.423325  0.055962381 29686054048035 31.02170  0.0318932818
## 1995  91.5485 4.516869  0.093544371 30568325707329 31.05099  0.0292869904
## 1996  98.3361 4.588391  0.071522316 31504811824829 31.08116  0.0301759252
## 1997 109.0585 4.691884  0.103493233 32579679449377 31.11471  0.0335484737
## 1998 118.5371 4.775226  0.083341556 33449170456174 31.14105  0.0263382225
## 1999 130.9877 4.875103  0.099877434 34536150522298 31.17303  0.0319796299
## 2000 143.3605 4.965362  0.090259011 35930482167401 31.21261  0.0395794040
## 2001 150.9277 5.016801  0.051438477 36458833640969 31.22720  0.0145977580
## 2002 159.8623 5.074313  0.057511905 37021275841123 31.24251  0.0153089915
## 2003 164.6905 5.104068  0.029755135 37864236049962 31.26503  0.0225142566
## 2004 175.7605 5.169122  0.065054318 39131032208304 31.29794  0.0329087881
## 2005 185.7786 5.224556  0.055433369 40280218850195 31.32688  0.0289446862
## 2006 195.1992 5.274021  0.049464933 41558964644866 31.35813  0.0312527526
## 2007 205.5921 5.325894  0.051873533 42727729546927 31.38587  0.0277348598
## 2008 196.3808 5.280056 -0.045838477 42894933942781 31.38977  0.0039056157
## 2009 186.4062 5.227928 -0.052127468 41459344219506 31.35573 -0.0340404394
## 2010 189.7801 5.245866  0.017937870 42714042811817 31.38555  0.0298144479
## 2011 190.4319 5.249295  0.003428617 43499132420833 31.40376  0.0182132559
## 2012 190.8617 5.251549  0.002254432 44082849119884 31.41709  0.0133298044
## 2013 193.4415 5.264975  0.013426059 44740960455468 31.43191  0.0148186254
## 2014 209.9937 5.347078  0.082102389 45676609173785 31.45261  0.0206969093
## 2015 262.8334 5.571520  0.224442841 46774524563837 31.47636  0.0237523752
## 2016 272.4999 5.607638  0.036117876 47593183627919 31.49371  0.0173508421
## 2017 294.6959 5.685944  0.078305730 48690345662631 31.51650  0.0227912195
## 2018 318.7721 5.764476  0.078532450 49794722996569 31.53893  0.0224282451
##           Tax        Yf     Yf_l         Yf_dl       C      C_l
## 1972  0.53593  35.18657 3.560664  0.0616600340 21.7807 3.081024
## 1973  0.63898  36.77022 3.604688  0.0440238027 23.3442 3.150349
## 1974  0.68798  38.31492 3.645839  0.0411510980 23.7276 3.166639
## 1975  0.83499  40.37411 3.698189  0.0523493615 23.9231 3.174845
## 1976  1.15240  40.61300 3.704088  0.0058994744 24.5737 3.201677
## 1977  1.31402  43.84328 3.780621  0.0765332450 26.2120 3.266217
## 1978  1.44409  46.93111 3.848681  0.0680593244 28.5470 3.351552
## 1979  1.59020  48.26170 3.876638  0.0279575037 29.7983 3.394451
## 1980  2.03148  49.34402 3.898817  0.0221782978 29.9280 3.398794
## 1981  2.56081  50.51289 3.922229  0.0234119680 30.4346 3.415580
## 1982  3.13307  51.14223 3.934611  0.0123820235 28.3310 3.343957
## 1983  3.61302  50.53258 3.922618 -0.0119922979 28.5699 3.352354
## 1984  4.02559  52.46941 3.960230  0.0376120563 29.1473 3.372362
## 1985  4.22742  54.01878 3.989332  0.0291014308 30.4856 3.417254
## 1986  4.49325  53.92165 3.987532 -0.0017996969 31.3575 3.445453
## 1987  4.74822  56.39068 4.032304  0.0447718296 32.4001 3.478162
## 1988  5.12706  58.62014 4.071078  0.0387744269 33.8384 3.521596
## 1989  5.65924  62.04776 4.127904  0.0568260875 35.8410 3.579092
## 1990  5.74832  67.13018 4.206634  0.0787293082 36.0620 3.585240
## 1991  5.83951  68.44529 4.226035  0.0194010207 36.7129 3.603128
## 1992  6.17560  70.59270 4.256927  0.0308919997 37.7727 3.631587
## 1993  6.33340  72.50200 4.283614  0.0266874080 38.8703 3.660230
## 1994  7.21665  76.15635 4.332788  0.0491743162 40.5666 3.702945
## 1995  7.90522  83.64328 4.426561  0.0937726256 41.9648 3.736831
## 1996  8.70487  89.63123 4.495704  0.0691427189 44.9442 3.805422
## 1997  9.75691  99.30159 4.598162  0.1024577746 47.8410 3.867883
## 1998 11.08244 107.45466 4.677069  0.0789074081 51.5692 3.942925
## 1999 12.40273 118.58497 4.775630  0.0985607589 56.4287 4.032978
## 2000 14.26096 129.09954 4.860584  0.0849539847 62.3878 4.133370
## 2001 14.76928 136.15842 4.913819  0.0532353260 65.2780 4.178655
## 2002 16.31423 143.54807 4.966670  0.0528509009 67.7061 4.215176
## 2003 17.80320 146.88730 4.989666  0.0229956644 69.6547 4.243550
## 2004 19.87457 155.88593 5.049125  0.0594588958 72.1848 4.279229
## 2005 22.56837 163.21023 5.095039  0.0459146026 77.2801 4.347436
## 2006 25.33755 169.86165 5.134984  0.0399451578 82.4514 4.412209
## 2007 26.12697 179.46513 5.189981  0.0549966450 87.9062 4.476270
## 2008 22.80387 173.57693 5.156621 -0.0333600255 88.1379 4.478903
## 2009 18.57748 167.82872 5.122944 -0.0336769662 83.6417 4.426542
## 2010 18.30529 171.47481 5.144436  0.0214924398 84.0162 4.431010
## 2011 18.03402 172.39788 5.149805  0.0053686858 82.6525 4.414645
## 2012 18.61387 172.24783 5.148934 -0.0008707493 81.9245 4.405798
## 2013 19.55729 173.88421 5.158390  0.0094553061 82.1817 4.408933
## 2014 21.48740 188.50630 5.239131  0.0807418102 84.2476 4.433760
## 2015 22.90754 239.92586 5.480330  0.2411985309 86.8442 4.464116
## 2016 24.11070 248.38920 5.514997  0.0346669119 91.5147 4.516500
## 2017 25.11370 269.58220 5.596873  0.0818764823 94.3150 4.546640
## 2018 25.69613 293.07597 5.680432  0.0835585056 97.5178 4.580035
##              C_dl         W      W_l          W_dl          R      R_l
## 1972  0.050204801  25.27300 3.229737  0.0179183609   9.913571 2.293905
## 1973  0.069324303  26.25218 3.267749  0.0380123383  10.518043 2.353092
## 1974  0.016290368  29.14537 3.372296  0.1045471560   9.169550 2.215888
## 1975  0.008205592  30.12604 3.405390  0.0330937472  10.248073 2.327090
## 1976  0.026832246  30.14262 3.405940  0.0005503104  10.470380 2.348550
## 1977  0.064540556  29.87341 3.396969 -0.0089714769  13.969874 2.636903
## 1978  0.085334531  31.14866 3.438771  0.0418026422  15.782448 2.758898
## 1979  0.042899493  33.34689 3.506964  0.0681930906  14.914814 2.702355
## 1980  0.004343152  36.14355 3.587498  0.0805340911  13.200471 2.580253
## 1981  0.016785622  36.45754 3.596148  0.0086498425  14.055349 2.643003
## 1982 -0.071623508  36.17213 3.588289 -0.0078592664  14.970096 2.706055
## 1983  0.008397105  35.88478 3.580313 -0.0079758769  14.647803 2.684290
## 1984  0.020008568  36.28812 3.591490  0.0111772939  16.181288 2.783856
## 1985  0.044892157  36.15994 3.587952 -0.0035386392  17.858842 2.882499
## 1986  0.028199032  36.13180 3.587173 -0.0007784268  17.789849 2.878628
## 1987  0.032708036  37.38751 3.621337  0.0341632869  19.003170 2.944606
## 1988  0.043434743  38.34142 3.646531  0.0251939633  20.278725 3.009572
## 1989  0.057496237  39.62032 3.679342  0.0328114228  22.427442 3.110285
## 1990  0.006147190  42.38045 3.746687  0.0673449777  24.749735 3.208815
## 1991  0.017888513  43.28206 3.767738  0.0210511718  25.163230 3.225384
## 1992  0.028458428  45.83474 3.825042  0.0573041140  24.757959 3.209147
## 1993  0.028643843  46.14061 3.831693  0.0066511002  26.361391 3.271900
## 1994  0.042714605  48.18499 3.875048  0.0433541433  27.971359 3.331181
## 1995  0.033886104  50.23975 3.916806  0.0417589134  33.403532 3.508662
## 1996  0.068590549  52.68185 3.964271  0.0474644394  36.949383 3.609549
## 1997  0.062461292  56.44041 4.033185  0.0689143748  42.861184 3.757967
## 1998  0.075041583  61.04121 4.111549  0.0783638292  46.413454 3.837589
## 1999  0.090053299  65.27927 4.178674  0.0671253530  53.305702 3.976043
## 2000  0.100391849  68.59426 4.228209  0.0495343520  60.505281 4.102731
## 2001  0.045285329  70.81544 4.260077  0.0318682121  65.342980 4.179650
## 2002  0.036521206  71.37114 4.267894  0.0078165158  72.176931 4.279120
## 2003  0.028373899  74.32173 4.308403  0.0405097390  72.565574 4.284491
## 2004  0.035679319  80.54152 4.388773  0.0803695606  75.344406 4.322070
## 2005  0.068206986  85.76710 4.451635  0.0628625543  77.443135 4.349544
## 2006  0.064772545  90.60974 4.506562  0.0549262680  79.251911 4.372632
## 2007  0.064061308  98.70155 4.592101  0.0855389052  80.763585 4.391526
## 2008  0.002632296 102.00396 4.625012  0.0329110177  71.572972 4.270718
## 2009 -0.052360434  97.68265 4.581724 -0.0432876995  70.146074 4.250580
## 2010  0.004467438  94.77032 4.551456 -0.0302675887  76.704485 4.339960
## 2011 -0.016364566  91.54763 4.516859 -0.0345969547  80.850251 4.392599
## 2012 -0.008846980  89.67453 4.496187 -0.0206725717  82.573298 4.413686
## 2013  0.003134558  90.88698 4.509617  0.0134299831  82.997227 4.418807
## 2014  0.024827433  94.08926 4.544244  0.0346271520  94.417037 4.547722
## 2015  0.030355626  92.14049 4.523315 -0.0209294388 147.785368 4.995761
## 2016  0.052383906  98.05667 4.585546  0.0622310635 150.332531 5.012850
## 2017  0.030140629 102.40794 4.628964  0.0434186434 167.174264 5.119037
## 2018  0.033394682 107.06911 4.673475  0.0445103194 186.006859 5.225784
##              R_dl      It     It_l         It_dl  Itcurr    Itcurr_l
## 1972  0.182683604  9.2745 2.227269  0.0752739643  0.7915 -0.23382540
## 1973  0.059187506 10.7736 2.377099  0.1498299985  1.0194  0.01921422
## 1974 -0.137203977  9.5222 2.253626 -0.1234727826  1.0995  0.09485553
## 1975  0.111201480  9.1784 2.216853 -0.0367730170  1.2877  0.25285768
## 1976  0.021460608 10.1058 2.313110  0.0962566189  1.6834  0.52081556
## 1977  0.288352874 10.5859 2.359523  0.0464134105  2.0568  0.72115138
## 1978  0.121995274 12.5216 2.527455  0.1679322261  2.7090  0.99657956
## 1979 -0.056543461 14.3341 2.662641  0.1351861609  3.5346  1.26260014
## 1980 -0.122102444 13.7992 2.624611 -0.0380306945  3.9541  1.37475302
## 1981  0.062750521 14.8093 2.695255  0.0706447423  4.8734  1.58379185
## 1982  0.063051543 14.3112 2.661042 -0.0342129143  5.1361  1.63629404
## 1983 -0.021764253 13.0223 2.566663 -0.0943791750  4.9665  1.60271537
## 1984  0.099565178 12.6761 2.539718 -0.0269449418  5.0993  1.62910328
## 1985  0.098643203 11.6933 2.459016 -0.0807023025  4.9121  1.59170155
## 1986 -0.003870727 11.6889 2.458640 -0.0003763547  5.0267  1.61476371
## 1987  0.065977820 11.4176 2.435156 -0.0234836490  5.0228  1.61398755
## 1988  0.064966478 11.2355 2.419078 -0.0160776161  5.1892  1.64657954
## 1989  0.100712995 12.9875 2.563987  0.1449089480  6.2303  1.82942449
## 1990  0.098529498 14.5618 2.678402  0.1144143051  7.3166  1.99014574
## 1991  0.016569030 13.5448 2.606003 -0.0723989517  6.9507  1.93884237
## 1992 -0.016236795 13.5412 2.605737 -0.0002658200  7.2652  1.98309583
## 1993  0.062753483 12.8529 2.553569 -0.0521674230  7.2141  1.97603744
## 1994  0.059280595 14.3744 2.665449  0.1118793799  8.2822  2.11410863
## 1995  0.177480565 16.5432 2.805975  0.1405262946  9.8958  2.29211042
## 1996  0.100887293 19.2607 2.958067  0.1520916092 11.9208  2.47828477
## 1997  0.148417677 22.3049 3.104806  0.1467396348 14.6064  2.68145979
## 1998  0.079622753 25.3028 3.230915  0.1261086763 18.1176  2.89688384
## 1999  0.138453931 28.8642 3.362602  0.1316870114 22.4181  3.10986867
## 2000  0.126687338 30.3225 3.411890  0.0492879383 25.7590  3.24878408
## 2001  0.076919363 32.0879 3.468479  0.0565890008 29.2237  3.37498002
## 2002  0.099470467 33.8706 3.522547  0.0540683694 32.0861  3.46842291
## 2003  0.005370150 36.5718 3.599277  0.0767300702 36.2648  3.59084757
## 2004  0.037579059 40.1404 3.692383  0.0931058568 42.1124  3.74034223
## 2005  0.027474235 46.8991 3.847998  0.1556151771 50.8007  3.92791013
## 2006  0.023087611 50.2812 3.917631  0.0696327643 57.2994  4.04829015
## 2007  0.018894649 50.2967 3.917939  0.0003082188 56.5729  4.03553007
## 2008 -0.120808668 44.4714 3.794846 -0.1230931827 46.5251  3.83999195
## 2009 -0.020137676 36.9433 3.609384 -0.1854619811 35.8757  3.58006019
## 2010  0.089380347 31.3906 3.446508 -0.1628758198 29.4225  3.38175969
## 2011  0.052638503 31.0483 3.435544 -0.0109644286 28.3602  3.34498675
## 2012  0.021087673 36.4067 3.594753  0.1592087672 34.3371  3.53622640
## 2013  0.005120840 34.8988 3.552452 -0.0423003790 33.3423  3.50682686
## 2014  0.128914332 41.3650 3.722435  0.1699826680 40.2079  3.69406349
## 2015  0.448039472 63.2355 4.146866  0.4244307397 63.2355  4.14686585
## 2016  0.017088711 95.2152 4.556140  0.4092737406 96.8051  4.57269968
## 2017  0.106187051 88.8269 4.486690 -0.0694500609 93.2604  4.53539558
## 2018  0.106746781 70.0514 4.249229 -0.2374602737 75.8145  4.32828957
##          Itcurr_dl     Ipr       Ipr_l       Ipr_dl       Ips       Ips_l
## 1972  0.1896000338  0.6520 -0.42771072  0.193115802 0.8237524 -0.19388532
## 1973  0.2530396186  0.8368 -0.17817019  0.249540531 0.8208750 -0.19738440
## 1974  0.0756413121  0.8393 -0.17518707  0.002983118 0.7633470 -0.27004260
## 1975  0.1580021503  0.9760 -0.02429269  0.150894375 0.7579405 -0.27715037
## 1976  0.2679578765  1.3674  0.31291113  0.337203819 0.8122847 -0.20790443
## 1977  0.2003358192  1.6755  0.51611163  0.203200502 0.8146149 -0.20503975
## 1978  0.2754281861  2.2406  0.80674369  0.290632059 0.8270949 -0.18983588
## 1979  0.2660205757  2.9221  1.07230254  0.265558849 0.8267131 -0.19029760
## 1980  0.1121528765  3.1481  1.14679910  0.074496560 0.7961609 -0.22795392
## 1981  0.2090388302  3.9305  1.36876664  0.221967548 0.8065211 -0.21502520
## 1982  0.0525021912  4.1112  1.41371496  0.044948312 0.8004517 -0.22257908
## 1983 -0.0335786699  3.9614  1.37659750 -0.037117459 0.7976241 -0.22611787
## 1984  0.0263879087  4.1343  1.41931803  0.042720529 0.8107583 -0.20978525
## 1985 -0.0374017265  3.8659  1.35219451 -0.067123514 0.7870157 -0.23950704
## 1986  0.0230621562  4.0199  1.39125703  0.039062513 0.7997096 -0.22350668
## 1987 -0.0007761581  4.2218  1.44026158  0.049004551 0.8405272 -0.17372597
## 1988  0.0325919956  4.6112  1.52848813  0.088226549 0.8886148 -0.11809142
## 1989  0.1828449430  5.5939  1.72167672  0.193188592 0.8978540 -0.10774777
## 1990  0.1607212535  6.5114  1.87355449  0.151877769 0.8899489 -0.11659125
## 1991 -0.0513033653  6.0761  1.80436304 -0.069191444 0.8741709 -0.13447933
## 1992  0.0442534520  6.3780  1.85285457  0.048491526 0.8778836 -0.13024126
## 1993 -0.0070583816  6.1747  1.82046030 -0.032394270 0.8559210 -0.15557715
## 1994  0.1380711893  7.1321  1.96460572  0.144145423 0.8611359 -0.14950291
## 1995  0.1780017911  8.6096  2.15287786  0.188272139 0.8700257 -0.13923256
## 1996  0.1861743488 10.4318  2.34485883  0.191980973 0.8750923 -0.13342594
## 1997  0.2031750153 12.8262  2.55148995  0.206631121 0.8781219 -0.12996983
## 1998  0.2154240527 15.9254  2.76791532  0.216425365 0.8790016 -0.12896852
## 1999  0.2129848268 19.5267  2.97178276  0.203867441 0.8710239 -0.13808591
## 2000  0.1389154123 21.9592  3.08918619  0.117403426 0.8524865 -0.15959789
## 2001  0.1261959433 24.0714  3.18102441  0.091838228 0.8236945 -0.19395561
## 2002  0.0934428906 26.3449  3.27127471  0.090250294 0.8210689 -0.19714821
## 2003  0.1224246593 30.9132  3.43118328  0.159908569 0.8524299 -0.15966430
## 2004  0.1494946603 36.6060  3.60021216  0.169028884 0.8692452 -0.14013007
## 2005  0.1875678999 44.7769  3.80169238  0.201480220 0.8814229 -0.12621775
## 2006  0.1203800184 50.2718  3.91744428  0.115751902 0.8773530 -0.13084587
## 2007 -0.0127600805 47.3669  3.85792367 -0.059520611 0.8372719 -0.17760640
## 2008 -0.1955381201 36.6479  3.60135613 -0.256567545 0.7877017 -0.23863582
## 2009 -0.2599317658 29.4679  3.38330154 -0.218054593 0.8213889 -0.19675865
## 2010 -0.1983004983 23.7305  3.16676114 -0.216540395 0.8065426 -0.21499855
## 2011 -0.0367729339 24.1214  3.18309941  0.016338273 0.8505370 -0.16188734
## 2012  0.1912396485 30.7688  3.42650119  0.243401776 0.8960803 -0.10972521
## 2013 -0.0293995411 29.7290  3.39212300 -0.034378189 0.8916302 -0.11470386
## 2014  0.1872366326 35.9287  3.58153642  0.189413419 0.8935732 -0.11252707
## 2015  0.4528023586 58.5554  4.06997331  0.488436896 0.9259894 -0.07689254
## 2016  0.4258338265 91.6083  4.51752188  0.447548564 0.9463169 -0.05517780
## 2017 -0.0373040984 87.9886  4.47720726 -0.040314618 0.9434723 -0.05818832
## 2018 -0.2071060132 69.4821  4.24106917 -0.236138095 0.9164751 -0.08722040
##             Ips_dl         I      I_l         I_dl          r       r_l
## 1972  0.0035157681  7.639891 2.033383  0.078789732 -3.8057373 1.2018225
## 1973 -0.0034990872  8.843779 2.179714  0.146330911 -3.9493973 1.1576713
## 1974 -0.0726581943  7.268743 1.983583 -0.196130977  8.0427800 2.7196290
## 1975 -0.0071077750  6.956681 1.939703 -0.043880792 -5.1304257 0.6938895
## 1976  0.0692459426  8.208786 2.105205  0.165502562 -5.2959917 0.6075452
## 1977  0.0028646825  8.623432 2.154483  0.049278093 -0.3820517 1.9095216
## 1978  0.0152038728 10.356551 2.337619  0.183136099  1.9390433 2.2050775
## 1979 -0.0004617269 11.850188 2.472344  0.134724434  1.1157030 2.1099239
## 1980 -0.0376563161 10.986384 2.396657 -0.075687011  0.5135055 2.0341063
## 1981  0.0129287178 11.944013 2.480230  0.083573460 -0.1953599 1.9368047
## 1982 -0.0075538787 11.455424 2.438463 -0.041766793  1.5323022 2.1592011
## 1983 -0.0035387886 10.386900 2.340545 -0.097917964  2.7516320 2.2908710
## 1984  0.0163326207 10.277254 2.329933 -0.010612321  7.7472752 2.6999633
## 1985 -0.0297217872  9.202811 2.219509 -0.110424090  7.0267225 2.6503246
## 1986  0.0160003565  9.347725 2.235133  0.015624002  5.0558134 2.5004292
## 1987  0.0497807087  9.596803 2.261430  0.026297060  8.9057986 2.7749428
## 1988  0.0556345539  9.984032 2.300987  0.039556938  5.0821019 2.5025839
## 1989  0.0103436485 11.660879 2.456240  0.155252596  3.6357093 2.3765435
## 1990 -0.0088434849 12.959258 2.561810  0.105570820 10.4657324 2.8677650
## 1991 -0.0178880788 11.840471 2.471523 -0.090287030  7.2775159 2.6678826
## 1992  0.0042380738 11.887598 2.475496  0.003972254  6.0865910 2.5816175
## 1993 -0.0253358887 11.001068 2.397992 -0.077503312  2.4000391 2.2546493
## 1994  0.0060742336 12.378312 2.515946  0.117953613  6.1217352 2.5842727
## 1995  0.0102703474 14.393009 2.666743  0.150796642  5.2267408 2.5143564
## 1996  0.0058066247 16.854890 2.824641  0.157898234  4.9208313 2.4892922
## 1997  0.0034561054 19.586422 2.974837  0.150195740  2.3215347 2.2463793
## 1998  0.0010013123 22.241203 3.101947  0.127109989 -1.6207926 1.7067675
## 1999 -0.0091173859 25.141407 3.224516  0.122569625  0.3364148 2.0106708
## 2000 -0.0215119860 25.849522 3.252292  0.027775952 -1.3028400 1.7628576
## 2001 -0.0343577156 26.430626 3.274523  0.022231285 -1.7555062 1.6820199
## 2002 -0.0031925966 27.810098 3.325399  0.050875773 -0.2272641 1.9321946
## 2003  0.0374839100 31.174896 3.439613  0.114213980  0.2022291 1.9925401
## 2004  0.0195342239 34.891849 3.552253  0.112640081  3.5439418 2.3679844
## 2005  0.0139123202 41.337940 3.721781  0.169527497  0.2072641 1.9932264
## 2006 -0.0046281162 44.114361 3.786785  0.065004648  0.2955757 2.0051875
## 2007 -0.0467605307 42.112014 3.740333 -0.046452312  3.0623360 2.3218235
## 2008 -0.0610294246 35.030197 3.556210 -0.184122607  4.8626739 2.4844553
## 2009  0.0418771732 30.344815 3.412626 -0.143584808 10.2603054 2.8560228
## 2010 -0.0182398964 25.317857 3.231510 -0.181115716  9.1738649 2.7915194
## 2011  0.0531112066 26.407729 3.273657  0.042146778  7.9840790 2.7157531
## 2012  0.0521621278 32.623328 3.485028  0.211370895  3.8036199 2.3920172
## 2013 -0.0049786480 31.116822 3.437749 -0.047279027  2.5313861 2.2683349
## 2014  0.0021767860 36.962653 3.609908  0.172159454  2.4835572 2.2633731
## 2015  0.0356345371 58.555400 4.069973  0.460065277 -6.1319108 0.0000000
## 2016  0.0217147377 90.103751 4.500962  0.430988478  1.0426906 2.1010320
## 2017 -0.0030105199 83.805716 4.428501 -0.072460581 -0.3255392 1.9178592
## 2018 -0.0290320820 64.200362 4.162009 -0.266492356  0.1299882 1.9826414
##              r_dl          P      P_l         P_dl        Pm     Pm_l
## 1972 -0.582676700   9.078024 2.205857  0.125620158  11.94886 2.480636
## 1973 -0.044151251  10.464472 2.347986  0.142129332  13.61133 2.610903
## 1974  1.561957668  11.101508 2.407081  0.059095046  19.65152 2.978155
## 1975 -2.025739506  13.336614 2.590513  0.183432211  23.68721 3.164935
## 1976 -0.086344227  16.139858 2.781292  0.190778736  28.17744 3.338522
## 1977  1.301976403  18.290164 2.906363  0.125071540  32.91204 3.493838
## 1978  0.295555821  20.246041 3.007959  0.101595864  34.46758 3.540019
## 1979 -0.095153529  23.040061 3.137234  0.129275204  39.19329 3.668506
## 1980 -0.075817630  26.440935 3.274913  0.137678882  46.25051 3.834072
## 1981 -0.097301629  31.062680 3.436007  0.161093731  54.85460 4.004686
## 1982  0.222396431  35.791791 3.577719  0.141711466  58.96791 4.076993
## 1983  0.131669937  39.671653 3.680637  0.102918334  62.03581 4.127712
## 1984  0.409092293  42.202133 3.742471  0.061833869  67.89031 4.217893
## 1985 -0.049638758  44.427357 3.793855  0.051384645  69.65297 4.243525
## 1986 -0.149895333  46.983400 3.849794  0.055938933  62.59891 4.136748
## 1987  0.274513555  48.016290 3.871540  0.021745982  63.42731 4.149895
## 1988 -0.272358912  49.642039 3.904838  0.033297697  67.47922 4.211820
## 1989 -0.126040383  52.182821 3.954753  0.049915316  71.64029 4.271658
## 1990  0.491221492  52.000605 3.951255 -0.003497984  68.99909 4.234093
## 1991 -0.199882360  52.937338 3.969109  0.017853549  70.66278 4.257919
## 1992 -0.086265125  54.426063 3.996843  0.027734223  69.79500 4.245562
## 1993 -0.326968196  57.243015 4.047306  0.050462488  72.96738 4.290012
## 1994  0.329623381  58.213015 4.064109  0.016803332  74.70832 4.313591
## 1995 -0.069916332  59.885527 4.092435  0.028325908  77.51707 4.350498
## 1996 -0.025064158  61.237775 4.114764  0.022329370  77.11580 4.345308
## 1997 -0.242912916  63.612837 4.152815  0.038051051  77.69447 4.352784
## 1998 -0.539611736  67.764576 4.216040  0.063224297  79.45164 4.375149
## 1999  0.303903281  70.718380 4.258706  0.042665936  81.35096 4.398773
## 2000 -0.247813219  75.599909 4.325455  0.066749563  85.78545 4.451849
## 2001 -0.080837744  80.806019 4.392051  0.066596377  84.34660 4.434935
## 2002  0.250174759  85.047684 4.443212  0.051160625  82.08408 4.407744
## 2003  0.060345525  88.381420 4.481662  0.038449684  80.72848 4.391091
## 2004  0.375444280  88.838980 4.486826  0.005163753  85.57871 4.449436
## 2005 -0.374758000  91.607449 4.517513  0.030687068  85.91797 4.453393
## 2006  0.011961086  94.771766 4.551472  0.033958956  88.25766 4.480260
## 2007  0.316636011  95.919066 4.563505  0.012033226  87.92063 4.476434
## 2008  0.162631751  95.614765 4.560327 -0.003177515  89.67566 4.496199
## 2009  0.371567488  91.252620 4.513632 -0.046695553  87.29816 4.469329
## 2010 -0.064503379  88.382435 4.481673 -0.031958450  92.83246 4.530796
## 2011 -0.075766272  89.705028 4.496527  0.014853575  90.53357 4.505721
## 2012 -0.323735926  91.750007 4.519068  0.022540739  95.95964 4.563928
## 2013 -0.123682301  92.876275 4.531268  0.012200670  95.00595 4.553940
## 2014 -0.004961832  92.773364 4.530160 -0.001108667  97.42550 4.579088
## 2015 -2.263373052 100.000000 4.605170  0.075010619 100.00000 4.605170
## 2016  2.101031957  99.700433 4.602170 -0.003000166  98.58990 4.590969
## 2017 -0.183172784 100.826265 4.613399  0.011228871 100.28439 4.608010
## 2018  0.064782191 101.651979 4.621555  0.008156121 101.47193 4.619782
##             Pm_dl        Px     Px_l         Px_dl        X      X_l
## 1972  0.055824594  15.19382 2.720888  0.1092205000   6.5331 1.876882
## 1973  0.130266562  18.18425 2.900556  0.1796672888   7.2462 1.980477
## 1974  0.367251893  22.37231 3.107824  0.2072683750   7.2973 1.987504
## 1975  0.186780645  26.48239 3.276480  0.1686556714   7.8484 2.060310
## 1976  0.173586380  32.56438 3.483219  0.2067391129   8.4854 2.138347
## 1977  0.155316839  37.37491 3.621000  0.1377808217   9.6760 2.269649
## 1978  0.046180635  39.85268 3.685190  0.0641898064  10.8681 2.385832
## 1979  0.128486478  43.67269 3.776723  0.0915334975  11.5710 2.448502
## 1980  0.165566864  48.38959 3.879285  0.1025616687  12.3063 2.510111
## 1981  0.170613582  56.31296 4.030925  0.1516399378  12.5467 2.529458
## 1982  0.072307264  62.38811 4.133375  0.1024500318  13.2380 2.583091
## 1983  0.050718471  68.05888 4.220373  0.0869985021  14.6217 2.682507
## 1984  0.090181481  73.57477 4.298302  0.0779290203  17.0474 2.835998
## 1985  0.025632072  75.87512 4.329089  0.0307865763  18.1690 2.899717
## 1986 -0.106777427  71.10748 4.264193 -0.0648961926  18.7353 2.930409
## 1987  0.013146623  71.43287 4.268758  0.0045656061  21.3058 3.058979
## 1988  0.061925219  75.46551 4.323676  0.0549174846  23.1928 3.143842
## 1989  0.059837927  80.96849 4.394060  0.0703844276  25.5846 3.241991
## 1990 -0.037564369  74.43850 4.309973 -0.0840868081  27.8181 3.325687
## 1991  0.023825733  74.24412 4.307359 -0.0026146931  29.4045 3.381148
## 1992 -0.012356650  72.78330 4.287487 -0.0198720270  33.4882 3.511193
## 1993  0.044450081  77.74877 4.353483  0.0659961361  36.7362 3.603763
## 1994  0.023578976  77.89032 4.355302  0.0018189151  42.2957 3.744685
## 1995  0.036906755  79.35166 4.373889  0.0185877866  50.7344 3.926604
## 1996 -0.005190022  78.99290 4.369358 -0.0045314725  57.0365 4.043691
## 1997  0.007475858  79.83411 4.379951  0.0105929147  67.0455 4.205371
## 1998  0.022364503  82.39692 4.411548  0.0315972605  82.3120 4.410517
## 1999  0.023624106  84.18866 4.433060  0.0215120933  95.2941 4.556968
## 2000  0.053076721  88.67673 4.484998  0.0519373157 115.4848 4.749139
## 2001 -0.016914844  88.30083 4.480749 -0.0042480592 131.6620 4.880238
## 2002 -0.027190476  87.74585 4.474445 -0.0063048965 140.1883 4.942987
## 2003 -0.016652673  85.39784 4.447321 -0.0271237016 137.8081 4.925862
## 2004  0.058345113  85.66515 4.450446  0.0031252699 146.7938 4.989029
## 2005  0.003956492  87.47279 4.471328  0.0208816500 154.8379 5.042379
## 2006  0.026867501  89.00199 4.488659  0.0173309339 164.2075 5.101131
## 2007 -0.003826022  89.08438 4.489584  0.0009252848 178.8244 5.186404
## 2008  0.019764911  91.81447 4.519770  0.0301858730 172.0229 5.147628
## 2009 -0.026870052  88.09948 4.478467 -0.0413032780 180.0194 5.193065
## 2010  0.061467003  90.54598 4.505858  0.0273912069 190.8385 5.251428
## 2011 -0.025075634  90.03119 4.500156 -0.0057016220 196.9352 5.282875
## 2012  0.058206984  93.74756 4.540606  0.0404495044 195.2187 5.274120
## 2013 -0.009988181  92.69289 4.529292 -0.0113139703 200.9262 5.302938
## 2014  0.025148499  93.11677 4.533854  0.0045625287 230.1945 5.438925
## 2015  0.026082185 100.00000 4.605170  0.0713159406 320.5649 5.770085
## 2016 -0.014201331  98.33439 4.588374 -0.0167963574 333.7951 5.810527
## 2017  0.017041212  98.62708 4.591346  0.0029720646 364.6614 5.898969
## 2018  0.011772189  98.45841 4.589634 -0.0017116688 402.5895 5.997917
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1972  0.035395860   9.7963 2.282005  0.049402317 0.7074812 -0.3460442
## 1973  0.103595631  11.6608 2.456233  0.174228026 0.7017572 -0.3541677
## 1974  0.007027223  11.3941 2.433096 -0.023137112 0.7472616 -0.2913399
## 1975  0.072805273  10.2308 2.325403 -0.107692899 0.7310530 -0.3132693
## 1976  0.078037350  11.7318 2.462303  0.136900325 0.7217127 -0.3261281
## 1977  0.131301553  13.2881 2.586869  0.124565794 0.6615410 -0.4131833
## 1978  0.116183300  15.3753 2.732762  0.145893428 0.6438973 -0.4402160
## 1979  0.062670075  17.5065 2.862572  0.129809915 0.6689191 -0.4020922
## 1980  0.061609358  16.7192 2.816558 -0.046014481 0.7035172 -0.3516629
## 1981  0.019346356  17.0052 2.833519  0.016961420 0.6869229 -0.3755332
## 1982  0.053633799  16.4798 2.802135 -0.031383791 0.6664566 -0.4057802
## 1983  0.099415245  17.2488 2.847743  0.045607187 0.6627460 -0.4113635
## 1984  0.153490973  18.9484 2.941719  0.093976919 0.6423245 -0.4426617
## 1985  0.063719146  19.5631 2.973645  0.031925644 0.6208120 -0.4767270
## 1986  0.030692600  20.7876 3.034357  0.060711516 0.6185374 -0.4803976
## 1987  0.128569891  22.0716 3.094292  0.059935059 0.6115175 -0.4918116
## 1988  0.084862550  23.1540 3.142168  0.047875838 0.6014604 -0.5083946
## 1989  0.098148722  26.2705 3.268447  0.126279085 0.5851731 -0.5358475
## 1990  0.083696280  27.6066 3.318055  0.049608238 0.5815219 -0.5421066
## 1991  0.055460836  28.2693 3.341776  0.023721536 0.5826503 -0.5401681
## 1992  0.130045414  30.5778 3.420274  0.078497845 0.5970530 -0.5157495
## 1993  0.092569507  32.8851 3.493020  0.072745412 0.5852778 -0.5356687
## 1994  0.140922781  37.9776 3.636997  0.143976845 0.5779448 -0.5482769
## 1995  0.181918755  44.2093 3.788935  0.151938662 0.5487774 -0.6000624
## 1996  0.117087232  49.8874 3.909768  0.120833292 0.5357325 -0.6241203
## 1997  0.161680080  58.1906 4.063724  0.153955364 0.5175241 -0.6586991
## 1998  0.205145412  74.3535 4.308831  0.245106917 0.5149544 -0.6636768
## 1999  0.146450994  83.7340 4.427645  0.118814361 0.4983618 -0.6964289
## 2000  0.192171021 101.8930 4.623923  0.196278135 0.4784739 -0.7371536
## 2001  0.131099113 115.2423 4.747037  0.123113625 0.4692011 -0.7567239
## 2002  0.062748486 121.3944 4.799045  0.052007881 0.4464538 -0.8064192
## 2003 -0.017124381 118.4598 4.774574 -0.024471087 0.4512812 -0.7956646
## 2004  0.063166743 120.7152 4.793434  0.018860390 0.4582459 -0.7803494
## 2005  0.053349882 136.0740 4.913199  0.119764803 0.4616629 -0.7729202
## 2006  0.058752109 148.7313 5.002141  0.088942467 0.4641911 -0.7674589
## 2007  0.085273447 162.6395 5.091536  0.089394773 0.4800843 -0.7337935
## 2008 -0.038776711 158.1084 5.063281 -0.028255221 0.5194192 -0.6550440
## 2009  0.045437015 155.4164 5.046108 -0.017172907 0.5240311 -0.6462042
## 2010  0.058362898 156.1143 5.050588  0.004480465 0.4993691 -0.6944097
## 2011  0.031447220 160.3192 5.077167  0.026578397 0.4807368 -0.7324353
## 2012 -0.008754272 158.8153 5.067742 -0.009424936 0.4698404 -0.7553623
## 2013  0.028817208 160.4699 5.078106  0.010364494 0.4698422 -0.7553584
## 2014  0.135986927 183.8987 5.214385  0.136278676 0.4480576 -0.8028336
## 2015  0.331160148 244.8861 5.500793  0.286408142 0.3505661 -1.0482059
## 2016  0.040442580 289.9709 5.669781  0.168987369 0.3598411 -1.0220927
## 2017  0.088441920 293.1943 5.680836  0.011054956 0.3475038 -1.0569798
## 2018  0.098948181 284.8013 5.651792 -0.029043785 0.3358798 -1.0910019
##              rulc_dl       ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1972 -0.044959655175  6.422532 1.859812  0.0806605029  38.23783 3.643825
## 1973 -0.008123582778  7.343519 1.993818  0.1340057496  38.61859 3.653734
## 1974  0.062827817149  8.295731 2.115741  0.1219228629  39.06983 3.665351
## 1975 -0.021929356200  9.749772 2.277244  0.1615028546  40.62465 3.704375
## 1976 -0.012858829378 11.648341 2.455164  0.1779199063  40.47610 3.700712
## 1977 -0.087055181374 12.099694 2.493180  0.0380163588  42.43055 3.747869
## 1978 -0.027032693420 13.036372 2.567743  0.0745631711  43.78426 3.779274
## 1979  0.038123766271 15.411936 2.735142  0.1673989703  43.17901 3.765355
## 1980  0.050429296043 18.601653 2.923250  0.1881081776  43.28355 3.767773
## 1981 -0.023870266005 21.337667 3.060474  0.1372234654  43.85375 3.780860
## 1982 -0.030246995957 23.853677 3.171938  0.1114644700  43.92529 3.782490
## 1983 -0.005583348117 26.292228 3.269273  0.0973349858  43.58184 3.774641
## 1984 -0.031298130424 27.107464 3.299809  0.0305357389  45.26700 3.812578
## 1985 -0.034065354840 27.581035 3.317128  0.0173192902  46.80520 3.845994
## 1986 -0.003670566779 29.060991 3.369397  0.0522683660  46.28097 3.834731
## 1987 -0.011414043622 29.362804 3.379729  0.0103319389  47.78546 3.866721
## 1988 -0.016582973386 29.857720 3.396443  0.0167147232  49.41980 3.900351
## 1989 -0.027452887600 30.535986 3.418906  0.0224624280  52.00564 3.951352
## 1990 -0.006259121349 30.239492 3.409149 -0.0097571055  54.01481 3.989258
## 1991  0.001938488053 30.843955 3.428941  0.0197920375  54.64314 4.000824
## 1992  0.024418674190 32.495242 3.481094  0.0521528967  55.85532 4.022765
## 1993 -0.019919239859 33.503065 3.511637  0.0305432482  56.48976 4.034059
## 1994 -0.012608238126 33.643909 3.515832  0.0041950943  58.26007 4.064917
## 1995 -0.051785457200 32.863824 3.492372 -0.0234595491  61.91823 4.125815
## 1996 -0.024057877013 32.807068 3.490644 -0.0017285075  64.27400 4.163155
## 1997 -0.034578857790 32.921178 3.494116  0.0034721928  68.56214 4.227741
## 1998 -0.004977727061 34.895669 3.552363  0.0582465702  70.46997 4.255187
## 1999 -0.032752080949 35.243340 3.562277  0.0099138550  73.47381 4.296929
## 2000 -0.040724659300 36.172584 3.588301  0.0260249037  76.71379 4.340081
## 2001 -0.019570265178 37.914272 3.635328  0.0470261119  77.59381 4.351488
## 2002 -0.049695389684 37.969866 3.636793  0.0014652353  79.63546 4.377460
## 2003  0.010754603807 39.884873 3.685997  0.0492042877  79.31110 4.373378
## 2004  0.015315242586 40.710096 3.706476  0.0204789959  81.01023 4.394575
## 2005  0.007429185007 42.291764 3.744592  0.0381162534  81.00730 4.394539
## 2006  0.005461334546 43.992214 3.784013  0.0394202906  80.70353 4.390782
## 2007  0.033665372078 46.049240 3.829711  0.0456985981  80.90259 4.393246
## 2008  0.078749494937 49.664145 3.905283  0.0755719795  76.11292 4.332218
## 2009  0.008839768436 47.819211 3.867427 -0.0378557842  74.73965 4.314011
## 2010 -0.048205458643 44.135460 3.787264 -0.0801639089  77.44154 4.349523
## 2011 -0.038025571554 43.124512 3.764092 -0.0231719969  78.28569 4.360365
## 2012 -0.022927003386 43.107857 3.763705 -0.0003862645  78.03540 4.357163
## 2013  0.000003923934 43.637195 3.775910  0.0122045939  77.36280 4.348506
## 2014 -0.047475237098 41.567806 3.727326 -0.0485839041  81.93982 4.405985
## 2015 -0.245372279914 35.056615 3.556964 -0.1703616613 100.00000 4.605170
## 2016  0.026113187767 35.876315 3.580077  0.0231130218  99.01757 4.595297
## 2017 -0.034887086619 35.037507 3.556419 -0.0236582155 103.81534 4.642614
## 2018 -0.034022130803 34.142847 3.530553 -0.0258660094 110.65161 4.706387
##             Tau_dl        dPxdPm         dPdPm     Trade
## 1972  0.0366773311  0.0533959064  0.0697955646 0.4571181
## 1973  0.0099084171  0.0494007266  0.0118627701 0.5054104
## 1974  0.0116168659 -0.1599835182 -0.3081568474 0.4792310
## 1975  0.0390244048 -0.0181249736 -0.0033484342 0.4387186
## 1976 -0.0036634181  0.0331527332  0.0171923559 0.4840658
## 1977  0.0471570561 -0.0175360172 -0.0302452987 0.5085357
## 1978  0.0314057337  0.0180091715  0.0554152296 0.5424970
## 1979 -0.0139198232 -0.0369529808  0.0007887258 0.5832777
## 1980  0.0024181137 -0.0630051953 -0.0278879823 0.5649677
## 1981  0.0130876792 -0.0189736442 -0.0095198506 0.5568087
## 1982  0.0016299770  0.0301427678  0.0694042019 0.5475382
## 1983 -0.0078497157  0.0362800309  0.0521998627 0.5886074
## 1984  0.0379377631 -0.0122524606 -0.0283476116 0.6371502
## 1985  0.0334159408  0.0051545041  0.0257525729 0.6478036
## 1986 -0.0112634379  0.0418812344  0.1627163598 0.6765894
## 1987  0.0319905331 -0.0085810169  0.0085993594 0.7094894
## 1988  0.0336298443 -0.0070077348 -0.0286275228 0.7270406
## 1989  0.0510008743  0.0105465004 -0.0099226116 0.7658750
## 1990  0.0379061853 -0.0465224391  0.0340663850 0.7605082
## 1991  0.0115654616 -0.0264404265 -0.0059721840 0.7763876
## 1992  0.0219409792 -0.0075153772  0.0400908723 0.8345372
## 1993  0.0112945646  0.0215460549  0.0060124069 0.8831223
## 1994  0.0308577067 -0.0217600606 -0.0067756433 0.9628213
## 1995  0.0608976519 -0.0183189680 -0.0085808466 1.0370864
## 1996  0.0373405383  0.0006585494  0.0275193914 1.0873311
## 1997  0.0645853084  0.0031170566  0.0305751925 1.1483387
## 1998  0.0274461412  0.0092327571  0.0408597938 1.3216579
## 1999  0.0417423171 -0.0021120122  0.0190418304 1.3667550
## 2000  0.0431525322 -0.0011394056  0.0136728418 1.5163019
## 2001  0.0114061503  0.0126667844  0.0835112206 1.6359111
## 2002  0.0259718555  0.0208855792  0.0783511007 1.6363001
## 2003 -0.0040814504 -0.0104710284  0.0551023570 1.5560576
## 2004  0.0211973885 -0.0552198434 -0.0531813599 1.5220086
## 2005 -0.0000361788  0.0169251577  0.0267305760 1.5659064
## 2006 -0.0037569278 -0.0095365670  0.0070914551 1.6031767
## 2007  0.0024634538  0.0047513069  0.0158592481 1.6608805
## 2008 -0.0610277200  0.0104209620 -0.0229424265 1.6810773
## 2009 -0.0182073240 -0.0144332256 -0.0198255002 1.7994884
## 2010  0.0355125440 -0.0340757963 -0.0934254535 1.8281832
## 2011  0.0108415016  0.0193740119  0.0399292086 1.8760218
## 2012 -0.0032022707 -0.0177574798 -0.0356662454 1.8549243
## 2013 -0.0086564388 -0.0013257893  0.0221888510 1.8682449
## 2014  0.0574789493 -0.0205859698 -0.0262571655 1.9719315
## 2015  0.1991851582  0.0452337554  0.0489284335 2.1513666
## 2016 -0.0098728486 -0.0025950261  0.0112011652 2.2890504
## 2017  0.0473164413 -0.0140691473 -0.0058123408 2.2323205
## 2018  0.0637728797 -0.0134838579 -0.0036160677 2.1563706

Adjusted Dickey-fuller testet I(0)

adf.IRL.WS <- adf.test((IRL$WS), alternative = c("stationary"), k = 2)
adf.IRL.PS <- adf.test((IRL$PS), alternative = c("stationary"), k = 2)
adf.IRL.Y <- adf.test((IRL$Y), alternative = c("stationary"), k = 2)
adf.IRL.Yrw <- adf.test((IRL$Yrw), alternative = c("stationary"), k = 2)
adf.IRL.r <- adf.test((IRL$r), alternative = c("stationary"), k = 2)
adf.IRL.R <- adf.test((IRL$R), alternative = c("stationary"), k = 2)
adf.IRL.Tau <- adf.test((IRL$Tau), alternative = c("stationary"), k = 2)
adf.IRL.rulc <- adf.test((IRL$rulc), alternative = c("stationary"), k = 2)
adf.IRL.ulc <- adf.test((IRL$ulc), alternative = c("stationary"), k = 2)
adf.IRL.P <- adf.test((IRL$P), alternative = c("stationary"), k = 2)
adf.IRL.Pm <- adf.test((IRL$Pm), alternative = c("stationary"), k = 2)
adf.IRL.Px <- adf.test((IRL$Px), alternative = c("stationary"), k = 2)
adf.IRL.X <- adf.test((IRL$X), alternative = c("stationary"), k = 2)
adf.IRL.M <- adf.test((IRL$M), alternative = c("stationary"), k = 2)
adf.IRL.I <- adf.test((IRL$I), alternative = c("stationary"), k = 2)
adf.IRL.C <- adf.test((IRL$C), alternative = c("stationary"), k = 2)
adf.IRL.Ipr <- adf.test((IRL$Ipr), alternative = c("stationary"), k = 2)
adf.IRL.Ips <- adf.test((IRL$Ips), alternative = c("stationary"), k = 2)
adf.IRL.It <- adf.test((IRL$It), alternative = c("stationary"), k = 2)
adf.IRL.Itcurr <- adf.test((IRL$Itcurr), alternative = c("stationary"), k = 2)
adf.IRL.Yf <- adf.test((IRL$Yf), alternative = c("stationary"), k = 2)
adf.IRL.W <- adf.test((IRL$W), alternative = c("stationary"), k = 2)

adf.IRL.WS.pval <- adf.IRL.WS$p.value
adf.IRL.PS.pval <- adf.IRL.PS$p.value
adf.IRL.Y.pval <- adf.IRL.Y$p.value
adf.IRL.Yrw.pval <- adf.IRL.Yrw$p.value
adf.IRL.r.pval <- adf.IRL.r$p.value
adf.IRL.R.pval <- adf.IRL.R$p.value
adf.IRL.Tau.pval <- adf.IRL.Tau$p.value
adf.IRL.rulc.pval <- adf.IRL.rulc$p.value
adf.IRL.ulc.pval <- adf.IRL.ulc$p.value
adf.IRL.P.pval <- adf.IRL.P$p.value
adf.IRL.Pm.pval <- adf.IRL.Pm$p.value
adf.IRL.Px.pval <- adf.IRL.Px$p.value
adf.IRL.X.pval <- adf.IRL.X$p.value
adf.IRL.M.pval <- adf.IRL.M$p.value
adf.IRL.I.pval <- adf.IRL.I$p.value
adf.IRL.C.pval <- adf.IRL.C$p.value
adf.IRL.Ipr.pval <- adf.IRL.Ipr$p.value
adf.IRL.Ips.pval <- adf.IRL.Ips$p.value
adf.IRL.It.pval <- adf.IRL.It$p.value
adf.IRL.Itcurr.pval <- adf.IRL.Itcurr$p.value
adf.IRL.Yf.pval <- adf.IRL.Yf$p.value
adf.IRL.W.pval <- adf.IRL.W$p.value

adf.IRL_non <- rbind(adf.IRL.WS.pval,adf.IRL.PS.pval,adf.IRL.Y.pval,adf.IRL.Yrw.pval,adf.IRL.r.pval,adf.IRL.R.pval,adf.IRL.Tau.pval,adf.IRL.rulc.pval,adf.IRL.ulc.pval,adf.IRL.P.pval,adf.IRL.Pm.pval,adf.IRL.Px.pval,adf.IRL.X.pval,adf.IRL.M.pval,adf.IRL.I.pval,adf.IRL.C.pval,adf.IRL.Ipr.pval,adf.IRL.Ips.pval,adf.IRL.It.pval,adf.IRL.Itcurr.pval,adf.IRL.Yf.pval,adf.IRL.W.pval)


colnames(adf.IRL_non) <- c("IRL")
rownames(adf.IRL_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.IRL_non
##              IRL
## WS     0.5037880
## PS     0.5037880
## Y      0.9639427
## Yrw    0.3435530
## r      0.6141288
## R      0.9900000
## Tau    0.8380785
## rulc   0.3282103
## ulc    0.9900000
## P      0.5962927
## Pm     0.2475195
## Px     0.2637521
## X      0.9900000
## M      0.9900000
## I      0.7196880
## C      0.5149172
## Ipr    0.5623122
## Ips    0.1903383
## It     0.6314683
## Itcurr 0.4831139
## Yf     0.9877571
## W      0.3415005

Adjusted Dickey-fuller testet I(1)

adf.IRL.WS_dl <- adf.test((IRL$WS_dl), alternative = c("stationary"), k = 2)
adf.IRL.PS_dl <- adf.test((IRL$PS_dl), alternative = c("stationary"), k = 2)
adf.IRL.Y_dl <- adf.test((IRL$Y_dl), alternative = c("stationary"), k = 2)
adf.IRL.Yrw_dl <- adf.test((IRL$Yrw_dl), alternative = c("stationary"), k = 2)
adf.IRL.r_dl <- adf.test((IRL$r_dl), alternative = c("stationary"), k = 2)
adf.IRL.R_dl <- adf.test((IRL$R_dl), alternative = c("stationary"), k = 2)
adf.IRL.Tau_dl <- adf.test((IRL$Tau_dl), alternative = c("stationary"), k = 2)
adf.IRL.rulc_dl <- adf.test((IRL$rulc_dl), alternative = c("stationary"), k = 2)
adf.IRL.ulc_dl <- adf.test((IRL$ulc_dl), alternative = c("stationary"), k = 2)
adf.IRL.P_dl <- adf.test((IRL$P_dl), alternative = c("stationary"), k = 2)
adf.IRL.Pm_dl <- adf.test((IRL$Pm_dl), alternative = c("stationary"), k = 2)
adf.IRL.Px_dl <- adf.test((IRL$Px_dl), alternative = c("stationary"), k = 2)
adf.IRL.X_dl <- adf.test((IRL$X_dl), alternative = c("stationary"), k = 2)
adf.IRL.M_dl <- adf.test((IRL$M_dl), alternative = c("stationary"), k = 2)
adf.IRL.I_dl <- adf.test((IRL$I_dl), alternative = c("stationary"), k = 2)
adf.IRL.C_dl <- adf.test((IRL$C_dl), alternative = c("stationary"), k = 2)
adf.IRL.Ipr_dl <- adf.test((IRL$Ipr_dl), alternative = c("stationary"), k = 2)
adf.IRL.Ips_dl <- adf.test((IRL$Ips_dl), alternative = c("stationary"), k = 2)
adf.IRL.It_dl <- adf.test((IRL$It_dl), alternative = c("stationary"), k = 2)
adf.IRL.Itcurr_dl <- adf.test((IRL$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.IRL.Yf_dl <- adf.test((IRL$Yf_dl), alternative = c("stationary"), k = 2)
adf.IRL.W_dl <- adf.test((IRL$W_dl), alternative = c("stationary"), k = 2)

adf.IRL.WS_dl.pval <- adf.IRL.WS_dl$p.value
adf.IRL.PS_dl.pval <- adf.IRL.PS_dl$p.value
adf.IRL.Y_dl.pval <- adf.IRL.Y_dl$p.value
adf.IRL.Yrw_dl.pval <- adf.IRL.Yrw_dl$p.value
adf.IRL.r_dl.pval <- adf.IRL.r_dl$p.value
adf.IRL.R_dl.pval <- adf.IRL.R_dl$p.value
adf.IRL.Tau_dl.pval <- adf.IRL.Tau_dl$p.value
adf.IRL.rulc_dl.pval <- adf.IRL.rulc_dl$p.value
adf.IRL.ulc_dl.pval <- adf.IRL.ulc_dl$p.value
adf.IRL.P_dl.pval <- adf.IRL.P_dl$p.value
adf.IRL.Pm_dl.pval <- adf.IRL.Pm_dl$p.value
adf.IRL.Px_dl.pval <- adf.IRL.Px_dl$p.value
adf.IRL.X_dl.pval <- adf.IRL.X_dl$p.value
adf.IRL.M_dl.pval <- adf.IRL.M_dl$p.value
adf.IRL.I_dl.pval <- adf.IRL.I_dl$p.value
adf.IRL.C_dl.pval <- adf.IRL.C_dl$p.value
adf.IRL.Ipr_dl.pval <- adf.IRL.Ipr_dl$p.value
adf.IRL.Ips_dl.pval <- adf.IRL.Ips_dl$p.value
adf.IRL.It_dl.pval <- adf.IRL.It_dl$p.value
adf.IRL.Itcurr_dl.pval <- adf.IRL.Itcurr_dl$p.value
adf.IRL.Yf_dl.pval <- adf.IRL.Yf_dl$p.value
adf.IRL.W_dl.pval <- adf.IRL.W_dl$p.value

adf.IRL_dl <- rbind(adf.IRL.WS_dl.pval,adf.IRL.PS_dl.pval,adf.IRL.Y_dl.pval,adf.IRL.Yrw_dl.pval,adf.IRL.r_dl.pval,adf.IRL.R_dl.pval,adf.IRL.Tau_dl.pval,adf.IRL.rulc_dl.pval,adf.IRL.ulc_dl.pval,adf.IRL.P_dl.pval,adf.IRL.Pm_dl.pval,adf.IRL.Px_dl.pval,adf.IRL.X_dl.pval,adf.IRL.M_dl.pval,adf.IRL.I_dl.pval,adf.IRL.C_dl.pval,adf.IRL.Ipr_dl.pval,adf.IRL.Ips_dl.pval,adf.IRL.It_dl.pval,adf.IRL.Itcurr_dl.pval,adf.IRL.Yf_dl.pval,adf.IRL.W_dl.pval)
colnames(adf.IRL_dl) <- c("IRL")
rownames(adf.IRL_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.IRL_dl
##                     IRL
## dlog(WS)     0.02145193
## dlog(PS)     0.01000000
## dlog(Y)      0.30026523
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01754412
## dlog(Tau)    0.24701188
## dlog(rulc)   0.02076826
## dlog(ulc)    0.14554801
## dlog(P)      0.45566142
## dlog(Pm)     0.08104895
## dlog(Px)     0.21918373
## dlog(X)      0.12778865
## dlog(M)      0.04497963
## dlog(I)      0.03861790
## dlog(C)      0.07557573
## dlog(Ipr)    0.08298669
## dlog(Ips)    0.01000000
## dlog(It)     0.04337843
## dlog(Itcurr) 0.09023967
## dlog(Yf)     0.28598249
## dlog(W)      0.04709417
adf.IRL <- NULL
adf.IRL <- rbind(adf.IRL_non,adf.IRL_dl)

Økonometriske test

#Consumption (C)
IRL_consumption <- dynlm(IRL$C_dl~IRL$R_dl+IRL$W_dl)
IRL_CR <- summary(IRL_consumption)$coefficients["IRL$R_dl","Estimate"]
IRL_CW <- summary(IRL_consumption)$coefficients["IRL$W_dl","Estimate"]
IRL_Ceffekt <- (IRL_CR*mean(IRL$C/IRL$R))-(IRL_CW*mean(IRL$C/IRL$W))
summary(IRL_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$C_dl ~ IRL$R_dl + IRL$W_dl)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.07981 -0.01166  0.00329  0.01606  0.04591 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept) 0.002596   0.005972   0.435      0.666    
## IRL$R_dl    0.166290   0.038767   4.290 0.00009650 ***
## IRL$W_dl    0.622105   0.108764   5.720 0.00000087 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02451 on 44 degrees of freedom
## Multiple R-squared:  0.4798, Adjusted R-squared:  0.4562 
## F-statistic: 20.29 on 2 and 44 DF,  p-value: 0.0000005699
#Investments (I)
IRL_investment <- dynlm(IRL$I_dl~IRL$PS_dl+IRL$Y_l)
IRL_iPS <- summary(IRL_investment)$coefficients["IRL$PS_dl","Estimate"]
IRL_Ieffekt <- IRL_iPS*mean(IRL$I/IRL$R)
summary(IRL_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$I_dl ~ IRL$PS_dl + IRL$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.33698 -0.09435 -0.00378  0.08780  0.39232 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept) -0.05087    0.14503  -0.351   0.7274  
## IRL$PS_dl    0.71069    0.30301   2.345   0.0236 *
## IRL$Y_l      0.01819    0.03121   0.583   0.5629  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1382 on 44 degrees of freedom
## Multiple R-squared:  0.1181, Adjusted R-squared:  0.07806 
## F-statistic: 2.947 on 2 and 44 DF,  p-value: 0.06291
#Price deflator (P)
IRL_deflator <- dynlm(IRL$P_dl~L(IRL$ulc_dl)+IRL$Pm_dl)
IRL_ePULC <- summary(IRL_deflator)$coefficients["L(IRL$ulc_dl)","Estimate"]
summary(IRL_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$P_dl ~ L(IRL$ulc_dl) + IRL$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.095586 -0.017297 -0.002059  0.019701  0.123521 
## 
## Coefficients:
##               Estimate Std. Error t value  Pr(>|t|)    
## (Intercept)   0.027562   0.006349   4.341 0.0000820 ***
## L(IRL$ulc_dl) 0.475365   0.096008   4.951 0.0000113 ***
## IRL$Pm_dl     0.188323   0.084172   2.237    0.0304 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0364 on 44 degrees of freedom
## Multiple R-squared:  0.5885, Adjusted R-squared:  0.5698 
## F-statistic: 31.47 on 2 and 44 DF,  p-value: 0.000000003276
#Export price deflator (Px)
IRL_exportdeflator <- dynlm(IRL$Px_dl~IRL$ulc_dl+IRL$Pm_dl)
IRL_ePX <- summary(IRL_exportdeflator)$coefficients["IRL$ulc_dl","Estimate"]
summary(IRL_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$Px_dl ~ IRL$ulc_dl + IRL$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.070105 -0.010789 -0.002674  0.009564  0.074762 
## 
## Coefficients:
##             Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.004057   0.005092   0.797            0.4299    
## IRL$ulc_dl  0.150339   0.076997   1.953            0.0573 .  
## IRL$Pm_dl   0.694311   0.067505  10.285 0.000000000000279 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02919 on 44 degrees of freedom
## Multiple R-squared:  0.8179, Adjusted R-squared:  0.8097 
## F-statistic: 98.84 on 2 and 44 DF,  p-value: < 0.00000000000000022
#Exports (X)
IRL_exports <- dynlm(IRL$X_dl~L(IRL$dPxdPm)+IRL$Yrw_dl)
IRL_eXP <- summary(IRL_exports)$coefficients["L(IRL$dPxdPm)","Estimate"]
IRL_eXP <- 0
IRL_Xeffekt <- -(IRL_eXP*IRL_ePX*(1/(1-IRL_ePULC))*mean(IRL$Yf/IRL$Y)*(mean(IRL$X/IRL$Y)/mean(IRL$rulc)))
summary(IRL_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$X_dl ~ L(IRL$dPxdPm) + IRL$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.109472 -0.037296 -0.006789  0.033251  0.230252 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)   
## (Intercept)    0.06370    0.01814   3.511  0.00105 **
## L(IRL$dPxdPm)  0.29482    0.27419   1.075  0.28813   
## IRL$Yrw_dl     1.00517    0.58995   1.704  0.09547 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06267 on 44 degrees of freedom
## Multiple R-squared:  0.1067, Adjusted R-squared:  0.06611 
## F-statistic: 2.628 on 2 and 44 DF,  p-value: 0.08352
#Imports (M)
IRL_imports <- dynlm(IRL$M_dl~IRL$dPdPm+L(IRL$Y_dl))
IRL_eMP <- summary(IRL_imports)$coefficients["IRL$dPdPm","Estimate"]
IRL_Meffekt <- -(IRL_eMP*IRL_ePULC*(1/(1-IRL_ePULC))*mean(IRL$Yf/IRL$Y)*(mean(IRL$M/IRL$Y)/mean(IRL$rulc)))
summary(IRL_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$M_dl ~ IRL$dPdPm + L(IRL$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.185489 -0.027150  0.009923  0.032972  0.123756 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)  0.01729    0.01403   1.232     0.2245    
## IRL$dPdPm    0.27027    0.14916   1.812     0.0768 .  
## L(IRL$Y_dl)  1.11612    0.22065   5.058 0.00000795 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06349 on 44 degrees of freedom
## Multiple R-squared:  0.4087, Adjusted R-squared:  0.3818 
## F-statistic:  15.2 on 2 and 44 DF,  p-value: 0.000009555
names(IRL_consumption$coefficients) <- sub("IRL$","",names(IRL_consumption$coefficients),fixed=TRUE)
names(IRL_investment$coefficients) <- sub("IRL$","",names(IRL_investment$coefficients),fixed=TRUE)
names(IRL_deflator$coefficients) <- sub("IRL$","",names(IRL_deflator$coefficients),fixed=TRUE)
names(IRL_exportdeflator$coefficients) <- sub("IRL$","",names(IRL_exportdeflator$coefficients),fixed=TRUE)
names(IRL_exports$coefficients) <- sub("IRL$","",names(IRL_exports$coefficients),fixed=TRUE)
names(IRL_imports$coefficients) <- sub("IRL$","",names(IRL_imports$coefficients),fixed=TRUE)

IRL_Xeffekt
## [1] 0
IRL_Meffekt
## [1] -0.2276025
#Nettoeksport (NX)
IRL_NXeffekt <- IRL_Xeffekt - IRL_Meffekt

IRL_NXeffekt
## [1] 0.2276025
#Nettoeffekten
IRL_Neteffekt = IRL_Ceffekt + IRL_Ieffekt + IRL_NXeffekt

IRL_Neteffekt
## [1] 0.302703
IRL_Lukket <- IRL_Ceffekt + IRL_Ieffekt
IRL_Lukket_Konklusion <- ifelse(IRL_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
IRL_Lukket_Konklusion
## [1] "Profit-led domestic"
IRL_Def <- ifelse(IRL_Neteffekt > 0, "Profit-led", "Wage-led")
IRL_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=IRL_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042694 -0.011162  0.000598  0.015467  0.041892 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.02517    0.81622  -1.256    0.223
## z.diff.lag1   0.18585    0.77878   0.239    0.814
## z.diff.lag2   0.31154    0.74011   0.421    0.678
## z.diff.lag3   0.20110    0.69878   0.288    0.776
## z.diff.lag4   0.09846    0.65324   0.151    0.882
## z.diff.lag5   0.18348    0.62027   0.296    0.770
## z.diff.lag6   0.10618    0.56324   0.189    0.852
## z.diff.lag7   0.07534    0.49372   0.153    0.880
## z.diff.lag8   0.28419    0.43447   0.654    0.520
## z.diff.lag9   0.12352    0.36196   0.341    0.736
## z.diff.lag10  0.04458    0.29957   0.149    0.883
## z.diff.lag11  0.08763    0.25684   0.341    0.736
## z.diff.lag12  0.02832    0.18601   0.152    0.880
## 
## Residual standard error: 0.02346 on 21 degrees of freedom
## Multiple R-squared:  0.5231, Adjusted R-squared:  0.2279 
## F-statistic: 1.772 on 13 and 21 DF,  p-value: 0.1177
## 
## 
## Value of test-statistic is: -1.256 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=IRL_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.233986 -0.055883  0.004427  0.075957  0.154179 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -2.27102    0.92762  -2.448   0.0232 *
## z.diff.lag1   1.57298    0.82775   1.900   0.0712 .
## z.diff.lag2   1.29330    0.79687   1.623   0.1195  
## z.diff.lag3   1.13890    0.75250   1.513   0.1451  
## z.diff.lag4   1.58643    0.73227   2.166   0.0419 *
## z.diff.lag5   1.31113    0.76354   1.717   0.1007  
## z.diff.lag6   0.72607    0.70314   1.033   0.3135  
## z.diff.lag7   0.57433    0.61692   0.931   0.3625  
## z.diff.lag8   0.68789    0.52392   1.313   0.2034  
## z.diff.lag9   0.76459    0.46583   1.641   0.1156  
## z.diff.lag10  0.82190    0.46772   1.757   0.0935 .
## z.diff.lag11  0.72939    0.44484   1.640   0.1160  
## z.diff.lag12  0.01792    0.33146   0.054   0.9574  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1126 on 21 degrees of freedom
## Multiple R-squared:  0.6613, Adjusted R-squared:  0.4516 
## F-statistic: 3.154 on 13 and 21 DF,  p-value: 0.009422
## 
## 
## Value of test-statistic is: -2.4482 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=IRL_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.120568 -0.010474  0.009365  0.044544  0.140206 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.604516   0.652511  -2.459   0.0227 *
## z.diff.lag1   0.727483   0.561725   1.295   0.2093  
## z.diff.lag2   0.710195   0.513527   1.383   0.1812  
## z.diff.lag3   0.733901   0.478909   1.532   0.1403  
## z.diff.lag4   0.668628   0.487566   1.371   0.1847  
## z.diff.lag5   0.992833   0.454719   2.183   0.0405 *
## z.diff.lag6   1.040541   0.491058   2.119   0.0462 *
## z.diff.lag7   0.636267   0.492705   1.291   0.2106  
## z.diff.lag8   0.626492   0.464603   1.348   0.1919  
## z.diff.lag9   0.669076   0.433823   1.542   0.1379  
## z.diff.lag10  0.658496   0.426656   1.543   0.1377  
## z.diff.lag11  0.393716   0.381660   1.032   0.3140  
## z.diff.lag12 -0.001296   0.313166  -0.004   0.9967  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06782 on 21 degrees of freedom
## Multiple R-squared:  0.5562, Adjusted R-squared:  0.2815 
## F-statistic: 2.025 on 13 and 21 DF,  p-value: 0.07262
## 
## 
## Value of test-statistic is: -2.459 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=IRL_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09776 -0.01146  0.00860  0.02720  0.12988 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.60582    0.88116  -1.822   0.0827 .
## z.diff.lag1   0.78406    0.82000   0.956   0.3499  
## z.diff.lag2   0.74077    0.79128   0.936   0.3598  
## z.diff.lag3   0.56565    0.74992   0.754   0.4591  
## z.diff.lag4   0.40313    0.68773   0.586   0.5640  
## z.diff.lag5   0.54102    0.63318   0.854   0.4025  
## z.diff.lag6   0.44105    0.59337   0.743   0.4655  
## z.diff.lag7   0.48926    0.53880   0.908   0.3742  
## z.diff.lag8   0.35888    0.48829   0.735   0.4705  
## z.diff.lag9   0.29873    0.39171   0.763   0.4542  
## z.diff.lag10  0.28373    0.33852   0.838   0.4114  
## z.diff.lag11  0.29753    0.26816   1.110   0.2797  
## z.diff.lag12  0.05585    0.19270   0.290   0.7748  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06123 on 21 degrees of freedom
## Multiple R-squared:  0.4463, Adjusted R-squared:  0.1035 
## F-statistic: 1.302 on 13 and 21 DF,  p-value: 0.2861
## 
## 
## Value of test-statistic is: -1.8224 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(IRL_consumption)

plot(IRL_investment)

plot(IRL_deflator)

plot(IRL_exportdeflator)

plot(IRL_exports)

plot(IRL_imports)

bptest(IRL_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  IRL_consumption
## BP = 0.60444, df = 2, p-value = 0.7392
bptest(IRL_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  IRL_investment
## BP = 8.9302, df = 2, p-value = 0.0115
bptest(IRL_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  IRL_deflator
## BP = 14.685, df = 2, p-value = 0.0006475
bptest(IRL_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  IRL_exportdeflator
## BP = 10.204, df = 2, p-value = 0.006085
bptest(IRL_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  IRL_exports
## BP = 3.9883, df = 2, p-value = 0.1361
bptest(IRL_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  IRL_imports
## BP = 0.35137, df = 2, p-value = 0.8389
resettest(IRL_consumption)
## 
##  RESET test
## 
## data:  IRL_consumption
## RESET = 0.77828, df1 = 2, df2 = 42, p-value = 0.4657
resettest(IRL_investment)
## 
##  RESET test
## 
## data:  IRL_investment
## RESET = 2.7856, df1 = 2, df2 = 42, p-value = 0.07312
resettest(IRL_deflator)
## 
##  RESET test
## 
## data:  IRL_deflator
## RESET = 19.755, df1 = 2, df2 = 42, p-value = 0.000000897
resettest(IRL_exportdeflator)
## 
##  RESET test
## 
## data:  IRL_exportdeflator
## RESET = 7.1653, df1 = 2, df2 = 42, p-value = 0.002102
resettest(IRL_exports)
## 
##  RESET test
## 
## data:  IRL_exports
## RESET = 3.0478, df1 = 2, df2 = 42, p-value = 0.05808
resettest(IRL_imports)
## 
##  RESET test
## 
## data:  IRL_imports
## RESET = 0.19116, df1 = 2, df2 = 42, p-value = 0.8267

Resultater

IRL_regtab <- matrix(c(IRL_Ceffekt, IRL_Ieffekt, IRL_Lukket, IRL_Xeffekt, IRL_Meffekt, IRL_NXeffekt, IRL_Neteffekt,IRL_Lukket_Konklusion, IRL_Def),ncol=9,byrow=TRUE)
colnames(IRL_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(IRL_regtab) <- c("IRL")
IRL_regtab <- as.table(IRL_regtab)
IRL_regtab
##     consumption       investment        Lukket neteffekt   exports
## IRL -0.30621615726918 0.381316630290997 0.0751004730218173 0      
##     imports            netexports        neteffect        
## IRL -0.227602497215577 0.227602497215577 0.302702970237394
##     Lukket konklusion   Konklusion
## IRL Profit-led domestic Profit-led
IRL_smoke <- matrix(c(mean(IRL$C/IRL$R), mean(IRL$C/IRL$W), mean(IRL$I/IRL$R), IRL_CR, IRL_CW, IRL_iPS, IRL_ePULC, (1/(1-IRL_ePULC)), IRL_eXP, IRL_ePX, IRL_eMP, mean(IRL$Yf/IRL$Y), mean(IRL$X/IRL$Y), mean(IRL$rulc), (mean(IRL$X/IRL$Y)/mean(IRL$rulc))),ncol=15,byrow=TRUE)
colnames(IRL_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(IRL_smoke) <- c("IRL")
IRL_smoke <- as.table(IRL_smoke)
IRL_smoke
##           C/R       C/W       I/R        CR        CW       iPS     ePULC
## IRL 1.4196922 0.8717130 0.5365411 0.1662901 0.6221049 0.7106941 0.4753653
##     1/1-epulc       eXP       ePX       eMP      Yf/Y       X/Y      RULC
## IRL 1.9060880 0.0000000 0.1503387 0.2702690 0.9219420 0.6118324 0.5539909
##     (X/Y)/rulc
## IRL  1.1044089

Summary af regressioner

summary(IRL_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$C_dl ~ IRL$R_dl + IRL$W_dl)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.07981 -0.01166  0.00329  0.01606  0.04591 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept) 0.002596   0.005972   0.435      0.666    
## R_dl        0.166290   0.038767   4.290 0.00009650 ***
## W_dl        0.622105   0.108764   5.720 0.00000087 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02451 on 44 degrees of freedom
## Multiple R-squared:  0.4798, Adjusted R-squared:  0.4562 
## F-statistic: 20.29 on 2 and 44 DF,  p-value: 0.0000005699
summary(IRL_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$I_dl ~ IRL$PS_dl + IRL$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.33698 -0.09435 -0.00378  0.08780  0.39232 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept) -0.05087    0.14503  -0.351   0.7274  
## PS_dl        0.71069    0.30301   2.345   0.0236 *
## Y_l          0.01819    0.03121   0.583   0.5629  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1382 on 44 degrees of freedom
## Multiple R-squared:  0.1181, Adjusted R-squared:  0.07806 
## F-statistic: 2.947 on 2 and 44 DF,  p-value: 0.06291
summary(IRL_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$P_dl ~ L(IRL$ulc_dl) + IRL$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.095586 -0.017297 -0.002059  0.019701  0.123521 
## 
## Coefficients:
##             Estimate Std. Error t value  Pr(>|t|)    
## (Intercept) 0.027562   0.006349   4.341 0.0000820 ***
## L(ulc_dl)   0.475365   0.096008   4.951 0.0000113 ***
## Pm_dl       0.188323   0.084172   2.237    0.0304 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0364 on 44 degrees of freedom
## Multiple R-squared:  0.5885, Adjusted R-squared:  0.5698 
## F-statistic: 31.47 on 2 and 44 DF,  p-value: 0.000000003276
summary(IRL_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$Px_dl ~ IRL$ulc_dl + IRL$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.070105 -0.010789 -0.002674  0.009564  0.074762 
## 
## Coefficients:
##             Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.004057   0.005092   0.797            0.4299    
## ulc_dl      0.150339   0.076997   1.953            0.0573 .  
## Pm_dl       0.694311   0.067505  10.285 0.000000000000279 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02919 on 44 degrees of freedom
## Multiple R-squared:  0.8179, Adjusted R-squared:  0.8097 
## F-statistic: 98.84 on 2 and 44 DF,  p-value: < 0.00000000000000022
summary(IRL_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$X_dl ~ L(IRL$dPxdPm) + IRL$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.109472 -0.037296 -0.006789  0.033251  0.230252 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)   
## (Intercept)  0.06370    0.01814   3.511  0.00105 **
## L(dPxdPm)    0.29482    0.27419   1.075  0.28813   
## Yrw_dl       1.00517    0.58995   1.704  0.09547 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06267 on 44 degrees of freedom
## Multiple R-squared:  0.1067, Adjusted R-squared:  0.06611 
## F-statistic: 2.628 on 2 and 44 DF,  p-value: 0.08352
summary(IRL_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 47
## 
## Call:
## dynlm(formula = IRL$M_dl ~ IRL$dPdPm + L(IRL$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.185489 -0.027150  0.009923  0.032972  0.123756 
## 
## Coefficients:
##             Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)  0.01729    0.01403   1.232     0.2245    
## dPdPm        0.27027    0.14916   1.812     0.0768 .  
## L(Y_dl)      1.11612    0.22065   5.058 0.00000795 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06349 on 44 degrees of freedom
## Multiple R-squared:  0.4087, Adjusted R-squared:  0.3818 
## F-statistic:  15.2 on 2 and 44 DF,  p-value: 0.000009555

Italien analyse

Test for NA værdier

ITA_df[!complete.cases(ITA_df),]
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1960 0.7661109 -0.2664284           NA 0.2338891 -1.4529081           NA
## 1961 0.7381111 -0.3036609 -0.037232516 0.2618889 -1.3398350  0.113073095
## 1962 0.7289017 -0.3162164 -0.012555554 0.2710983 -1.3052737  0.034561335
## 1963 0.7413428 -0.2992921  0.016924343 0.2586572 -1.3522518 -0.046978095
## 1964 0.7431740 -0.2968250  0.002467075 0.2568260 -1.3593566 -0.007104844
## 1965 0.7274452 -0.3182167 -0.021391639 0.2725548 -1.2999154  0.059441177
## 1966 0.7048340 -0.3497930 -0.031576288 0.2951660 -1.2202174  0.079698038
## 1967 0.6968984 -0.3611156 -0.011322627 0.3031016 -1.1936874  0.026530028
## 1968 0.6826206 -0.3818160 -0.020700441 0.3173794 -1.1476575  0.046029901
## 1969 0.6631290 -0.4107857 -0.028969719 0.3368710 -1.0880552  0.059602262
## 1970 0.6759554 -0.3916282  0.019157534 0.3240446 -1.1268741 -0.038818861
## 2019 0.6047584 -0.5029262  0.004822880 0.3952416 -0.9282581 -0.007334748
## 2020 0.5987061 -0.5129845 -0.010058294 0.4012939 -0.9130612  0.015196977
## 2021 0.6068606 -0.4994562  0.013528266 0.3931394 -0.9335910 -0.020529792
## 2022        NA         NA           NA        NA         NA           NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960  432.201 6.068891           NA  8294966010030 29.74667         NA
## 1961  468.795 6.150166  0.081274815  8701511452314 29.79452 0.04784791
## 1962  501.526 6.217655  0.067489878  9248882305887 29.85552 0.06100597
## 1963  532.705 6.277968  0.060312350  9759235750467 29.90924 0.05371138
## 1964  553.797 6.316798  0.038830394 10405293679104 29.97334 0.06410059
## 1965  579.295 6.361812  0.045013653 11006727246118 30.02953 0.05619197
## 1966  618.010 6.426505  0.064692792 11710959476864 30.09155 0.06201846
## 1967  665.685 6.500817  0.074311947 12270582666800 30.13823 0.04667963
## 1968  714.411 6.571458  0.070641841 13045228404408 30.19944 0.06121768
## 1969  761.522 6.635319  0.063860635 13838295292989 30.25846 0.05901734
## 1970  807.485 6.693924  0.058605417 14200629149264 30.28431 0.02584650
## 2019 1723.515 7.452121  0.003008266             NA       NA         NA
## 2020 1559.471 7.352102 -0.100019149             NA       NA         NA
## 2021 1661.611 7.415543  0.063440952             NA       NA         NA
## 2022       NA       NA           NA             NA       NA         NA
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1960   1.4178  430.7832 6.065605           NA  249.463 5.519311
## 1961   1.5605  467.2345 6.146831  0.081226326  264.733 5.578722
## 1962   1.7360  499.7900 6.214188  0.067356737  281.089 5.638671
## 1963   1.9226  530.7824 6.274352  0.060164134  303.005 5.713749
## 1964   2.1244  551.6726 6.312955  0.038602610  316.407 5.757029
## 1965   2.2742  577.0208 6.357878  0.044923560  331.037 5.802230
## 1966   2.4396  615.5704 6.422549  0.064671003  354.387 5.870390
## 1967   2.8269  662.8581 6.496561  0.074011622  380.134 5.940524
## 1968   2.9974  711.4136 6.567254  0.070693036  397.411 5.984971
## 1969   3.2274  758.2946 6.631072  0.063817988  424.558 6.051049
## 1970   3.5467  803.9383 6.689523  0.058450560  462.335 6.136290
## 2019 261.0700 1462.4450 7.287865  0.001340436 1047.796 6.954444
## 2020 231.2728 1328.1982 7.191579 -0.096286406  933.359 6.838790
## 2021 254.9890 1406.6220 7.248946  0.057367798 1001.335 6.909089
## 2022       NA        NA       NA           NA       NA       NA
##              C_dl        W      W_l         W_dl        R      R_l
## 1960           NA 330.0277 5.799177           NA 100.7555 4.612697
## 1961  0.059411163 344.8710 5.843170  0.043993810 122.3635 4.806996
## 1962  0.059949574 364.2978 5.897972  0.054801183 135.4922 4.908914
## 1963  0.075077962 393.4917 5.975060  0.077088477 137.2907 4.922100
## 1964  0.043280053 409.9888 6.016130  0.041069685 141.6838 4.953598
## 1965  0.045200792 419.7510 6.039662  0.023531921 157.2698 5.057963
## 1966  0.068159385 433.8750 6.072756  0.033094715 181.6954 5.202332
## 1967  0.070134286 461.9448 6.135445  0.062688996 200.9133 5.302874
## 1968  0.044447188 485.6256 6.185438  0.049992595 225.7880 5.419597
## 1969  0.066077618 502.8471 6.220286  0.034848269 255.4475 5.543017
## 1970  0.085241109 543.4264 6.297894  0.077608094 260.5119 5.562648
## 2019  0.004119004 884.4260 6.784939  0.006163315 578.0190 6.359607
## 2020 -0.115654282 795.2003 6.678594 -0.106344700 532.9979 6.278517
## 2021  0.070299482 853.6234 6.749490  0.070896065 552.9986 6.315355
## 2022           NA       NA       NA           NA       NA       NA
##              R_dl       It     It_l        It_dl   Itcurr Itcurr_l
## 1960           NA 117.9788 4.770505           NA   3.3193 1.199754
## 1961  0.194299420 130.9560 4.874861  0.104356442   3.8170 1.339465
## 1962  0.101918072 144.1251 4.970682  0.095820284   4.3677 1.474237
## 1963  0.013186040 149.6473 5.008281  0.037599520   4.8229 1.573375
## 1964  0.031497766 152.0058 5.023919  0.015637486   5.2703 1.662087
## 1965  0.104364737 153.2008 5.031749  0.007830801   5.3501 1.677115
## 1966  0.144369041 156.6598 5.054077  0.022327096   5.5619 1.715940
## 1967  0.100541651 170.8927 5.141036  0.086959299   6.2245 1.828493
## 1968  0.116722938 188.4546 5.238857  0.097821255   6.9846 1.943708
## 1969  0.123420250 207.3396 5.334358  0.095500900   8.1183 2.094121
## 1970  0.019631700 218.7218 5.387801  0.053442574   9.4219 2.243037
## 2019 -0.005994312 314.6652 5.751509  0.013923884 322.7238 5.776797
## 2020 -0.081089429 269.9046 5.598069 -0.153440653 277.9232 5.627345
## 2021  0.036838007 304.8810 5.719922  0.121852973 316.7099 5.757986
## 2022           NA       NA       NA           NA       NA       NA
##        Itcurr_dl      Ipr    Ipr_l      Ipr_dl       Ips      Ips_l
## 1960          NA       NA       NA          NA        NA         NA
## 1961  0.13971086       NA       NA          NA        NA         NA
## 1962  0.13477178       NA       NA          NA        NA         NA
## 1963  0.09913885       NA       NA          NA        NA         NA
## 1964  0.08871188       NA       NA          NA        NA         NA
## 1965  0.01502797       NA       NA          NA        NA         NA
## 1966  0.03882452       NA       NA          NA        NA         NA
## 1967  0.11255334       NA       NA          NA        NA         NA
## 1968  0.11521461       NA       NA          NA        NA         NA
## 1969  0.15041305       NA       NA          NA        NA         NA
## 1970  0.14891599   8.1634 2.099661          NA 0.8664282 -0.1433760
## 2019  0.02383889 282.2298 5.642722  0.01750845 0.8745243 -0.1340752
## 2020 -0.14945203 235.1314 5.460145 -0.18257713 0.8460301 -0.1672003
## 2021  0.13064140 271.0898 5.602450  0.14230562 0.8559562 -0.1555361
## 2022          NA       NA       NA          NA        NA         NA
##            Ips_dl        I      I_l         I_dl          r      r_l
## 1960           NA       NA       NA           NA         NA       NA
## 1961           NA       NA       NA           NA  0.9116588 2.385399
## 1962           NA       NA       NA           NA -0.2776243 2.269454
## 1963           NA       NA       NA           NA -3.0642775 1.929703
## 1964           NA       NA       NA           NA -0.3311640 2.263904
## 1965           NA       NA       NA           NA  1.9909496 2.480119
## 1966           NA       NA       NA           NA  3.0044338 2.561572
## 1967           NA       NA       NA           NA  2.4311780 2.516318
## 1968           NA       NA       NA           NA  4.2690621 2.654706
## 1969           NA       NA       NA           NA  1.9775263 2.478995
## 1970           NA 189.5067 5.244425           NA  1.1432835 2.406497
## 2019 -0.006330436 275.1824 5.617434  0.007593448  1.0275322 2.396009
## 2020 -0.033125093 228.3474 5.430868 -0.186565747         NA       NA
## 2021  0.011664228 260.9648 5.564385  0.133517201         NA       NA
## 2022           NA       NA       NA           NA         NA       NA
##             r_dl          P      P_l        P_dl         Pm     Pm_l
## 1960          NA   2.934149 1.076417          NA   4.956900 1.600781
## 1961          NA   3.052151 1.115847 0.039429126   4.854311 1.579867
## 1962 -0.11594541   3.215211 1.167893 0.052046335   4.859078 1.580849
## 1963 -0.33975115   3.488993 1.249613 0.081720118   4.942548 1.597881
## 1964  0.33420146   3.701519 1.308743 0.059130208   5.068262 1.622998
## 1965  0.21621523   3.824879 1.341527 0.032783688   5.108458 1.630898
## 1966  0.08145308   3.917176 1.365371 0.023844125   5.219845 1.652468
## 1967 -0.04525448   4.037976 1.395744 0.030372538   5.254982 1.659177
## 1968  0.13838790   4.089906 1.408522 0.012778361   5.223688 1.653204
## 1969 -0.17571111   4.243210 1.445320 0.036798049   5.260635 1.660252
## 1970 -0.07249807   4.519539 1.508410 0.063089942   5.478125 1.700763
## 2019 -0.05918707 103.721999 4.641714 0.009089422 101.615409 4.621195
## 2020          NA 104.631305 4.650443 0.008728558  98.436920 4.589416
## 2021          NA 105.624967 4.659895 0.009451984  99.476086 4.599917
## 2022          NA         NA       NA          NA         NA       NA
##              Pm_dl         Px     Px_l        Px_dl        X      X_l
## 1960            NA   5.505418 1.705733           NA  30.0564 3.403076
## 1961 -0.0209134306   5.419484 1.690001 -0.015732218  34.7911 3.549362
## 1962  0.0009815731   5.415327 1.689233 -0.000767360  38.9160 3.661405
## 1963  0.0170322797   5.587560 1.720543  0.031309488  41.4361 3.724152
## 1964  0.0251169506   5.777120 1.753905  0.033362591  46.0609 3.829964
## 1965  0.0078997178   5.787529 1.755705  0.001800211  55.0716 4.008634
## 1966  0.0215700901   5.729372 1.745606 -0.010099626  62.0683 4.128235
## 1967  0.0067089088   5.782883 1.754902  0.009296422  65.9620 4.189079
## 1968 -0.0059729893   5.738608 1.747217 -0.007685536  75.7787 4.327817
## 1969  0.0070481141   5.840115 1.764751  0.017533832  85.7404 4.451324
## 1970  0.0405112005   6.129273 1.813076  0.048325523  90.9535 4.510348
## 2019 -0.0022558326 103.360493 4.638223  0.005328443 546.6341 6.303780
## 2020 -0.0317792421 102.702375 4.631835 -0.006387563 475.3876 6.164130
## 2021  0.0105013356 104.181840 4.646138  0.014302586 525.4944 6.264340
## 2022            NA         NA       NA           NA       NA       NA
##             X_dl        M      M_l         M_dl      rulc     rulc_l
## 1960          NA  34.0391 3.527510           NA 0.7635977 -0.2697142
## 1961  0.14628599  38.8274 3.659126  0.131616319 0.7356541 -0.3069952
## 1962  0.11204387  44.9519 3.805593  0.146466846 0.7263786 -0.3196839
## 1963  0.06274700  54.7369 4.002538  0.196945041 0.7386672 -0.3029078
## 1964  0.10581195  51.6926 3.945315 -0.057223433 0.7403232 -0.3006685
## 1965  0.17866972  52.3941 3.958794  0.013479352 0.7245894 -0.3221502
## 1966  0.11960123  59.2918 4.082471  0.123677027 0.7020517 -0.3537483
## 1967  0.06084343  66.7190 4.200490  0.118018753 0.6939390 -0.3653712
## 1968  0.13873843  71.3805 4.268025  0.067534953 0.6797566 -0.3860205
## 1969  0.12350688  85.6550 4.450328  0.182302877 0.6603186 -0.4150328
## 1970  0.05902426 100.1503 4.606672  0.156344457 0.6729864 -0.3960302
## 2019  0.01165197 501.9783 6.218557 -0.003915204 0.5131525 -0.6671823
## 2020 -0.13964919 433.9401 6.072907 -0.145650386 0.5099167 -0.6735078
## 2021  0.10020906 487.0374 6.188341  0.115434411 0.5137324 -0.6660527
## 2022          NA       NA       NA           NA        NA         NA
##           rulc_dl       ulc     ulc_l       ulc_dl       Tau    Tau_l
## 1960           NA  2.240509 0.8067033           NA  49.69702 3.905945
## 1961 -0.037281005  2.245328 0.8088514  0.002148121  52.80295 3.966567
## 1962 -0.012688694  2.335460 0.8482090  0.039357641  55.69519 4.019894
## 1963  0.016776128  2.577205 0.9467053  0.098496246  58.57777 4.070355
## 1964  0.002239291  2.740320 1.0080748  0.061369499  59.96867 4.093822
## 1965 -0.021481733  2.771467 1.0193767  0.011301956  62.36702 4.133037
## 1966 -0.031598076  2.750060 1.0116228 -0.007753951  66.14181 4.191801
## 1967 -0.011622951  2.802109 1.0303724  0.018749587  69.50576 4.241410
## 1968 -0.020649246  2.780141 1.0225015 -0.007870885  73.24927 4.293868
## 1969 -0.029012366  2.801870 1.0302872  0.007785683  76.24270 4.333922
## 1970  0.019002678  3.041588 1.1123798  0.082092620  79.09639 4.370667
## 2019  0.003155050 53.225198 3.9745319  0.012244471 102.12504 4.626198
## 2020 -0.006325551 53.353252 3.9769349  0.002403007  97.17780 4.576542
## 2021  0.007455112 54.262970 3.9938420  0.016907096 100.19593 4.607128
## 2022           NA        NA        NA           NA        NA       NA
##             Tau_dl       dPxdPm        dPdPm     Trade
## 1960            NA           NA           NA 0.1483002
## 1961  0.0606220698  0.005181212  0.060342556 0.1570377
## 1962  0.0533268429 -0.001748933  0.051064762 0.1672254
## 1963  0.0504614256  0.014277208  0.064687838 0.1805371
## 1964  0.0234669684  0.008245640  0.034013257 0.1765150
## 1965  0.0392143733 -0.006099507  0.024883971 0.1855112
## 1966  0.0587645537 -0.031669716  0.002274035 0.1963724
## 1967  0.0496084681  0.002587513  0.023663630 0.1993150
## 1968  0.0524587297 -0.001712547  0.018751351 0.2059867
## 1969  0.0400533260  0.010485718  0.029749935 0.2250695
## 1970  0.0367455156  0.007814322  0.022578742 0.2366654
## 2019  0.0009893751  0.007584276  0.011345254 0.6084150
## 2020 -0.0496555870  0.025391680  0.040507800 0.5831001
## 2021  0.0305852083  0.003801250 -0.001049351 0.6093675
## 2022            NA           NA           NA        NA
ITA <- ITA_df[12:59,]
ITA[!complete.cases(ITA),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
ITA %>% head()
##             WS       WS_l        WS_dl        PS      PS_l       PS_dl
## 1971 0.7002960 -0.3562522  0.035376026 0.2997040 -1.204960 -0.07808588
## 1972 0.6936531 -0.3657833 -0.009531126 0.3063469 -1.183037  0.02192281
## 1973 0.6874447 -0.3747739 -0.008990584 0.3125553 -1.162974  0.02006328
## 1974 0.6785309 -0.3878252 -0.013051299 0.3214691 -1.134854  0.02811986
## 1975 0.6968316 -0.3612115  0.026613704 0.3031684 -1.193467 -0.05861290
## 1976 0.6870564 -0.3753389 -0.014127456 0.3129436 -1.161732  0.03173470
##            Y      Y_l        Y_dl            Yrw    Yrw_l         Yrw_dl
## 1971 820.524 6.709943  0.01601868 14767527855898 30.32345  0.03914443658
## 1972 848.631 6.743624  0.03368130 15607606411954 30.37878  0.05532767944
## 1973 905.656 6.808660  0.06503508 16593843375359 30.44005  0.06127335963
## 1974 951.388 6.857922  0.04926243 16835764174618 30.45453  0.01447369803
## 1975 928.439 6.833505 -0.02441729 16834683365269 30.45446 -0.00006419929
## 1976 990.177 6.897884  0.06437903 17693837785669 30.50424  0.04977518695
##         Tax       Yf     Yf_l       Yf_dl       C      C_l         C_dl
## 1971 3.8304 816.6936 6.705264  0.01574147 478.513 6.170683  0.034393642
## 1972 3.9539 844.6771 6.738954  0.03369043 493.018 6.200546  0.029862306
## 1973 4.5145 901.1415 6.803662  0.06470787 520.072 6.253967  0.053421579
## 1974 5.5510 945.8370 6.852070  0.04840796 534.583 6.281487  0.027519740
## 1975 5.6715 922.7675 6.827377 -0.02469294 534.345 6.281042 -0.000445306
## 1976 7.6708 982.5062 6.890107  0.06272935 556.429 6.321540  0.040497882
##             W      W_l        W_dl        R      R_l        R_dl       It
## 1971 571.9273 6.349012 0.051117495 244.7663 5.500304 -0.06234441 221.5380
## 1972 585.9129 6.373171 0.024159304 258.7642 5.555917  0.05561324 228.5571
## 1973 619.4849 6.428888 0.055717285 281.6566 5.640688  0.08477115 242.5159
## 1974 641.7797 6.464245 0.035356657 304.0573 5.717216  0.07652782 247.3642
## 1975 643.0136 6.466166 0.001920761 279.7539 5.633910 -0.08330584 230.6903
## 1976 675.0371 6.514768 0.048601891 307.4691 5.728374  0.09446405 229.5425
##          It_l        It_dl  Itcurr Itcurr_l  Itcurr_dl     Ipr    Ipr_l
## 1971 5.400594  0.012793530 10.1049 2.313020 0.06998369  8.7782 2.172271
## 1972 5.431786  0.031191937 10.8501 2.384174 0.07115384  9.3561 2.236029
## 1973 5.491067  0.059281206 13.8761 2.630168 0.24599364 12.1931 2.500870
## 1974 5.510862  0.019794469 18.3574 2.910033 0.27986483 16.0884 2.778099
## 1975 5.441076 -0.069785626 20.2450 3.007908 0.09787509 17.4110 2.857102
## 1976 5.436088 -0.004987921 24.1847 3.185720 0.17781235 20.7607 3.033062
##          Ipr_dl       Ips      Ips_l       Ips_dl        I      I_l
## 1971 0.07261063 0.8687073 -0.1407491  0.002626938 192.4517 5.259845
## 1972 0.06375716 0.8623054 -0.1481458 -0.007396680 197.0860 5.283640
## 1973 0.26484168 0.8787123 -0.1292977  0.018848042 213.1017 5.361770
## 1974 0.27722830 0.8763986 -0.1319342 -0.002636530 216.7896 5.378927
## 1975 0.07900367 0.8600148 -0.1508057 -0.018871412 198.3971 5.290270
## 1976 0.17595959 0.8584229 -0.1526584 -0.001852766 197.0445 5.283430
##              I_dl          r      r_l        r_dl        P      P_l
## 1971  0.015420468 -0.4456428 2.251933 -0.15456329 4.857554 1.580535
## 1972  0.023795257  0.5443965 2.351007  0.09907385 5.149632 1.638925
## 1973  0.078129247 -5.3710974 1.521839 -0.82916809 5.818504 1.761043
## 1974  0.017157940 -8.9517388 0.000000 -1.52183903 7.004706 1.946582
## 1975 -0.088657038 -6.2849747 1.299310  1.29930956 8.224912 2.107168
## 1976 -0.006840687 -4.3150088 1.729304  0.42999455 9.684053 2.270481
##            P_dl        Pm     Pm_l      Pm_dl        Px     Px_l
## 1971 0.07212505  5.783329 1.754980 0.05421657  6.432668 1.861389
## 1972 0.05839032  6.056809 1.801183 0.04620357  6.840073 1.922798
## 1973 0.12211792  7.757659 2.048681 0.24749744  7.738240 2.046174
## 1974 0.18553892 11.893787 2.476016 0.42733558 10.597612 2.360629
## 1975 0.16058540 13.351952 2.591663 0.11564645 12.140021 2.496508
## 1976 0.16331298 16.832249 2.823297 0.23163406 14.682798 2.686677
##           Px_dl        X      X_l       X_dl        M      M_l        M_dl
## 1971 0.04831324  97.1694 4.576456 0.06610746 102.6689 4.631509  0.02483719
## 1972 0.06140908 104.8014 4.652067 0.07561128 112.3684 4.721783  0.09027351
## 1973 0.12337588 110.4503 4.704566 0.05249852 122.6520 4.809351  0.08756832
## 1974 0.31445442 117.6728 4.767908 0.06334225 125.8545 4.835126  0.02577540
## 1975 0.13587883 118.9758 4.778920 0.01101222 107.5694 4.678136 -0.15699026
## 1976 0.19016904 132.4471 4.886183 0.10726321 121.6210 4.800910  0.12277343
##           rulc     rulc_l      rulc_dl      ulc    ulc_l     ulc_dl
## 1971 0.6970269 -0.3609313  0.035098814 3.385845 1.219604 0.10722386
## 1972 0.6904213 -0.3704533 -0.009521998 3.555416 1.268472 0.04886832
## 1973 0.6840179 -0.3797711 -0.009317795 3.979961 1.381272 0.11280013
## 1974 0.6745720 -0.3936769 -0.013905770 4.725178 1.552905 0.17163315
## 1975 0.6925749 -0.3673389  0.026338051 5.696367 1.739829 0.18692345
## 1976 0.6817338 -0.3831160 -0.015777143 6.601947 1.887365 0.14753584
##           Tau    Tau_l       Tau_dl       dPxdPm       dPdPm     Trade
## 1971 78.84174 4.367443 -0.003224671 -0.005903336  0.01790847 0.2435496
## 1972 80.28024 4.385523  0.018080973  0.015205511  0.01218674 0.2559060
## 1973 82.88865 4.417498  0.031974695 -0.124121556 -0.12537951 0.2573850
## 1974 84.40922 4.435677  0.018178509 -0.112881161 -0.24179667 0.2559705
## 1975 81.14036 4.396181 -0.039496169  0.020232375  0.04493894 0.2440066
## 1976 84.57981 4.437696  0.041515025 -0.041465018 -0.06832108 0.2565886

DATA

ITA %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1971 0.7002960 -0.3562522  0.0353760261 0.2997040 -1.2049600 -0.0780858824
## 1972 0.6936531 -0.3657833 -0.0095311261 0.3063469 -1.1830371  0.0219228054
## 1973 0.6874447 -0.3747739 -0.0089905839 0.3125553 -1.1629739  0.0200632805
## 1974 0.6785309 -0.3878252 -0.0130512993 0.3214691 -1.1348540  0.0281198642
## 1975 0.6968316 -0.3612115  0.0266137042 0.3031684 -1.1934669 -0.0586128972
## 1976 0.6870564 -0.3753389 -0.0141274564 0.3129436 -1.1617322  0.0317347043
## 1977 0.6910977 -0.3694741  0.0058648488 0.3089023 -1.1747302 -0.0129980036
## 1978 0.6835065 -0.3805192 -0.0110450811 0.3164935 -1.1504524  0.0242777525
## 1979 0.6730626 -0.3959169 -0.0153977019 0.3269374 -1.1179867  0.0324657530
## 1980 0.6692219 -0.4016396 -0.0057226770 0.3307781 -1.1063076  0.0116791045
## 1981 0.6786843 -0.3875992  0.0140403100 0.3213157 -1.1353311 -0.0290234908
## 1982 0.6732748 -0.3956017 -0.0080024283 0.3267252 -1.1186359  0.0166951644
## 1983 0.6751814 -0.3927739  0.0028278104 0.3248186 -1.1244885 -0.0058525415
## 1984 0.6593915 -0.4164379 -0.0236640125 0.3406085 -1.0770215  0.0474669651
## 1985 0.6515103 -0.4284621 -0.0120242482 0.3484897 -1.0541465  0.0228749750
## 1986 0.6370148 -0.4509625 -0.0225003462 0.3629852 -1.0133931  0.0407534336
## 1987 0.6335361 -0.4564383 -0.0054758544 0.3664639 -1.0038552  0.0095378637
## 1988 0.6286626 -0.4641605 -0.0077222155 0.3713374 -0.9906443  0.0132109605
## 1989 0.6249150 -0.4701397 -0.0059791451 0.3750850 -0.9806025  0.0100417176
## 1990 0.6355815 -0.4532149  0.0169248077 0.3644185 -1.0094525 -0.0288499409
## 1991 0.6402591 -0.4458824  0.0073325238 0.3597409 -1.0223712 -0.0129187312
## 1992 0.6372360 -0.4506152 -0.0047328332 0.3627640 -1.0140028  0.0083683797
## 1993 0.6285830 -0.4642872 -0.0136720079 0.3714170 -0.9904299  0.0235729607
## 1994 0.6085316 -0.4967064 -0.0324191865 0.3914684 -0.9378506  0.0525792979
## 1995 0.5896888 -0.5281603 -0.0314539068 0.4103112 -0.8908395  0.0470111132
## 1996 0.5949807 -0.5192263  0.0089339905 0.4050193 -0.9038206 -0.0129811226
## 1997 0.6012821 -0.5086911  0.0105351707 0.3987179 -0.9195010 -0.0156804661
## 1998 0.5944185 -0.5201716 -0.0114804799 0.4055815 -0.9024335  0.0170675240
## 1999 0.5934366 -0.5218248 -0.0016532423 0.4065634 -0.9000155  0.0024180576
## 2000 0.5838736 -0.5380707 -0.0162458797 0.4161264 -0.8767663  0.0232492035
## 2001 0.5808053 -0.5433396 -0.0052688976 0.4191947 -0.8694199  0.0073463822
## 2002 0.5850329 -0.5360872  0.0072524376 0.4149671 -0.8795561 -0.0101361688
## 2003 0.5896715 -0.5281897  0.0078974934 0.4103285 -0.8907972 -0.0112411476
## 2004 0.5904561 -0.5268600  0.0013296886 0.4095439 -0.8927112 -0.0019139594
## 2005 0.5947213 -0.5196623  0.0071976825 0.4052787 -0.9031804 -0.0104692386
## 2006 0.6001288 -0.5106110  0.0090512808 0.3998712 -0.9166127 -0.0134322971
## 2007 0.5969369 -0.5159438 -0.0053327676 0.4030631 -0.9086622  0.0079504533
## 2008 0.6007977 -0.5094971  0.0064467327 0.3992023 -0.9182869 -0.0096246299
## 2009 0.6127660 -0.4897721  0.0197249462 0.3872340 -0.9487261 -0.0304392730
## 2010 0.6138845 -0.4879485  0.0018236691 0.3861155 -0.9516188 -0.0028926192
## 2011 0.6082044 -0.4972442 -0.0092957602 0.3917956 -0.9370151  0.0146036822
## 2012 0.6151942 -0.4858173  0.0114269232 0.3848058 -0.9550165 -0.0180013942
## 2013 0.6099087 -0.4944460 -0.0086287493 0.3900913 -0.9413744  0.0136420739
## 2014 0.6072199 -0.4988643 -0.0044182290 0.3927801 -0.9345054  0.0068690273
## 2015 0.6073295 -0.4986838  0.0001804999 0.3926705 -0.9347845 -0.0002791086
## 2016 0.5973600 -0.5152353 -0.0165515018 0.4026400 -0.9097125  0.0250719835
## 2017 0.5948841 -0.5193886 -0.0041533717 0.4051159 -0.9035821  0.0061303691
## 2018 0.6018488 -0.5077491  0.0116395891 0.3981512 -0.9209234 -0.0173412693
##             Y      Y_l           Y_dl            Yrw    Yrw_l
## 1971  820.524 6.709943  0.01601868149 14767527855898 30.32345
## 1972  848.631 6.743624  0.03368130230 15607606411954 30.37878
## 1973  905.656 6.808660  0.06503508014 16593843375359 30.44005
## 1974  951.388 6.857922  0.04926242793 16835764174618 30.45453
## 1975  928.439 6.833505 -0.02441728965 16834683365269 30.45446
## 1976  990.177 6.897884  0.06437903375 17693837785669 30.50424
## 1977 1011.851 6.919537  0.02165289078 18395724734614 30.54314
## 1978 1041.182 6.948112  0.02857527942 19151473871883 30.58340
## 1979 1099.054 7.002205  0.05409320355 19948611235401 30.62418
## 1980 1133.116 7.032727  0.03052155007 20290389481731 30.64117
## 1981 1139.424 7.038278  0.00555151170 20725086730912 30.66237
## 1982 1141.199 7.039835  0.00155659253 20688163668514 30.66058
## 1983 1151.756 7.049043  0.00920827020 21228631144945 30.68637
## 1984 1186.455 7.078725  0.02968213522 22222578972677 30.73213
## 1985 1217.552 7.104598  0.02587241604 23010361621865 30.76697
## 1986 1250.546 7.131336  0.02673797041 23756254300641 30.79887
## 1987 1288.900 7.161544  0.03020888548 24560786780535 30.83217
## 1988 1340.830 7.201044  0.03949968377 25730381245381 30.87869
## 1989 1384.439 7.233050  0.03200617823 26754058214818 30.91771
## 1990 1411.885 7.252681  0.01963068756 27635784136437 30.95013
## 1991 1432.202 7.266968  0.01428742905 28099310522793 30.96677
## 1992 1442.554 7.274170  0.00720203367 28709010401657 30.98823
## 1993 1430.509 7.265786 -0.00838482871 29032321919574 30.99943
## 1994 1460.181 7.286316  0.02053007564 29945309211125 31.03039
## 1995 1499.355 7.312790  0.02647461499 30807866467078 31.05879
## 1996 1518.349 7.325379  0.01258854469 31728539310277 31.08824
## 1997 1546.138 7.343515  0.01813664847 32780930564991 31.12087
## 1998 1574.132 7.361459  0.01794380045 33656579097792 31.14723
## 1999 1599.723 7.377586  0.01612648001 34750520882540 31.17922
## 2000 1660.304 7.414756  0.03717022887 36163138630728 31.21906
## 2001 1692.703 7.434082  0.01932594140 36675293279018 31.23312
## 2002 1697.001 7.436618  0.00253591600 37214475059064 31.24772
## 2003 1699.354 7.438003  0.00138560332 38004498883695 31.26873
## 2004 1723.546 7.452139  0.01413561765 39285685521474 31.30188
## 2005 1737.642 7.460284  0.00814522524 40401947992662 31.32990
## 2006 1768.757 7.478032  0.01774801826 41675488143131 31.36093
## 2007 1795.059 7.492793  0.01476085048 42846934030212 31.38866
## 2008 1777.791 7.483127 -0.00966630810 43028074107892 31.39287
## 2009 1683.907 7.428872 -0.05425489373 41623511150901 31.35969
## 2010 1712.757 7.445860  0.01698766425 42881408039386 31.38946
## 2011 1724.872 7.452908  0.00704849194 43686319754940 31.40806
## 2012 1673.455 7.422646 -0.03026249328 44241322044514 31.42068
## 2013 1642.646 7.404064 -0.01858199524 44860477744591 31.43458
## 2014 1642.571 7.404018 -0.00004565908 45754251339287 31.45431
## 2015 1655.355 7.411771  0.00775279011 46819815385612 31.47733
## 2016 1676.766 7.424622  0.01285145088 47616461798379 31.49420
## 2017 1704.733 7.441164  0.01654156201 48724415070721 31.51720
## 2018 1718.338 7.449113  0.00794904437 49839017741726 31.53982
##              Yrw_dl      Tax        Yf     Yf_l         Yf_dl        C
## 1971  0.03914443658   3.8304  816.6936 6.705264  0.0157414690  478.513
## 1972  0.05532767944   3.9539  844.6771 6.738954  0.0336904302  493.018
## 1973  0.06127335963   4.5145  901.1415 6.803662  0.0647078689  520.072
## 1974  0.01447369803   5.5510  945.8370 6.852070  0.0484079568  534.583
## 1975 -0.00006419929   5.6715  922.7675 6.827377 -0.0246929430  534.345
## 1976  0.04977518695   7.6708  982.5062 6.890107  0.0627293474  556.429
## 1977  0.03890185498  10.0465 1001.8045 6.909558  0.0194514987  570.984
## 1978  0.04026139102  11.5550 1029.6270 6.936952  0.0273937269  584.594
## 1979  0.04077985140  13.4149 1085.6391 6.989924  0.0529722451  622.665
## 1980  0.01698782075  17.8517 1115.2643 7.016847  0.0269225713  658.535
## 1981  0.02119753646  20.3081 1119.1159 7.020294  0.0034475814  667.815
## 1982 -0.00178315258  25.9338 1115.2652 7.016848 -0.0034467744  673.347
## 1983  0.02578906297  32.2465 1119.5095 7.020646  0.0037984188  671.416
## 1984  0.04575804661  37.1522 1149.3028 7.046911  0.0262648547  690.452
## 1985  0.03483577693  40.2269 1177.3251 7.071000  0.0240895032  709.838
## 1986  0.03190121501  45.7679 1204.7781 7.094051  0.0230503998  738.319
## 1987  0.03330530302  51.8685 1237.0315 7.120470  0.0264191573  764.894
## 1988  0.04652130553  61.4959 1279.3341 7.154095  0.0336251503  795.871
## 1989  0.03901372746  67.5865 1316.8525 7.183000  0.0289047113  827.000
## 1990  0.03242528884  77.3519 1334.5331 7.196337  0.0133370733  843.804
## 1991  0.01663357984  88.3805 1343.8215 7.203273  0.0069359279  866.164
## 1992  0.02146598529  93.8449 1348.7091 7.206903  0.0036304920  879.929
## 1993  0.01119873352 102.5136 1327.9954 7.191426 -0.0154773256  853.458
## 1994  0.03096293334 106.5847 1353.5963 7.210520  0.0190943892  866.616
## 1995  0.02839737051 117.1600 1382.1950 7.231428  0.0209078388  879.424
## 1996  0.02944650742 121.9210 1396.4280 7.241673  0.0102447324  888.649
## 1997  0.03263039154 132.4100 1413.7280 7.253985  0.0123126393  919.646
## 1998  0.02636159141 169.8660 1404.2660 7.247270 -0.0067154405  950.600
## 1999  0.03198600881 172.0840 1427.6390 7.263777  0.0165072845  976.756
## 2000  0.03984576885 179.9700 1480.3340 7.300023  0.0362457072 1002.735
## 2001  0.01406299052 184.1550 1508.5480 7.318903  0.0188798608 1009.194
## 2002  0.01459447939 191.3730 1505.6280 7.316965 -0.0019375119 1008.769
## 2003  0.02100674431 192.3080 1507.0460 7.317907  0.0009413565 1015.577
## 2004  0.03315567204 200.6560 1522.8900 7.328365  0.0104584020 1025.445
## 2005  0.02801778501 209.7050 1527.9370 7.331674  0.0033086141 1039.664
## 2006  0.03103514022 226.5450 1542.2120 7.340973  0.0092992900 1053.628
## 2007  0.02772094960 233.8750 1561.1840 7.353200  0.0122267583 1066.135
## 2008  0.00421869762 223.6110 1554.1800 7.348703 -0.0044964324 1054.065
## 2009 -0.03318760937 212.6680 1471.2390 7.293860 -0.0548431724 1038.235
## 2010  0.02977317345 225.2340 1487.5230 7.304868  0.0110074176 1049.140
## 2011  0.01859665104 232.7100 1492.1620 7.307981  0.0031137545 1049.819
## 2012  0.01262423623 248.1360 1425.3190 7.262151 -0.0458304267 1010.821
## 2013  0.01389793848 241.0530 1401.5930 7.245365 -0.0167862014  986.115
## 2014  0.01972753414 249.8640 1392.7070 7.239005 -0.0063601116  987.837
## 2015  0.02302180614 251.1500 1404.2050 7.247227  0.0082219711 1005.936
## 2016  0.01687201856 245.5390 1431.2270 7.266287  0.0190608120 1018.480
## 2017  0.02300170307 253.0810 1451.6520 7.280457  0.0141700999 1034.150
## 2018  0.02261792544 257.8520 1460.4860 7.286525  0.0060670388 1043.489
##           C_l          C_dl        W      W_l          W_dl        R
## 1971 6.170683  0.0343936422 571.9273 6.349012  0.0511174951 244.7663
## 1972 6.200546  0.0298623058 585.9129 6.373171  0.0241593041 258.7642
## 1973 6.253967  0.0534215790 619.4849 6.428888  0.0557172849 281.6566
## 1974 6.281487  0.0275197402 641.7797 6.464245  0.0353566574 304.0573
## 1975 6.281042 -0.0004453060 643.0136 6.466166  0.0019207612 279.7539
## 1976 6.321540  0.0404978817 675.0371 6.514768  0.0486018909 307.4691
## 1977 6.347361  0.0258216088 692.3448 6.540084  0.0253163475 309.4597
## 1978 6.370918  0.0235564009 703.7567 6.556433  0.0163486457 325.8703
## 1979 6.434009  0.0630910643 730.7031 6.594007  0.0375745432 354.9360
## 1980 6.490018  0.0560090174 746.3593 6.615207  0.0211998944 368.9050
## 1981 6.504011  0.0139935182 759.5264 6.632695  0.0174878914 359.5895
## 1982 6.512261  0.0082496095 750.8800 6.621246 -0.0114492027 364.3852
## 1983 6.509389 -0.0028718835 755.8720 6.627872  0.0066262292 363.6375
## 1984 6.537346  0.0279575405 757.8405 6.630473  0.0026008422 391.4623
## 1985 6.565037  0.0276903194 767.0394 6.642538  0.0120652550 410.2857
## 1986 6.604376  0.0393392055 767.4614 6.643088  0.0005500535 437.3167
## 1987 6.639737  0.0353612816 783.7041 6.664032  0.0209433029 453.3274
## 1988 6.679437  0.0396998503 804.2695 6.689934  0.0259029348 475.0646
## 1989 6.717805  0.0383675826 822.9208 6.712860  0.0229255662 493.9317
## 1990 6.737920  0.0201155451 848.2046 6.743122  0.0302618810 486.3285
## 1991 6.764074  0.0261540269 860.3939 6.757390  0.0142684518 483.4276
## 1992 6.779841  0.0157669553 859.4460 6.756288 -0.0011023412 489.2631
## 1993 6.749296 -0.0305448905 834.7553 6.727139 -0.0291493334 493.2401
## 1994 6.764596  0.0152996402 823.7062 6.713814 -0.0133247973 529.8901
## 1995 6.779267  0.0146711756 815.0650 6.703268 -0.0105460680 567.1300
## 1996 6.789702  0.0104351842 830.8477 6.722447  0.0191787228 565.5803
## 1997 6.823989  0.0342864815 850.0493 6.745294  0.0228478100 563.6787
## 1998 6.857093  0.0331045508 834.7217 6.727098 -0.0181959205 569.5443
## 1999 6.884237  0.0271435126 847.2133 6.741952  0.0148540422 580.4257
## 2000 6.910487  0.0262496689 864.3280 6.761952  0.0199998275 616.0060
## 2001 6.916907  0.0064207258 876.1727 6.775563  0.0136109632 632.3753
## 2002 6.916486 -0.0004212168 880.8419 6.780878  0.0053149257 624.7861
## 2003 6.923212  0.0067261483 888.6621 6.789717  0.0088388499 618.3839
## 2004 6.932882  0.0096697408 899.1997 6.801505  0.0117880907 623.6903
## 2005 6.946653  0.0137709193 908.6967 6.812011  0.0105062966 619.2403
## 2006 6.959995  0.0133418626 925.5258 6.830362  0.0183505708 616.6862
## 2007 6.971795  0.0118005127 931.9284 6.837256  0.0068939907 629.2556
## 2008 6.960409 -0.0113858413 933.7477 6.839206  0.0019503003 620.4323
## 2009 6.945277 -0.0151319620 901.5253 6.804088 -0.0351182262 569.7137
## 2010 6.955726  0.0104486249 913.1673 6.816919  0.0128310866 574.3557
## 2011 6.956373  0.0006469874 907.5395 6.810737 -0.0061820058 584.6225
## 2012 6.918518 -0.0378548964 876.8480 6.776334 -0.0344035035 548.4710
## 2013 6.893773 -0.0247451703 854.8437 6.750919 -0.0254149508 546.7493
## 2014 6.895518  0.0017447237 845.6794 6.740140 -0.0107783406 547.0276
## 2015 6.913674  0.0181560260 852.8151 6.748543  0.0084024709 551.3899
## 2016 6.926067  0.0123928684 854.9578 6.751052  0.0025093102 576.2692
## 2017 6.941335  0.0152685135 863.5647 6.761069  0.0100167282 588.0873
## 2018 6.950325  0.0089900728 878.9917 6.778775  0.0177066279 581.4943
##           R_l          R_dl       It     It_l        It_dl   Itcurr
## 1971 5.500304 -0.0623444135 221.5380 5.400594  0.012793530  10.1049
## 1972 5.555917  0.0556132357 228.5571 5.431786  0.031191937  10.8501
## 1973 5.640688  0.0847711493 242.5159 5.491067  0.059281206  13.8761
## 1974 5.717216  0.0765278210 247.3642 5.510862  0.019794469  18.3574
## 1975 5.633910 -0.0833058402 230.6903 5.441076 -0.069785626  20.2450
## 1976 5.728374  0.0944640517 229.5425 5.436088 -0.004987921  24.1847
## 1977 5.734828  0.0064534951 234.2981 5.456594  0.020506039  29.2195
## 1978 5.786499  0.0516714794 235.3240 5.460963  0.004369052  33.5857
## 1979 5.871937  0.0854379981 247.9939 5.513404  0.052440861  41.3251
## 1980 5.910539  0.0386016758 261.1917 5.565255  0.051850471  54.3508
## 1981 5.884963 -0.0255759094 255.7618 5.544247 -0.021008078  65.6459
## 1982 5.898212  0.0132483900 245.8317 5.504647 -0.039599387  73.3435
## 1983 5.896157 -0.0020541227 241.1311 5.485341 -0.019306386  81.3676
## 1984 5.969889  0.0737318198 247.9641 5.513284  0.027943209  92.0187
## 1985 6.016854  0.0469644782 248.9259 5.517155  0.003871284 101.5143
## 1986 6.080658  0.0638038334 255.2584 5.542276  0.025121104 109.1955
## 1987 6.116615  0.0359570211 265.1220 5.580190  0.037913732 119.3668
## 1988 6.163451  0.0468361108 281.2296 5.639171  0.058981320 135.1001
## 1989 6.202397  0.0389464289 291.1154 5.673720  0.034548335 147.8832
## 1990 6.186884 -0.0155128676 301.1440 5.707589  0.033868804 163.9165
## 1991 6.180901 -0.0059828033 303.6504 5.715877  0.008288484 175.7523
## 1992 6.192900  0.0119988717 298.3206 5.698169 -0.017708293 180.0620
## 1993 6.200996  0.0080956351 267.2617 5.588228 -0.109940419 167.7775
## 1994 6.272670  0.0716736871 266.0850 5.583816 -0.004412522 173.5910
## 1995 6.340589  0.0679189520 281.2746 5.639331  0.055515610 191.4484
## 1996 6.337852 -0.0027363902 288.2570 5.663852  0.024521027 200.7781
## 1997 6.334484 -0.0033678268 293.9381 5.683369  0.019516758 209.3577
## 1998 6.344836  0.0103520834 305.8390 5.723059  0.039689619 221.9305
## 1999 6.363762  0.0189253420 319.1734 5.765735  0.042675709 233.6297
## 2000 6.423257  0.0594949107 340.9067 5.831609  0.065874304 257.3756
## 2001 6.449483  0.0262262430 350.0175 5.857983  0.026374320 270.2311
## 2002 6.437409 -0.0120736807 363.5115 5.895811  0.037827780 288.4612
## 2003 6.427110 -0.0102997911 361.2405 5.889544 -0.006266992 291.1466
## 2004 6.435654  0.0085444427 367.0809 5.905582  0.016038318 304.4660
## 2005 6.428493 -0.0071606245 372.7722 5.920968  0.015385249 317.8703
## 2006 6.424360 -0.0041330071 382.2428 5.946056  0.025088500 335.0756
## 2007 6.444538  0.0201772115 388.0610 5.961163  0.015106535 349.7833
## 2008 6.430416 -0.0141210623 375.8158 5.929099 -0.032063414 348.4677
## 2009 6.345134 -0.0852824454 339.1846 5.826545 -0.102554628 317.1943
## 2010 6.353249  0.0081147984 338.5056 5.824541 -0.002003866 322.6462
## 2011 6.370966  0.0177174367 333.6557 5.810110 -0.014431013 325.0336
## 2012 6.307134 -0.0638318209 301.1584 5.707636 -0.102473251 297.4048
## 2013 6.303990 -0.0031441275 281.7469 5.641009 -0.066627222 277.4672
## 2014 6.304499  0.0005089156 275.4936 5.618564 -0.022444752 272.1375
## 2015 6.312442  0.0079428625 280.3421 5.636011  0.017446245 280.3421
## 2016 6.356575  0.0441327954 291.5369 5.675167  0.039155941 291.1835
## 2017 6.376875  0.0203004691 300.9165 5.706833  0.031666233 303.5699
## 2018 6.365601 -0.0112742305 310.3142 5.737585  0.030752515 315.1214
##      Itcurr_l    Itcurr_dl      Ipr    Ipr_l       Ipr_dl       Ips
## 1971 2.313020  0.069983688   8.7782 2.172271  0.072610626 0.8687073
## 1972 2.384174  0.071153842   9.3561 2.236029  0.063757162 0.8623054
## 1973 2.630168  0.245993639  12.1931 2.500870  0.264841681 0.8787123
## 1974 2.910033  0.279864827  16.0884 2.778099  0.277228297 0.8763986
## 1975 3.007908  0.097875087  17.4110 2.857102  0.079003675 0.8600148
## 1976 3.185720  0.177812352  20.7607 3.033062  0.175959586 0.8584229
## 1977 3.374836  0.189116093  25.1545 3.225037  0.191975031 0.8608806
## 1978 3.514100  0.139264087  29.0987 3.370693  0.145656693 0.8664015
## 1979 3.721470  0.207369682  35.9308 3.581595  0.210901367 0.8694667
## 1980 3.995459  0.273989269  46.5981 3.841560  0.259964901 0.8573581
## 1981 4.184275  0.188815814  55.1014 4.009175  0.167615356 0.8393731
## 1982 4.295154  0.110878738  61.1114 4.112698  0.103523304 0.8332218
## 1983 4.398977  0.103823275  67.5020 4.212157  0.099458799 0.8295931
## 1984 4.521992  0.123014658  76.5071 4.337384  0.125226320 0.8314299
## 1985 4.620200  0.098207858  83.7120 4.427382  0.089998789 0.8246326
## 1986 4.693140  0.072940178  90.1227 4.501172  0.073789739 0.8253335
## 1987 4.782201  0.089061252  98.6071 4.591143  0.089971192 0.8260848
## 1988 4.906016  0.123814880 112.3162 4.721318  0.130174841 0.8313554
## 1989 4.996423  0.090406788 123.2602 4.814298  0.092979460 0.8334970
## 1990 5.099357  0.102934379 136.4844 4.916210  0.101912754 0.8326459
## 1991 5.169076  0.069718466 146.2978 4.985644  0.069433948 0.8324090
## 1992 5.193301  0.024225619 150.9602 5.017016  0.031371956 0.8383790
## 1993 5.122639 -0.070662539 141.3641 4.951339 -0.065677394 0.8425689
## 1994 5.156702  0.034063261 148.9569 5.003657  0.052318171 0.8580911
## 1995 5.254618  0.097916363 165.7814 5.110670  0.107013051 0.8659325
## 1996 5.302200  0.047581998 172.7101 5.151614  0.040944413 0.8602039
## 1997 5.344044  0.041843954 179.9237 5.192533  0.040918406 0.8594081
## 1998 5.402364  0.058319997 190.1855 5.248000  0.055467040 0.8569597
## 1999 5.453737  0.051373113 199.6027 5.296329  0.048328979 0.8543550
## 2000 5.550536  0.096799113 222.1496 5.403351  0.107022138 0.8631339
## 2001 5.599278  0.048741022 230.9201 5.442072  0.038720734 0.8545282
## 2002 5.664561  0.065283069 254.6922 5.540056  0.097983994 0.8829340
## 2003 5.673827  0.009266332 247.9876 5.513379 -0.026677012 0.8517620
## 2004 5.718559  0.044732502 258.3220 5.554207  0.040828124 0.8484428
## 2005 5.761643  0.043084015 269.8683 5.597934  0.043727193 0.8489887
## 2006 5.814356  0.052712740 285.6026 5.654601  0.056667272 0.8523527
## 2007 5.857314  0.042957642 298.5263 5.698858  0.044256702 0.8534607
## 2008 5.853546 -0.003768277 296.8217 5.693132 -0.005726414 0.8517911
## 2009 5.759515 -0.094031023 259.4353 5.558507 -0.134624276 0.8179066
## 2010 5.776556  0.017041847 272.7042 5.608388  0.049880345 0.8452113
## 2011 5.783929  0.007372195 276.9696 5.623908  0.015520062 0.8521261
## 2012 5.695094 -0.088834388 254.5428 5.539469 -0.084438758 0.8558799
## 2013 5.625703 -0.069391446 236.9422 5.467816 -0.071652765 0.8539467
## 2014 5.606307 -0.019395275 234.3375 5.456762 -0.011053846 0.8610996
## 2015 5.636011  0.029703190 240.5781 5.483045  0.026282393 0.8581590
## 2016 5.673954  0.037943010 252.1615 5.530070  0.047024978 0.8659883
## 2017 5.715612  0.041658244 265.2939 5.580838  0.050768513 0.8739137
## 2018 5.752958  0.037346064 277.3314 5.625213  0.044374913 0.8800780
##           Ips_l        Ips_dl        I      I_l         I_dl          r
## 1971 -0.1407491  0.0026269384 192.4517 5.259845  0.015420468 -0.4456428
## 1972 -0.1481458 -0.0073966801 197.0860 5.283640  0.023795257  0.5443965
## 1973 -0.1292977  0.0188480417 213.1017 5.361770  0.078129247 -5.3710974
## 1974 -0.1319342 -0.0026365298 216.7896 5.378927  0.017157940 -8.9517388
## 1975 -0.1508057 -0.0188714115 198.3971 5.290270 -0.088657038 -6.2849747
## 1976 -0.1526584 -0.0018527663 197.0445 5.283430 -0.006840687 -4.3150088
## 1977 -0.1497995  0.0028589378 201.7027 5.306795  0.023364976 -3.5411278
## 1978 -0.1434069  0.0063926061 203.8851 5.317556  0.010761658 -1.2018810
## 1979 -0.1398752  0.0035316843 215.6224 5.373529  0.055972545 -2.5144721
## 1980 -0.1538996 -0.0140243679 223.9348 5.411355  0.037826103 -4.8641526
## 1981 -0.1751000 -0.0212004571 214.6796 5.369147 -0.042208535  0.1324238
## 1982 -0.1824555 -0.0073554341 204.8323 5.322192 -0.046954821  1.9765719
## 1983 -0.1868199 -0.0043644760 200.0407 5.298521 -0.023670862  2.4446611
## 1984 -0.1846083  0.0022116620 206.1648 5.328676  0.030154871  4.0967998
## 1985 -0.1928173 -0.0082090686 205.2724 5.324338 -0.004337784  3.9016198
## 1986 -0.1919678  0.0008495604 210.6733 5.350309  0.025970664  3.3646274
## 1987 -0.1910578  0.0009099403 219.0133 5.389132  0.038823672  4.1004557
## 1988 -0.1846979  0.0063599609 233.8018 5.454474  0.065341281  3.6984582
## 1989 -0.1821252  0.0025726725 242.6438 5.491595  0.037121007  5.9835629
## 1990 -0.1831468 -0.0010216246 250.7463 5.524442  0.032847179  4.6744927
## 1991 -0.1834313 -0.0002845176 252.7613 5.532446  0.008003966  5.0595739
## 1992 -0.1762850  0.0071463369 250.1057 5.521884 -0.010561956  8.3628671
## 1993 -0.1712999  0.0049851448 225.1864 5.416928 -0.104955274  6.9673919
## 1994 -0.1530450  0.0182549101 228.3252 5.430771  0.013842389  6.6338935
## 1995 -0.1439483  0.0090966876 243.5648 5.495383  0.064612297  6.6714374
## 1996 -0.1505859 -0.0066375842 247.9598 5.513267  0.017883443  4.6813588
## 1997 -0.1515114 -0.0009255484 252.6128 5.531858  0.018591209  4.1851762
## 1998 -0.1543644 -0.0028529580 262.0917 5.568694  0.036836661  2.4192528
## 1999 -0.1574085 -0.0030441343 272.6874 5.608326  0.039631575  3.1455518
## 2000 -0.1471855  0.0102230247 294.2481 5.684423  0.076097329  3.7209085
## 2001 -0.1572058 -0.0100202878 299.0998 5.700777  0.016354033  2.0929174
## 2002 -0.1245048  0.0327009247 320.9567 5.771306  0.070528705  1.6999945
## 2003 -0.1604482 -0.0359433446 307.6909 5.729096 -0.042210336  1.0685560
## 2004 -0.1643526 -0.0039043782 311.4472 5.741230  0.012133940  1.5484693
## 2005 -0.1637094  0.0006431780 316.4794 5.757258  0.016028427  1.5189037
## 2006 -0.1597548  0.0039545318 325.8057 5.786301  0.029043031  1.8850907
## 2007 -0.1584558  0.0012990602 331.1948 5.802707  0.016405595  1.9623585
## 2008 -0.1604139 -0.0019581374 320.1166 5.768685 -0.034021551  2.2258603
## 2009 -0.2010072 -0.0405932528 277.4213 5.625537 -0.143147881  2.5877174
## 2010 -0.1681687  0.0328384984 286.1087 5.656372  0.030834632  3.5879829
## 2011 -0.1600208  0.0081478668 284.3167 5.650089 -0.006283146  3.7525135
## 2012 -0.1556252  0.0043956297 257.7554 5.552011 -0.098077621  3.8826227
## 2013 -0.1578865 -0.0022613194 240.5968 5.483123 -0.068888541  3.1363962
## 2014 -0.1495451  0.0083414291 237.2274 5.469019 -0.014103323  1.9588695
## 2015 -0.1529659 -0.0034207968 240.5781 5.483045  0.014025448  0.7709522
## 2016 -0.1438839  0.0090819688 252.4675 5.531283  0.048237910  0.3516609
## 2017 -0.1347736  0.0091102684 262.9751 5.572059  0.040776502  1.3736792
## 2018 -0.1277448  0.0070288485 273.1007 5.609841  0.037781363  1.6969790
##           r_l         r_dl          P      P_l        P_dl         Pm
## 1971 2.251933 -0.154563289   4.857554 1.580535 0.072125045   5.783329
## 1972 2.351007  0.099073846   5.149632 1.638925 0.058390316   6.056809
## 1973 1.521839 -0.829168091   5.818504 1.761043 0.122117922   7.757659
## 1974 0.000000 -1.521839032   7.004706 1.946582 0.185538916  11.893787
## 1975 1.299310  1.299309557   8.224912 2.107168 0.160585397  13.351952
## 1976 1.729304  0.429994554   9.684053 2.270481 0.163312984  16.832249
## 1977 1.857955  0.128650476  11.516387 2.443771 0.173290480  19.551670
## 1978 2.169037  0.311082863  13.177656 2.578523 0.134751633  20.909580
## 1979 2.006503 -0.162534046  15.277536 2.726384 0.147860856  24.975595
## 1980 1.626803 -0.379699908  18.507598 2.918181 0.191797839  31.730323
## 1981 2.310966  0.684162640  22.061454 3.093832 0.175650592  39.888285
## 1982 2.478915  0.167948491  26.008209 3.258412 0.164580299  44.855773
## 1983 2.517406  0.038491475  30.033494 3.402313 0.143901008  48.009191
## 1984 2.642518  0.125112276  33.352341 3.507128 0.104814723  52.742336
## 1985 2.628528 -0.013990675  36.500823 3.597335 0.090206857  57.260843
## 1986 2.588994 -0.039533881  39.363048 3.672828 0.075492689  49.026842
## 1987 2.642779  0.053784756  41.835817 3.733753 0.060925335  48.442648
## 1988 2.613754 -0.029024622  44.741187 3.800894 0.067141646  50.926663
## 1989 2.768537  0.154782927  47.614539 3.863138 0.062243669  54.736400
## 1990 2.682817 -0.085720286  51.647298 3.944438 0.081299732  54.729637
## 1991 2.708804  0.025987502  55.634385 4.018801 0.074363553  55.016452
## 1992 2.907699  0.198894781  58.158881 4.063179 0.044377153  56.215643
## 1993 2.828445 -0.079253902  60.454741 4.101895 0.038716411  65.121820
## 1994 2.808537 -0.019908179  62.657920 4.137690 0.035795087  68.507578
## 1995 2.810798  0.002261082  65.911226 4.188309 0.050618684  76.680657
## 1996 2.683286 -0.127511956  68.882256 4.232399 0.044089833  74.953821
## 1997 2.648789 -0.034496461  70.650722 4.257748 0.025349711  75.595082
## 1998 2.515354 -0.133435116  72.348191 4.281490 0.023742128  74.372081
## 1999 2.572405  0.057051040  73.459552 4.296735 0.015244495  74.804036
## 2000 2.615397  0.042991905  74.776240 4.314500 0.017765239  82.364371
## 2001 2.488621 -0.126776197  77.044646 4.344385 0.029884885  83.129103
## 2002 2.455455 -0.033166143  79.567351 4.376604 0.032218775  83.006576
## 2003 2.399739 -0.055716395  82.071978 4.407597 0.030992802  82.215940
## 2004 2.442365  0.042626576  84.263451 4.433948 0.026351565  83.925334
## 2005 2.439791 -0.002574186  85.957616 4.453854 0.019906130  88.000501
## 2006 2.471216  0.031424870  87.784090 4.474880 0.021025937  92.608374
## 2007 2.477722  0.006506531  89.960253 4.499368 0.024487662  93.721627
## 2008 2.499598  0.021875779  92.119932 4.523091 0.023723396  98.782406
## 2009 2.528880  0.029282044  93.666477 4.539740 0.016649022  91.229204
## 2010 2.605628  0.076747544  94.075201 4.544094 0.004354113  97.210032
## 2011 2.617706  0.012078458  95.587156 4.560038 0.015943985 103.838716
## 2012 2.627155  0.009449290  97.066177 4.575393 0.015354529 107.414052
## 2013 2.571706 -0.055449367  98.180119 4.586804 0.011410751 105.424353
## 2014 2.477429 -0.094276638  99.076740 4.595895 0.009090964 102.749722
## 2015 2.372362 -0.105067307 100.000000 4.605170 0.009275486 100.000000
## 2016 2.332474 -0.039888242 101.134350 4.616450 0.011279645  96.125949
## 2017 2.427050  0.094575671 101.868932 4.623687 0.007237181  99.310464
## 2018 2.455196  0.028146534 102.783497 4.632625 0.008937797 101.844895
##          Pm_l        Pm_dl         Px     Px_l         Px_dl        X
## 1971 1.754980  0.054216575   6.432668 1.861389  0.0483132387  97.1694
## 1972 1.801183  0.046203572   6.840073 1.922798  0.0614090831 104.8014
## 1973 2.048681  0.247497435   7.738240 2.046174  0.1233758787 110.4503
## 1974 2.476016  0.427335584  10.597612 2.360629  0.3144544236 117.6728
## 1975 2.591663  0.115646453  12.140021 2.496508  0.1358788274 118.9758
## 1976 2.823297  0.231634061  14.682798 2.686677  0.1901690425 132.4471
## 1977 2.973061  0.149764056  17.297578 2.850567  0.1638899124 145.7093
## 1978 3.040207  0.067146731  18.718134 2.929493  0.0789263047 160.6171
## 1979 3.217899  0.177691714  22.058852 3.093714  0.1642211465 172.1612
## 1980 3.457273  0.239373638  27.278648 3.306104  0.2123903135 156.8796
## 1981 3.686083  0.228809874  33.013361 3.496912  0.1908080873 166.6567
## 1982 3.803452  0.117369620  38.705363 3.655978  0.1590658114 163.5489
## 1983 3.871392  0.067940187  42.039262 3.738604  0.0826258197 168.8020
## 1984 3.965418  0.094025987  46.364219 3.836528  0.0979240396 180.7724
## 1985 4.047617  0.082198562  50.782980 3.927561  0.0910332272 186.1753
## 1986 3.892368 -0.155249093  49.198610 3.895865 -0.0316958740 188.2402
## 1987 3.880381 -0.011987341  49.988278 3.911789  0.0159231507 194.8750
## 1988 3.930387  0.050006017  51.912473 3.949559  0.0377705570 203.8249
## 1989 4.002529  0.072142323  55.641310 4.018926  0.0693668241 219.9479
## 1990 4.002405 -0.000123558  57.703819 4.055323  0.0363974423 233.6968
## 1991 4.007632  0.005226893  60.295653 4.099260  0.0439366649 227.4420
## 1992 4.029195  0.021562799  61.041956 4.111561  0.0123014079 241.5543
## 1993 4.176260  0.147064600  67.751924 4.215853  0.1042914347 261.0677
## 1994 4.226944  0.050684694  70.466398 4.255136  0.0392831183 284.5166
## 1995 4.339649  0.112705130  76.679799 4.339638  0.0845023125 317.9771
## 1996 4.316872 -0.022777288  76.862488 4.342018  0.0023796609 322.5511
## 1997 4.325391  0.008519023  77.865521 4.354983  0.0129652952 338.7918
## 1998 4.309081 -0.016310608  78.766082 4.366482  0.0114992212 347.9193
## 1999 4.314872  0.005791218  79.138164 4.371195  0.0047127686 344.5157
## 2000 4.411153  0.096281113  82.396027 4.411537  0.0403419846 386.1492
## 2001 4.420395  0.009241907  84.452672 4.436191  0.0246540582 396.0777
## 2002 4.418920 -0.001475027  85.607888 4.449777  0.0135861434 384.9692
## 2003 4.409349 -0.009570633  85.531313 4.448883 -0.0008948798 379.9709
## 2004 4.429928  0.020578329  86.469772 4.459795  0.0109123534 403.2615
## 2005 4.477343  0.047414980  88.280090 4.480515  0.0207196978 416.2327
## 2006 4.528380  0.051037062  90.144536 4.501414  0.0208997392 450.8230
## 2007 4.540329  0.011949407  92.287400 4.524908  0.0234932821 478.7620
## 2008 4.592920  0.052590536  94.896799 4.552790  0.0278823562 463.5894
## 2009 4.513375 -0.079544447  92.728948 4.529681 -0.0231092706 380.9944
## 2010 4.576874  0.063498854  94.882098 4.552635  0.0229543397 425.8053
## 2011 4.642839  0.065964972  98.702982 4.592115  0.0394801138 448.8834
## 2012 4.676691  0.033852121 100.649467 4.611644  0.0195287038 458.0061
## 2013 4.657994 -0.018697352 100.448773 4.609648 -0.0019959803 459.7199
## 2014 4.632296 -0.025697516 100.418894 4.609350 -0.0002975053 471.7426
## 2015 4.605170 -0.027125959 100.000000 4.605170 -0.0041801878 491.9050
## 2016 4.565659 -0.039510889  99.253016 4.597672 -0.0074978820 501.0815
## 2017 4.598251  0.032591644 101.021592 4.615334  0.0176619712 528.3225
## 2018 4.623451  0.025200074 102.811207 4.632894  0.0175600904 540.3017
##           X_l         X_dl        M      M_l         M_dl      rulc
## 1971 4.576456  0.066107460 102.6689 4.631509  0.024837190 0.6970269
## 1972 4.652067  0.075611283 112.3684 4.721783  0.090273512 0.6904213
## 1973 4.704566  0.052498515 122.6520 4.809351  0.087568318 0.6840179
## 1974 4.767908  0.063342246 125.8545 4.835126  0.025775401 0.6745720
## 1975 4.778920  0.011012220 107.5694 4.678136 -0.156990257 0.6925749
## 1976 4.886183  0.107263209 121.6210 4.800910  0.122773431 0.6817338
## 1977 4.981614  0.095430221 122.9299 4.811614  0.010704622 0.6842359
## 1978 5.079023  0.097409731 129.6783 4.865057  0.053442494 0.6759209
## 1979 5.148431  0.069407976 144.5681 4.973751  0.108693909 0.6648473
## 1980 5.055479 -0.092952615 151.9273 5.023402  0.049651440 0.6586787
## 1981 5.115936  0.060457376 150.0107 5.010707 -0.012695492 0.6665880
## 1982 5.097112 -0.018823980 149.2458 5.005595 -0.005112014 0.6579746
## 1983 5.128726  0.031614402 144.0171 4.969932 -0.035662569 0.6562779
## 1984 5.197239  0.068512351 161.7022 5.085756  0.115824329 0.6387435
## 1985 5.226689  0.029449922 167.8454 5.123043  0.037286946 0.6299849
## 1986 5.237719  0.011030104 175.9606 5.170260  0.047216789 0.6137011
## 1987 5.272358  0.034639520 196.1765 5.279015  0.108754658 0.6080410
## 1988 5.317261  0.044902965 206.8904 5.332189  0.053174420 0.5998296
## 1989 5.393391  0.076129408 223.4765 5.409306  0.077117079 0.5944074
## 1990 5.454025  0.060633849 243.7740 5.496242  0.086935303 0.6007604
## 1991 5.426895 -0.027129288 247.9835 5.513362  0.017120645 0.6007490
## 1992 5.487094  0.060199032 263.8206 5.575269  0.061907115 0.5957808
## 1993 5.564780  0.077685468 232.2050 5.447621 -0.127648725 0.5835373
## 1994 5.650792  0.086011839 248.9840 5.517389  0.069768035 0.5641124
## 1995 5.761979  0.111187768 270.7988 5.601376  0.083987472 0.5436104
## 1996 5.776262  0.014282206 267.5458 5.589291 -0.012085343 0.5472047
## 1997 5.825386  0.049124186 295.3417 5.688133  0.098842224 0.5497888
## 1998 5.851971  0.026584797 322.0281 5.774639  0.086505818 0.5302743
## 1999 5.842140 -0.009830894 336.5027 5.818606  0.043967364 0.5296000
## 2000 5.956224  0.114084161 373.4871 5.922883  0.104277293 0.5205842
## 2001 5.981610  0.025386581 382.5665 5.946902  0.024019029 0.5176175
## 2002 5.953163 -0.028447073 384.7194 5.952514  0.005611743 0.5190580
## 2003 5.940095 -0.013068660 387.5656 5.959885  0.007370887 0.5229411
## 2004 5.999585  0.059490564 405.2893 6.004601  0.044716008 0.5217149
## 2005 6.031244  0.031659244 419.2325 6.038426  0.033824526 0.5229482
## 2006 6.111075  0.079830322 452.5973 6.115003  0.076577109 0.5232634
## 2007 6.171204  0.060128804 477.2829 6.168109  0.053106629 0.5191631
## 2008 6.138999 -0.032204359 458.0755 6.127034 -0.041075379 0.5252292
## 2009 5.942785 -0.196214570 397.9844 5.986413 -0.140621209 0.5353771
## 2010 6.053982  0.111197523 446.4066 6.101230  0.114817387 0.5331564
## 2011 6.106763  0.052780966 448.9209 6.106847  0.005616507 0.5261489
## 2012 6.126883  0.020119337 412.4708 6.022165 -0.084681288 0.5239746
## 2013 6.130617  0.003734888 401.3253 5.994772 -0.027393095 0.5204065
## 2014 6.156433  0.025816107 415.1802 6.028713  0.033940322 0.5148511
## 2015 6.198286  0.041852111 442.0161 6.091346  0.062633664 0.5151857
## 2016 6.216769  0.018483154 459.3744 6.129866  0.038519257 0.5098850
## 2017 6.269707  0.052938130 487.3566 6.188996  0.059130529 0.5065689
## 2018 6.292128  0.022420795 503.9475 6.222472  0.033476003 0.5115360
##          rulc_l        rulc_dl       ulc    ulc_l        ulc_dl       Tau
## 1971 -0.3609313  0.03509881358  3.385845 1.219604  0.1072238588  78.84174
## 1972 -0.3704533 -0.00952199816  3.555416 1.268472  0.0488683175  80.28024
## 1973 -0.3797711 -0.00931779520  3.979961 1.381272  0.1128001263  82.88865
## 1974 -0.3936769 -0.01390577050  4.725178 1.552905  0.1716331457  84.40922
## 1975 -0.3673389  0.02633805083  5.696367 1.739829  0.1869234479  81.14036
## 1976 -0.3831160 -0.01577714280  6.601947 1.887365  0.1475358410  84.57981
## 1977 -0.3794525  0.00366345669  7.879926 2.064318  0.1769539364  84.79928
## 1978 -0.3916792 -0.01222663367  8.907053 2.186843  0.1225249993  85.89086
## 1979 -0.4081978 -0.01651866039 10.157229 2.318186  0.1313421954  88.62201
## 1980 -0.4175195 -0.00932165570 12.190560 2.500662  0.1824761829  88.97001
## 1981 -0.4055831  0.01193637970 14.705901 2.688249  0.1875869719  88.31285
## 1982 -0.4185889 -0.01300579520 17.112742 2.839823  0.1515745034  87.18428
## 1983 -0.4211710 -0.00258204105 19.710319 2.981142  0.1413189673  86.77965
## 1984 -0.4482522 -0.02708129303 21.303592 3.058876  0.0777334299  88.30913
## 1985 -0.4620594 -0.01380716100 22.994968 3.135275  0.0763996964  89.30389
## 1986 -0.4882473 -0.02618791689 24.157145 3.184580  0.0493047721  90.41076
## 1987 -0.4975129 -0.00926558257 25.437894 3.236240  0.0516597527  92.02185
## 1988 -0.5111097 -0.01359674901 26.837089 3.289785  0.0535448966  94.14605
## 1989 -0.5201903 -0.00908061199 28.302436 3.342948  0.0531630569  96.02139
## 1990 -0.5095591  0.01063119346 31.027652 3.434879  0.0919309258  96.32824
## 1991 -0.5095780 -0.00001897729 33.422302 3.509223  0.0743445760  96.28552
## 1992 -0.5178824 -0.00830437491 34.649946 3.545296  0.0360727780  96.62502
## 1993 -0.5386469 -0.02076450471 35.277596 3.563248  0.0179519062  97.20466
## 1994 -0.5725018 -0.03385487293 35.346108 3.565188  0.0019402144  99.38164
## 1995 -0.6095225 -0.03702068299 35.830027 3.578786  0.0135980013 101.47978
## 1996 -0.6029323  0.00659017814 37.692695 3.629466  0.0506800113 101.82416
## 1997 -0.5982211  0.00471116149 38.842973 3.659527  0.0300608721 102.91731
## 1998 -0.6343609 -0.03613972091 38.364386 3.647130 -0.0123975930 103.69009
## 1999 -0.6356333 -0.00127243786 38.904178 3.661102  0.0139720574 104.34869
## 2000 -0.6528037 -0.01717040142 38.927326 3.661696  0.0005948375 106.33866
## 2001 -0.6585187 -0.00571497821 39.879659 3.685866  0.0241699064 106.44691
## 2002 -0.6557397  0.00277900967 41.300069 3.720864  0.0349977844 105.21776
## 2003 -0.6482864  0.00745324657 42.918811 3.759310  0.0384460488 104.24378
## 2004 -0.6506340 -0.00234752698 43.961500 3.783314  0.0240040377 104.69705
## 2005 -0.6482729  0.00236107133 44.951380 3.805581  0.0222672013 104.78601
## 2006 -0.6476703  0.00060255252 45.934200 3.827210  0.0216284895 104.79245
## 2007 -0.6555372 -0.00786685978 46.704044 3.843831  0.0166208027 104.96661
## 2008 -0.6439206  0.01161660839 48.384076 3.879171  0.0353400046 103.61479
## 2009 -0.6247839  0.01913666752 50.146887 3.914956  0.0357856897  99.53353
## 2010 -0.6289405 -0.00415657760 50.156794 3.915154  0.0001975355 101.48447
## 2011 -0.6421710 -0.01323049772 50.293079 3.917867  0.0027134877 101.91873
## 2012 -0.6463120 -0.00414101020 50.860215 3.929081  0.0112135184  99.69139
## 2013 -0.6531450 -0.00683295553 51.093576 3.933659  0.0045777950  99.47301
## 2014 -0.6638776 -0.01073268151 51.009764 3.932017 -0.0016417178  99.50875
## 2015 -0.6632280  0.00064968082 51.518565 3.941942  0.0099251664 100.00000
## 2016 -0.6735701 -0.01034214066 51.566887 3.942880  0.0009375043 100.51692
## 2017 -0.6800949 -0.00652483377 51.603633 3.943592  0.0007123468 101.71654
## 2018 -0.6703373  0.00975758354 52.577457 3.962287  0.0186953801 102.02405
##         Tau_l         Tau_dl       dPxdPm        dPdPm     Trade
## 1971 4.367443 -0.00322467073 -0.005903336  0.017908471 0.2435496
## 1972 4.385523  0.01808097334  0.015205511  0.012186744 0.2559060
## 1973 4.417498  0.03197469462 -0.124121556 -0.125379514 0.2573850
## 1974 4.435677  0.01817850885 -0.112881161 -0.241796668 0.2559705
## 1975 4.396181 -0.03949616909  0.020232375  0.044938944 0.2440066
## 1976 4.437696  0.04151502507 -0.041465018 -0.068321077 0.2565886
## 1977 4.440287  0.00259156689  0.014125857  0.023526424 0.2654928
## 1978 4.453077  0.01279032218  0.011779573  0.067604902 0.2788133
## 1979 4.484380  0.03130275686 -0.013470567 -0.029830858 0.2881836
## 1980 4.488299  0.00391920703 -0.026983324 -0.047575799 0.2725289
## 1981 4.480886 -0.00741374982 -0.038001787 -0.053159282 0.2779188
## 1982 4.468024 -0.01286164354  0.041696192  0.047210679 0.2740930
## 1983 4.463372 -0.00465181061  0.014685633  0.075960822 0.2716019
## 1984 4.480844  0.01747135180  0.003898052  0.010788736 0.2886537
## 1985 4.492045  0.01120151185  0.008834665  0.008008295 0.2907643
## 1986 4.504363  0.01231827418  0.123553219  0.230741782 0.2912334
## 1987 4.522026  0.01766273839  0.027910492  0.072912676 0.3033994
## 1988 4.544847  0.02282119641 -0.012235460  0.017135629 0.3063142
## 1989 4.564571  0.01972370491 -0.002775499 -0.009898654 0.3202918
## 1990 4.567761  0.00319050439  0.036521000  0.081423290 0.3381797
## 1991 4.567318 -0.00044350727  0.038709772  0.069136660 0.3319542
## 1992 4.570838  0.00351972008 -0.009261391  0.022814354 0.3503334
## 1993 4.576819  0.00598095440 -0.042773165 -0.108348189 0.3448232
## 1994 4.598967  0.02214874594 -0.011401576 -0.014889607 0.3653661
## 1995 4.619860  0.02089221394 -0.028202818 -0.062086446 0.3926861
## 1996 4.623247  0.00338783908  0.025156948  0.066867121 0.3886438
## 1997 4.633926  0.01067839043  0.004446272  0.016830688 0.4101403
## 1998 4.641407  0.00748070799  0.027809829  0.040052736 0.4255980
## 1999 4.647738  0.00633149567 -0.001078449  0.009453277 0.4257102
## 2000 4.666629  0.01889088273 -0.055939129 -0.078515875 0.4575284
## 2001 4.667646  0.00101747038  0.015412151  0.020642978 0.4600005
## 2002 4.656032 -0.01161427172  0.015061171  0.033693802 0.4535581
## 2003 4.646732 -0.00929994045  0.008675753  0.040563435 0.4516637
## 2004 4.651071  0.00433873573 -0.009665976  0.005773235 0.4691205
## 2005 4.651920  0.00084939570 -0.026695282 -0.027508850 0.4808040
## 2006 4.651982  0.00006138513 -0.030137323 -0.030011125 0.5107656
## 2007 4.653642  0.00166064474  0.011543875  0.012538255 0.5325980
## 2008 4.640680 -0.01296227385 -0.024708180 -0.028867140 0.5184327
## 2009 4.600495 -0.04018547043  0.056435176  0.096193469 0.4626020
## 2010 4.619906  0.01941117266 -0.040544514 -0.059144741 0.5092444
## 2011 4.624176  0.00426996000 -0.026484859 -0.050020987 0.5205049
## 2012 4.602079 -0.02209636980 -0.014323417 -0.018497592 0.5201675
## 2013 4.599886 -0.00219299013  0.016701371  0.030108102 0.5241818
## 2014 4.600246  0.00035921182  0.025400010  0.034788480 0.5399601
## 2015 4.605170  0.00492460800  0.022945771  0.036401444 0.5641818
## 2016 4.610326  0.00515591540  0.032013007  0.050790534 0.5728026
## 2017 4.622190  0.01186383348 -0.014929673 -0.025354463 0.5957995
## 2018 4.625209  0.00301858789 -0.007639983 -0.016262277 0.6077088

Adjusted Dickey-fuller testet I(0)

adf.ITA.WS <- adf.test((ITA$WS), alternative = c("stationary"), k = 2)
adf.ITA.PS <- adf.test((ITA$PS), alternative = c("stationary"), k = 2)
adf.ITA.Y <- adf.test((ITA$Y), alternative = c("stationary"), k = 2)
adf.ITA.Yrw <- adf.test((ITA$Yrw), alternative = c("stationary"), k = 2)
adf.ITA.r <- adf.test((ITA$r), alternative = c("stationary"), k = 2)
adf.ITA.R <- adf.test((ITA$R), alternative = c("stationary"), k = 2)
adf.ITA.Tau <- adf.test((ITA$Tau), alternative = c("stationary"), k = 2)
adf.ITA.rulc <- adf.test((ITA$rulc), alternative = c("stationary"), k = 2)
adf.ITA.ulc <- adf.test((ITA$ulc), alternative = c("stationary"), k = 2)
adf.ITA.P <- adf.test((ITA$P), alternative = c("stationary"), k = 2)
adf.ITA.Pm <- adf.test((ITA$Pm), alternative = c("stationary"), k = 2)
adf.ITA.Px <- adf.test((ITA$Px), alternative = c("stationary"), k = 2)
adf.ITA.X <- adf.test((ITA$X), alternative = c("stationary"), k = 2)
adf.ITA.M <- adf.test((ITA$M), alternative = c("stationary"), k = 2)
adf.ITA.I <- adf.test((ITA$I), alternative = c("stationary"), k = 2)
adf.ITA.C <- adf.test((ITA$C), alternative = c("stationary"), k = 2)
adf.ITA.Ipr <- adf.test((ITA$Ipr), alternative = c("stationary"), k = 2)
adf.ITA.Ips <- adf.test((ITA$Ips), alternative = c("stationary"), k = 2)
adf.ITA.It <- adf.test((ITA$It), alternative = c("stationary"), k = 2)
adf.ITA.Itcurr <- adf.test((ITA$Itcurr), alternative = c("stationary"), k = 2)
adf.ITA.Yf <- adf.test((ITA$Yf), alternative = c("stationary"), k = 2)
adf.ITA.W <- adf.test((ITA$W), alternative = c("stationary"), k = 2)

adf.ITA.WS.pval <- adf.ITA.WS$p.value
adf.ITA.PS.pval <- adf.ITA.PS$p.value
adf.ITA.Y.pval <- adf.ITA.Y$p.value
adf.ITA.Yrw.pval <- adf.ITA.Yrw$p.value
adf.ITA.r.pval <- adf.ITA.r$p.value
adf.ITA.R.pval <- adf.ITA.R$p.value
adf.ITA.Tau.pval <- adf.ITA.Tau$p.value
adf.ITA.rulc.pval <- adf.ITA.rulc$p.value
adf.ITA.ulc.pval <- adf.ITA.ulc$p.value
adf.ITA.P.pval <- adf.ITA.P$p.value
adf.ITA.Pm.pval <- adf.ITA.Pm$p.value
adf.ITA.Px.pval <- adf.ITA.Px$p.value
adf.ITA.X.pval <- adf.ITA.X$p.value
adf.ITA.M.pval <- adf.ITA.M$p.value
adf.ITA.I.pval <- adf.ITA.I$p.value
adf.ITA.C.pval <- adf.ITA.C$p.value
adf.ITA.Ipr.pval <- adf.ITA.Ipr$p.value
adf.ITA.Ips.pval <- adf.ITA.Ips$p.value
adf.ITA.It.pval <- adf.ITA.It$p.value
adf.ITA.Itcurr.pval <- adf.ITA.Itcurr$p.value
adf.ITA.Yf.pval <- adf.ITA.Yf$p.value
adf.ITA.W.pval <- adf.ITA.W$p.value

adf.ITA_non <- rbind(adf.ITA.WS.pval,adf.ITA.PS.pval,adf.ITA.Y.pval,adf.ITA.Yrw.pval,adf.ITA.r.pval,adf.ITA.R.pval,adf.ITA.Tau.pval,adf.ITA.rulc.pval,adf.ITA.ulc.pval,adf.ITA.P.pval,adf.ITA.Pm.pval,adf.ITA.Px.pval,adf.ITA.X.pval,adf.ITA.M.pval,adf.ITA.I.pval,adf.ITA.C.pval,adf.ITA.Ipr.pval,adf.ITA.Ips.pval,adf.ITA.It.pval,adf.ITA.Itcurr.pval,adf.ITA.Yf.pval,adf.ITA.W.pval)


colnames(adf.ITA_non) <- c("ITA")
rownames(adf.ITA_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.ITA_non
##              ITA
## WS     0.8736350
## PS     0.8736350
## Y      0.9866349
## Yrw    0.2679621
## r      0.7445713
## R      0.9762233
## Tau    0.9666743
## rulc   0.9428151
## ulc    0.9602068
## P      0.9870552
## Pm     0.5527124
## Px     0.9355589
## X      0.4114584
## M      0.4769191
## I      0.6506746
## C      0.9762815
## Ipr    0.8455114
## Ips    0.5548061
## It     0.6871375
## Itcurr 0.8515615
## Yf     0.9614338
## W      0.6460153

Adjusted Dickey-fuller testet I(1)

adf.ITA.WS_dl <- adf.test((ITA$WS_dl), alternative = c("stationary"), k = 2)
adf.ITA.PS_dl <- adf.test((ITA$PS_dl), alternative = c("stationary"), k = 2)
adf.ITA.Y_dl <- adf.test((ITA$Y_dl), alternative = c("stationary"), k = 2)
adf.ITA.Yrw_dl <- adf.test((ITA$Yrw_dl), alternative = c("stationary"), k = 2)
adf.ITA.r_dl <- adf.test((ITA$r_dl), alternative = c("stationary"), k = 2)
adf.ITA.R_dl <- adf.test((ITA$R_dl), alternative = c("stationary"), k = 2)
adf.ITA.Tau_dl <- adf.test((ITA$Tau_dl), alternative = c("stationary"), k = 2)
adf.ITA.rulc_dl <- adf.test((ITA$rulc_dl), alternative = c("stationary"), k = 2)
adf.ITA.ulc_dl <- adf.test((ITA$ulc_dl), alternative = c("stationary"), k = 2)
adf.ITA.P_dl <- adf.test((ITA$P_dl), alternative = c("stationary"), k = 2)
adf.ITA.Pm_dl <- adf.test((ITA$Pm_dl), alternative = c("stationary"), k = 2)
adf.ITA.Px_dl <- adf.test((ITA$Px_dl), alternative = c("stationary"), k = 2)
adf.ITA.X_dl <- adf.test((ITA$X_dl), alternative = c("stationary"), k = 2)
adf.ITA.M_dl <- adf.test((ITA$M_dl), alternative = c("stationary"), k = 2)
adf.ITA.I_dl <- adf.test((ITA$I_dl), alternative = c("stationary"), k = 2)
adf.ITA.C_dl <- adf.test((ITA$C_dl), alternative = c("stationary"), k = 2)
adf.ITA.Ipr_dl <- adf.test((ITA$Ipr_dl), alternative = c("stationary"), k = 2)
adf.ITA.Ips_dl <- adf.test((ITA$Ips_dl), alternative = c("stationary"), k = 2)
adf.ITA.It_dl <- adf.test((ITA$It_dl), alternative = c("stationary"), k = 2)
adf.ITA.Itcurr_dl <- adf.test((ITA$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.ITA.Yf_dl <- adf.test((ITA$Yf_dl), alternative = c("stationary"), k = 2)
adf.ITA.W_dl <- adf.test((ITA$W_dl), alternative = c("stationary"), k = 2)

adf.ITA.WS_dl.pval <- adf.ITA.WS_dl$p.value
adf.ITA.PS_dl.pval <- adf.ITA.PS_dl$p.value
adf.ITA.Y_dl.pval <- adf.ITA.Y_dl$p.value
adf.ITA.Yrw_dl.pval <- adf.ITA.Yrw_dl$p.value
adf.ITA.r_dl.pval <- adf.ITA.r_dl$p.value
adf.ITA.R_dl.pval <- adf.ITA.R_dl$p.value
adf.ITA.Tau_dl.pval <- adf.ITA.Tau_dl$p.value
adf.ITA.rulc_dl.pval <- adf.ITA.rulc_dl$p.value
adf.ITA.ulc_dl.pval <- adf.ITA.ulc_dl$p.value
adf.ITA.P_dl.pval <- adf.ITA.P_dl$p.value
adf.ITA.Pm_dl.pval <- adf.ITA.Pm_dl$p.value
adf.ITA.Px_dl.pval <- adf.ITA.Px_dl$p.value
adf.ITA.X_dl.pval <- adf.ITA.X_dl$p.value
adf.ITA.M_dl.pval <- adf.ITA.M_dl$p.value
adf.ITA.I_dl.pval <- adf.ITA.I_dl$p.value
adf.ITA.C_dl.pval <- adf.ITA.C_dl$p.value
adf.ITA.Ipr_dl.pval <- adf.ITA.Ipr_dl$p.value
adf.ITA.Ips_dl.pval <- adf.ITA.Ips_dl$p.value
adf.ITA.It_dl.pval <- adf.ITA.It_dl$p.value
adf.ITA.Itcurr_dl.pval <- adf.ITA.Itcurr_dl$p.value
adf.ITA.Yf_dl.pval <- adf.ITA.Yf_dl$p.value
adf.ITA.W_dl.pval <- adf.ITA.W_dl$p.value

adf.ITA_dl <- rbind(adf.ITA.WS_dl.pval,adf.ITA.PS_dl.pval,adf.ITA.Y_dl.pval,adf.ITA.Yrw_dl.pval,adf.ITA.r_dl.pval,adf.ITA.R_dl.pval,adf.ITA.Tau_dl.pval,adf.ITA.rulc_dl.pval,adf.ITA.ulc_dl.pval,adf.ITA.P_dl.pval,adf.ITA.Pm_dl.pval,adf.ITA.Px_dl.pval,adf.ITA.X_dl.pval,adf.ITA.M_dl.pval,adf.ITA.I_dl.pval,adf.ITA.C_dl.pval,adf.ITA.Ipr_dl.pval,adf.ITA.Ips_dl.pval,adf.ITA.It_dl.pval,adf.ITA.Itcurr_dl.pval,adf.ITA.Yf_dl.pval,adf.ITA.W_dl.pval)
colnames(adf.ITA_dl) <- c("ITA")
rownames(adf.ITA_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.ITA_dl
##                     ITA
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.03528315
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01000000
## dlog(Tau)    0.02583018
## dlog(rulc)   0.02622507
## dlog(ulc)    0.34898516
## dlog(P)      0.49900394
## dlog(Pm)     0.06393381
## dlog(Px)     0.07560116
## dlog(X)      0.01000000
## dlog(M)      0.01706094
## dlog(I)      0.05287906
## dlog(C)      0.05525318
## dlog(Ipr)    0.16132067
## dlog(Ips)    0.01000000
## dlog(It)     0.15583112
## dlog(Itcurr) 0.34370203
## dlog(Yf)     0.04700310
## dlog(W)      0.12622009
adf.ITA <- NULL
adf.ITA <- rbind(adf.ITA_non,adf.ITA_dl)

Økonometriske test

#Consumption (C)
ITA_consumption <- dynlm(ITA$C_dl~ITA$R_dl+ITA$W_dl)
ITA_CR <- summary(ITA_consumption)$coefficients["ITA$R_dl","Estimate"]
ITA_CW <- summary(ITA_consumption)$coefficients["ITA$W_dl","Estimate"]
ITA_Ceffekt <- (ITA_CR*mean(ITA$C/ITA$R))-(ITA_CW*mean(ITA$C/ITA$W))
summary(ITA_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$C_dl ~ ITA$R_dl + ITA$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.021441 -0.006667 -0.000948  0.006760  0.034950 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.007513   0.001942   3.869      0.00035 ***
## ITA$R_dl    0.191420   0.044181   4.333 0.0000816058 ***
## ITA$W_dl    0.623240   0.091543   6.808 0.0000000196 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01176 on 45 degrees of freedom
## Multiple R-squared:  0.6899, Adjusted R-squared:  0.6761 
## F-statistic: 50.05 on 2 and 45 DF,  p-value: 0.00000000000363
#Investments (I)
ITA_investment <- dynlm(ITA$I_dl~ITA$PS_l+ITA$Y_l)
ITA_iPS <- summary(ITA_investment)$coefficients["ITA$PS_l","Estimate"]
ITA_Ieffekt <- ITA_iPS*mean(ITA$I/ITA$R)
summary(ITA_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$I_dl ~ ITA$PS_l + ITA$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12215 -0.01624  0.00318  0.03276  0.05995 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  3.28305    0.86070   3.814 0.000413 ***
## ITA$PS_l     0.76795    0.20024   3.835 0.000388 ***
## ITA$Y_l     -0.34668    0.09226  -3.758 0.000491 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04254 on 45 degrees of freedom
## Multiple R-squared:  0.2476, Adjusted R-squared:  0.2142 
## F-statistic: 7.404 on 2 and 45 DF,  p-value: 0.00166
#Price deflator (P)
ITA_deflator <- dynlm(ITA$P_dl~L(ITA$ulc_dl)+ITA$Pm_dl)
ITA_ePULC <- summary(ITA_deflator)$coefficients["L(ITA$ulc_dl)","Estimate"]
summary(ITA_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$P_dl ~ L(ITA$ulc_dl) + ITA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.033833 -0.007440 -0.000325  0.007559  0.034776 
## 
## Coefficients:
##               Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)   0.009362   0.002721   3.440              0.00126 ** 
## L(ITA$ulc_dl) 0.864222   0.043291  19.963 < 0.0000000000000002 ***
## ITA$Pm_dl     0.072499   0.026570   2.729              0.00904 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01332 on 45 degrees of freedom
## Multiple R-squared:  0.9499, Adjusted R-squared:  0.9477 
## F-statistic: 426.9 on 2 and 45 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
ITA_exportdeflator <- dynlm(ITA$Px_dl~ITA$ulc_dl+ITA$Pm_dl)
ITA_ePX <- summary(ITA_exportdeflator)$coefficients["ITA$ulc_dl","Estimate"]
summary(ITA_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$Px_dl ~ ITA$ulc_dl + ITA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.053668 -0.010467 -0.000669  0.010284  0.031727 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)  0.00206    0.00321   0.642                0.524    
## ITA$ulc_dl   0.43125    0.05107   8.445      0.0000000000784 ***
## ITA$Pm_dl    0.51046    0.03134  16.286 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01572 on 45 degrees of freedom
## Multiple R-squared:  0.9537, Adjusted R-squared:  0.9516 
## F-statistic: 463.3 on 2 and 45 DF,  p-value: < 0.00000000000000022
#Exports (X)
ITA_exports <- dynlm(ITA$X_dl~L(ITA$dPxdPm)+ITA$Yrw_dl)
ITA_eXP <- summary(ITA_exports)$coefficients["L(ITA$dPxdPm)","Estimate"]
ITA_Xeffekt <- -(ITA_eXP*ITA_ePX*(1/(1-ITA_ePULC))*mean(ITA$Yf/ITA$Y)*(mean(ITA$X/ITA$Y)/mean(ITA$rulc)))
summary(ITA_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$X_dl ~ L(ITA$dPxdPm) + ITA$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.117011 -0.018174  0.004913  0.023422  0.061843 
## 
## Coefficients:
##               Estimate Std. Error t value    Pr(>|t|)    
## (Intercept)   -0.02212    0.01087  -2.035      0.0478 *  
## L(ITA$dPxdPm) -0.30100    0.14598  -2.062      0.0450 *  
## ITA$Yrw_dl     2.24011    0.36224   6.184 0.000000166 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03791 on 45 degrees of freedom
## Multiple R-squared:  0.5435, Adjusted R-squared:  0.5232 
## F-statistic: 26.78 on 2 and 45 DF,  p-value: 0.00000002179
#Imports (M)
ITA_imports <- dynlm(ITA$M_dl~ITA$dPdPm+L(ITA$Y_dl)+L(ITA$M_l))
ITA_eMP <- summary(ITA_imports)$coefficients["ITA$dPdPm","Estimate"]
ITA_Meffekt <- -(ITA_eMP*ITA_ePULC*(1/(1-ITA_ePULC))*mean(ITA$Yf/ITA$Y)*(mean(ITA$M/ITA$Y)/mean(ITA$rulc)))
summary(ITA_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$M_dl ~ ITA$dPdPm + L(ITA$Y_dl) + L(ITA$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.059856 -0.020334 -0.002547  0.023899  0.061153 
## 
## Coefficients:
##              Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.304420   0.055907  -5.445           0.00000219 ***
## ITA$dPdPm    0.198797   0.068006   2.923              0.00545 ** 
## L(ITA$Y_dl)  3.090634   0.240989  12.825 < 0.0000000000000002 ***
## L(ITA$M_l)   0.052148   0.009732   5.359           0.00000293 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03037 on 44 degrees of freedom
## Multiple R-squared:  0.792,  Adjusted R-squared:  0.7779 
## F-statistic: 55.86 on 3 and 44 DF,  p-value: 0.000000000000004766
names(ITA_consumption$coefficients) <- sub("ITA$","",names(ITA_consumption$coefficients),fixed=TRUE)
names(ITA_investment$coefficients) <- sub("ITA$","",names(ITA_investment$coefficients),fixed=TRUE)
names(ITA_deflator$coefficients) <- sub("ITA$","",names(ITA_deflator$coefficients),fixed=TRUE)
names(ITA_exportdeflator$coefficients) <- sub("ITA$","",names(ITA_exportdeflator$coefficients),fixed=TRUE)
names(ITA_exports$coefficients) <- sub("ITA$","",names(ITA_exports$coefficients),fixed=TRUE)
names(ITA_imports$coefficients) <- sub("ITA$","",names(ITA_imports$coefficients),fixed=TRUE)

ITA_Xeffekt
## [1] 0.3031082
ITA_Meffekt
## [1] -0.3818909
#Nettoeksport (NX)
ITA_NXeffekt <- ITA_Xeffekt - ITA_Meffekt

ITA_NXeffekt
## [1] 0.6849991
#Nettoeffekten
ITA_Neteffekt = ITA_Ceffekt + ITA_Ieffekt + ITA_NXeffekt

ITA_Neteffekt
## [1] 0.7836313
ITA_Lukket <- ITA_Ceffekt + ITA_Ieffekt
ITA_Lukket_Konklusion <- ifelse(ITA_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
ITA_Lukket_Konklusion
## [1] "Profit-led domestic"
ITA_Def <- ifelse(ITA_Neteffekt > 0, "Profit-led", "Wage-led")
ITA_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=ITA_consumption$residuals, type="none", lags=13, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0179543 -0.0066971 -0.0005048  0.0056947  0.0240885 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.490863   0.516454  -0.950   0.3532  
## z.diff.lag1  -0.328435   0.522827  -0.628   0.5370  
## z.diff.lag2  -0.299612   0.534776  -0.560   0.5815  
## z.diff.lag3  -0.217558   0.537154  -0.405   0.6898  
## z.diff.lag4  -0.341847   0.526161  -0.650   0.5233  
## z.diff.lag5  -0.437132   0.519309  -0.842   0.4099  
## z.diff.lag6  -0.149775   0.498277  -0.301   0.7668  
## z.diff.lag7   0.008794   0.477777   0.018   0.9855  
## z.diff.lag8   0.031343   0.431410   0.073   0.9428  
## z.diff.lag9   0.034557   0.374908   0.092   0.9275  
## z.diff.lag10 -0.022037   0.322951  -0.068   0.9463  
## z.diff.lag11  0.292319   0.278333   1.050   0.3061  
## z.diff.lag12  0.449474   0.242131   1.856   0.0782 .
## z.diff.lag13  0.135219   0.199952   0.676   0.5066  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01135 on 20 degrees of freedom
## Multiple R-squared:  0.6053, Adjusted R-squared:  0.329 
## F-statistic: 2.191 on 14 and 20 DF,  p-value: 0.05331
## 
## 
## Value of test-statistic is: -0.9504 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ITA_investment$residuals, type="none", lags=13, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.089921 -0.020556  0.004169  0.022073  0.047531 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1       -2.1052     1.0686  -1.970   0.0628 .
## z.diff.lag1    1.1853     1.0234   1.158   0.2604  
## z.diff.lag2    0.9291     1.0038   0.926   0.3657  
## z.diff.lag3    0.9612     0.9705   0.990   0.3338  
## z.diff.lag4    0.9940     0.9351   1.063   0.3005  
## z.diff.lag5    0.8324     0.8617   0.966   0.3456  
## z.diff.lag6    0.8332     0.8066   1.033   0.3139  
## z.diff.lag7    0.4988     0.7159   0.697   0.4940  
## z.diff.lag8    0.6223     0.6397   0.973   0.3422  
## z.diff.lag9    0.2221     0.5656   0.393   0.6987  
## z.diff.lag10   0.4998     0.4829   1.035   0.3131  
## z.diff.lag11   0.5613     0.4081   1.376   0.1842  
## z.diff.lag12   0.4950     0.3102   1.596   0.1262  
## z.diff.lag13   0.3735     0.2487   1.502   0.1488  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04325 on 20 degrees of freedom
## Multiple R-squared:  0.6662, Adjusted R-squared:  0.4326 
## F-statistic: 2.852 on 14 and 20 DF,  p-value: 0.0161
## 
## 
## Value of test-statistic is: -1.97 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ITA_exports$residuals, type="none", lags=13, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.078934 -0.014907 -0.000497  0.020975  0.065105 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1       -2.7396     1.0734  -2.552   0.0190 *
## z.diff.lag1    1.7495     0.9970   1.755   0.0946 .
## z.diff.lag2    1.4982     0.9395   1.595   0.1265  
## z.diff.lag3    1.5801     0.8712   1.814   0.0847 .
## z.diff.lag4    1.3572     0.7936   1.710   0.1027  
## z.diff.lag5    1.3012     0.7317   1.778   0.0906 .
## z.diff.lag6    1.2689     0.6814   1.862   0.0773 .
## z.diff.lag7    1.1175     0.6380   1.751   0.0952 .
## z.diff.lag8    0.9520     0.5686   1.674   0.1096  
## z.diff.lag9    0.6652     0.4950   1.344   0.1941  
## z.diff.lag10   0.5125     0.4090   1.253   0.2246  
## z.diff.lag11   0.4884     0.3286   1.486   0.1528  
## z.diff.lag12   0.3948     0.2523   1.565   0.1334  
## z.diff.lag13   0.1838     0.1836   1.002   0.3285  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03598 on 20 degrees of freedom
## Multiple R-squared:  0.6052, Adjusted R-squared:  0.3289 
## F-statistic:  2.19 on 14 and 20 DF,  p-value: 0.05335
## 
## 
## Value of test-statistic is: -2.5522 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ITA_imports$residuals, type="none", lags=13, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.037443 -0.017573 -0.004627  0.008343  0.039397 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -4.68959    1.92514  -2.436   0.0243 *
## z.diff.lag1   3.37999    1.83296   1.844   0.0800 .
## z.diff.lag2   2.94164    1.71955   1.711   0.1026  
## z.diff.lag3   2.85638    1.57408   1.815   0.0846 .
## z.diff.lag4   2.32589    1.45128   1.603   0.1247  
## z.diff.lag5   2.14877    1.29298   1.662   0.1121  
## z.diff.lag6   1.71288    1.16670   1.468   0.1576  
## z.diff.lag7   1.50031    1.02067   1.470   0.1571  
## z.diff.lag8   1.33159    0.87804   1.517   0.1450  
## z.diff.lag9   0.90862    0.73468   1.237   0.2305  
## z.diff.lag10  0.66597    0.58569   1.137   0.2689  
## z.diff.lag11  0.37312    0.48201   0.774   0.4479  
## z.diff.lag12  0.24738    0.34209   0.723   0.4780  
## z.diff.lag13  0.03785    0.20570   0.184   0.8559  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02574 on 20 degrees of freedom
## Multiple R-squared:  0.8406, Adjusted R-squared:  0.729 
## F-statistic: 7.532 on 14 and 20 DF,  p-value: 0.00003331
## 
## 
## Value of test-statistic is: -2.436 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(ITA_consumption)

plot(ITA_investment)

plot(ITA_deflator)

plot(ITA_exportdeflator)

plot(ITA_exports)

plot(ITA_imports)

bptest(ITA_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  ITA_consumption
## BP = 2.8741, df = 2, p-value = 0.2376
bptest(ITA_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  ITA_investment
## BP = 3.7212, df = 2, p-value = 0.1556
bptest(ITA_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  ITA_deflator
## BP = 5.6015, df = 2, p-value = 0.06076
bptest(ITA_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  ITA_exportdeflator
## BP = 4.4622, df = 2, p-value = 0.1074
bptest(ITA_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  ITA_exports
## BP = 6.5257, df = 2, p-value = 0.03828
bptest(ITA_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  ITA_imports
## BP = 1.4035, df = 3, p-value = 0.7047
resettest(ITA_consumption)
## 
##  RESET test
## 
## data:  ITA_consumption
## RESET = 1.5506, df1 = 2, df2 = 43, p-value = 0.2237
resettest(ITA_investment)
## 
##  RESET test
## 
## data:  ITA_investment
## RESET = 0.085969, df1 = 2, df2 = 43, p-value = 0.9178
resettest(ITA_deflator)
## 
##  RESET test
## 
## data:  ITA_deflator
## RESET = 2.1346, df1 = 2, df2 = 43, p-value = 0.1307
resettest(ITA_exportdeflator)
## 
##  RESET test
## 
## data:  ITA_exportdeflator
## RESET = 1.8274, df1 = 2, df2 = 43, p-value = 0.1731
resettest(ITA_exports)
## 
##  RESET test
## 
## data:  ITA_exports
## RESET = 7.1313, df1 = 2, df2 = 43, p-value = 0.002115
resettest(ITA_imports)
## 
##  RESET test
## 
## data:  ITA_imports
## RESET = 2.187, df1 = 2, df2 = 42, p-value = 0.1249

Resultater

ITA_regtab <- matrix(c(ITA_Ceffekt, ITA_Ieffekt, ITA_Lukket, ITA_Xeffekt, ITA_Meffekt, ITA_NXeffekt, ITA_Neteffekt,ITA_Lukket_Konklusion, ITA_Def),ncol=9,byrow=TRUE)
colnames(ITA_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(ITA_regtab) <- c("ITA")
ITA_regtab <- as.table(ITA_regtab)
ITA_regtab
##     consumption        investment        Lukket neteffekt  
## ITA -0.307364904852754 0.405997101186717 0.0986321963339636
##     exports           imports           netexports       
## ITA 0.303108219521421 -0.38189092697295 0.684999146494371
##     neteffect         Lukket konklusion   Konklusion
## ITA 0.783631342828335 Profit-led domestic Profit-led
ITA_smoke <- matrix(c(mean(ITA$C/ITA$R), mean(ITA$C/ITA$W), mean(ITA$I/ITA$R), ITA_CR, ITA_CW, ITA_iPS, ITA_ePULC, (1/(1-ITA_ePULC)), ITA_eXP, ITA_ePX, ITA_eMP, mean(ITA$Yf/ITA$Y), mean(ITA$X/ITA$Y), mean(ITA$rulc), (mean(ITA$X/ITA$Y)/mean(ITA$rulc))),ncol=15,byrow=TRUE)
colnames(ITA_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(ITA_smoke) <- c("ITA")
ITA_smoke <- as.table(ITA_smoke)
ITA_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## ITA  1.7474412  1.0298775  0.5286747  0.1914205  0.6232401  0.7679526
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## ITA  0.8642218  7.3649544 -0.3009952  0.4312491  0.1987966  0.9234565
##            X/Y       RULC (X/Y)/rulc
## ITA  0.2003142  0.5834293  0.3433392

Summary af regressioner

summary(ITA_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$C_dl ~ ITA$R_dl + ITA$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.021441 -0.006667 -0.000948  0.006760  0.034950 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.007513   0.001942   3.869      0.00035 ***
## R_dl        0.191420   0.044181   4.333 0.0000816058 ***
## W_dl        0.623240   0.091543   6.808 0.0000000196 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01176 on 45 degrees of freedom
## Multiple R-squared:  0.6899, Adjusted R-squared:  0.6761 
## F-statistic: 50.05 on 2 and 45 DF,  p-value: 0.00000000000363
summary(ITA_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$I_dl ~ ITA$PS_l + ITA$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12215 -0.01624  0.00318  0.03276  0.05995 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  3.28305    0.86070   3.814 0.000413 ***
## PS_l         0.76795    0.20024   3.835 0.000388 ***
## Y_l         -0.34668    0.09226  -3.758 0.000491 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04254 on 45 degrees of freedom
## Multiple R-squared:  0.2476, Adjusted R-squared:  0.2142 
## F-statistic: 7.404 on 2 and 45 DF,  p-value: 0.00166
summary(ITA_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$P_dl ~ L(ITA$ulc_dl) + ITA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.033833 -0.007440 -0.000325  0.007559  0.034776 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.009362   0.002721   3.440              0.00126 ** 
## L(ulc_dl)   0.864222   0.043291  19.963 < 0.0000000000000002 ***
## Pm_dl       0.072499   0.026570   2.729              0.00904 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01332 on 45 degrees of freedom
## Multiple R-squared:  0.9499, Adjusted R-squared:  0.9477 
## F-statistic: 426.9 on 2 and 45 DF,  p-value: < 0.00000000000000022
summary(ITA_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$Px_dl ~ ITA$ulc_dl + ITA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.053668 -0.010467 -0.000669  0.010284  0.031727 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)  0.00206    0.00321   0.642                0.524    
## ulc_dl       0.43125    0.05107   8.445      0.0000000000784 ***
## Pm_dl        0.51046    0.03134  16.286 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01572 on 45 degrees of freedom
## Multiple R-squared:  0.9537, Adjusted R-squared:  0.9516 
## F-statistic: 463.3 on 2 and 45 DF,  p-value: < 0.00000000000000022
summary(ITA_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$X_dl ~ L(ITA$dPxdPm) + ITA$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.117011 -0.018174  0.004913  0.023422  0.061843 
## 
## Coefficients:
##             Estimate Std. Error t value    Pr(>|t|)    
## (Intercept) -0.02212    0.01087  -2.035      0.0478 *  
## L(dPxdPm)   -0.30100    0.14598  -2.062      0.0450 *  
## Yrw_dl       2.24011    0.36224   6.184 0.000000166 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03791 on 45 degrees of freedom
## Multiple R-squared:  0.5435, Adjusted R-squared:  0.5232 
## F-statistic: 26.78 on 2 and 45 DF,  p-value: 0.00000002179
summary(ITA_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = ITA$M_dl ~ ITA$dPdPm + L(ITA$Y_dl) + L(ITA$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.059856 -0.020334 -0.002547  0.023899  0.061153 
## 
## Coefficients:
##              Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.304420   0.055907  -5.445           0.00000219 ***
## dPdPm        0.198797   0.068006   2.923              0.00545 ** 
## L(Y_dl)      3.090634   0.240989  12.825 < 0.0000000000000002 ***
## L(M_l)       0.052148   0.009732   5.359           0.00000293 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03037 on 44 degrees of freedom
## Multiple R-squared:  0.792,  Adjusted R-squared:  0.7779 
## F-statistic: 55.86 on 3 and 44 DF,  p-value: 0.000000000000004766

Luxemborg analyse

Test for NA værdier

LUX_df[!complete.cases(LUX_df),]
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1960 0.4988019 -0.6955462           NA 0.5011981 -0.6907539           NA
## 1961 0.5194321 -0.6550191  0.040527040 0.4805679 -0.7327868 -0.042032871
## 1962 0.5152872 -0.6630309 -0.008011806 0.4847128 -0.7241987  0.008588151
## 1963 0.5183046 -0.6571922  0.005838757 0.4816954 -0.7304433 -0.006244663
## 1964 0.5196929 -0.6545172  0.002675014 0.4803071 -0.7333296 -0.002886331
## 1965 0.5234124 -0.6473856  0.007131580 0.4765876 -0.7411037 -0.007774101
## 1966 0.5241397 -0.6459971  0.001388464 0.4758603 -0.7426309 -0.001527105
## 1967 0.5300307 -0.6348203  0.011176777 0.4699693 -0.7550879 -0.012457060
## 1968 0.5105651 -0.6722371 -0.037416735 0.4894349 -0.7145039  0.040584042
## 1969 0.4731526 -0.7483373 -0.076100208 0.5268474 -0.6408444  0.073659504
## 1970 0.4775057 -0.7391792  0.009158053 0.5224943 -0.6491412 -0.008296790
## 1971 0.5273993 -0.6397974  0.099381807 0.4726007 -0.7495043 -0.100363171
## 1972 0.5307783 -0.6334109  0.006386508 0.4692217 -0.7566798 -0.007175519
## 1973 0.4945980 -0.7040100 -0.070599115 0.5054020 -0.6824011  0.074278785
## 1974 0.5058978 -0.6814207  0.022589376 0.4941022 -0.7050129 -0.022611787
## 1975 0.6310958 -0.4602976  0.221123087 0.3689042 -0.9972184 -0.292205502
## 1976 0.6030175 -0.5058090 -0.045511461 0.3969825 -0.9238631  0.073355224
## 1977 0.6438736 -0.4402529  0.065556117 0.3561264 -1.0324694 -0.108606306
## 1978 0.6242391 -0.4712218 -0.030968849 0.3757609 -0.9788023  0.053667110
## 1979 0.6136454 -0.4883380 -0.017116240 0.3863546 -0.9509997  0.027802582
## 1980 0.6273909 -0.4661854  0.022152581 0.3726091 -0.9872255 -0.036225768
## 1981 0.6342630 -0.4552916  0.010893780 0.3657370 -1.0058407 -0.018615174
## 1982 0.6084826 -0.4967870 -0.041495352 0.3915174 -0.9377253  0.068115413
## 1983 0.6008704 -0.5093761 -0.012589078 0.3991296 -0.9184690  0.019256264
## 1984 0.5882311 -0.5306354 -0.021259310 0.4117689 -0.8872930  0.031175998
## 1985 0.5871353 -0.5325001 -0.001864684 0.4128647 -0.8846352  0.002657771
## 1986 0.5724650 -0.5578038 -0.025303696 0.4275350 -0.8497190  0.034916223
## 1987 0.5879928 -0.5310406  0.026763168 0.4120072 -0.8867144 -0.036995415
## 1988 0.5629703 -0.5745284 -0.043487812 0.4370297 -0.8277541  0.058960307
## 1989 0.5551639 -0.5884920 -0.013963566 0.4448361 -0.8100493  0.017704840
## 1990 0.5619834 -0.5762830  0.012208954 0.4380166 -0.8254984 -0.015449123
## 2019 0.5878552 -0.5312747 -0.006239207 0.4121448 -0.8863804  0.008967082
## 2020 0.6308182 -0.4607376  0.070537060 0.3691818 -0.9964660 -0.110085541
## 2021 0.6158321 -0.4847809 -0.024043231 0.3841679 -0.9566757  0.039790303
## 2022        NA         NA           NA        NA         NA           NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1960  7.21826 1.976614           NA  8972954298201 29.82524            NA
## 1961  7.49464 2.014188  0.037574172  9392160094555 29.87090  0.0456603337
## 1962  7.59653 2.027692  0.013503466  9947583962117 29.92835  0.0574543950
## 1963  7.85778 2.061504  0.033812560 10487864329066 29.98124  0.0528891067
## 1964  8.47593 2.137230  0.075726258 11171673228138 30.04440  0.0631625879
## 1965  8.63931 2.156323  0.019092337 11783269241258 30.09770  0.0532992660
## 1966  8.73482 2.167317  0.010994618 12495764387391 30.15641  0.0587090734
## 1967  8.75369 2.169475  0.002157989 13074789943977 30.20171  0.0452962065
## 1968  9.12003 2.210473  0.040997768 13891600097408 30.26231  0.0605984036
## 1969 10.02955 2.305536  0.095062642 14691611542523 30.31830  0.0559923396
## 1970 10.20043 2.322430  0.016894141 15070345758894 30.34375  0.0254522684
## 1971 10.47250 2.348753  0.026322898 15662417741194 30.38229  0.0385351124
## 1972 11.16349 2.412649  0.063895858 16533554718573 30.43641  0.0541278670
## 1973 12.09148 2.492501  0.079852440 17577842133568 30.49766  0.0612472040
## 1974 12.60083 2.533763  0.041261612 17801533619427 30.51031  0.0126454728
## 1975 11.77278 2.465790 -0.067972598 17775055167792 30.50882 -0.0014885326
## 1976 12.07114 2.490817  0.025027393 18655634848762 30.55717  0.0483521578
## 1977 12.26063 2.506393  0.015575836 19380216731798 30.59527  0.0381045526
## 1978 12.76025 2.546335  0.039941554 20172296744202 30.63533  0.0400574251
## 1979 13.05955 2.569520  0.023184797 21008446068707 30.67595  0.0406143358
## 1980 13.16937 2.577894  0.008374012 21323770969290 30.69084  0.0148979078
## 1981 13.09681 2.572369 -0.005524990 21751944285472 30.71072  0.0198806876
## 1982 13.24498 2.583619  0.011249924 21741376022936 30.71024 -0.0004859718
## 1983 13.64088 2.613071  0.029452554 22335831642345 30.73721  0.0269750148
## 1984 14.48483 2.673102  0.060030728 23355455128792 30.78185  0.0446383921
## 1985 14.90754 2.701867  0.028765230 24193825157117 30.81712  0.0352668606
## 1986 16.39589 2.797031  0.095163568 24981759303111 30.84917  0.0320484889
## 1987 17.04378 2.835785  0.038754634 25865374329707 30.88393  0.0347592451
## 1988 18.48625 2.917027  0.081241885 27112774969139 30.93103  0.0470998421
## 1989 20.29760 3.010503  0.093475440 28169617618380 30.96927  0.0382389898
## 1990 21.37642 3.062288  0.051785793 29063270330458 31.00050  0.0312311813
## 2019 58.46538 4.068435  0.022710076             NA       NA            NA
## 2020 55.31731 4.013086 -0.055348905             NA       NA            NA
## 2021 58.49279 4.068903  0.055817619             NA       NA            NA
## 2022       NA       NA           NA             NA       NA            NA
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1960 0.057275  7.160985 1.968648           NA  2.79500 1.027832
## 1961 0.058923  7.435717 2.006295  0.037647470  2.93356 1.076217
## 1962 0.059508  7.537022 2.019827  0.013532133  3.06347 1.119548
## 1963 0.061721  7.796059 2.053618  0.033791206  3.20391 1.164372
## 1964 0.069549  8.406381 2.128991  0.075372711  3.49843 1.252314
## 1965 0.079287  8.560023 2.147103  0.018111817  3.63876 1.291643
## 1966 0.082583  8.652237 2.157818  0.010715023  3.69796 1.307781
## 1967 0.084839  8.668851 2.159736  0.001918356  3.69696 1.307511
## 1968 0.089631  9.030399 2.200597  0.040860296  3.85591 1.349607
## 1969 0.097330  9.932220 2.295784  0.095187466  4.05688 1.400414
## 1970 0.117369 10.083061 2.310857  0.015072869  4.30551 1.459896
## 1971 0.132484 10.340016 2.336021  0.025164529  4.54745 1.514567
## 1972 0.160504 11.002986 2.398167  0.062145274  4.76773 1.561870
## 1973 0.193750 11.897730 2.476348  0.078180935  5.04215 1.617833
## 1974 0.217041 12.383789 2.516388  0.040040653  5.26903 1.661846
## 1975 0.246513 11.526267 2.444629 -0.071759761  5.54692 1.713243
## 1976 0.277591 11.793549 2.467553  0.022924169  5.72107 1.744156
## 1977 0.298952 11.961678 2.481708  0.014155353  5.85183 1.766754
## 1978 0.340222 12.420028 2.519310  0.037602291  6.02444 1.795825
## 1979 0.354513 12.705037 2.541999  0.022688198  6.23721 1.830533
## 1980 0.412569 12.756801 2.546065  0.004066012  6.41262 1.858268
## 1981 0.445489 12.651321 2.537762 -0.008302905  6.52415 1.875511
## 1982 0.523041 12.721939 2.543328  0.005566347  6.54986 1.879444
## 1983 0.653465 12.987415 2.563981  0.020652828  6.58210 1.884354
## 1984 0.707812 13.777018 2.623002  0.059021030  6.67726 1.898708
## 1985 0.762441 14.145099 2.649368  0.026366362  6.85476 1.924943
## 1986 0.819339 15.576551 2.745767  0.096398439  7.07802 1.956994
## 1987 0.858073 16.185707 2.784129  0.038361926  7.40145 2.001676
## 1988 0.940358 17.545892 2.864820  0.080691280  7.84276 2.059591
## 1989 1.082249 19.215351 2.955709  0.090889642  8.22017 2.106591
## 1990 1.177881 20.198539 3.005610  0.049900784  8.52617 2.143140
## 2019 7.514090 50.951290 3.930870  0.020213606 17.61225 2.868595
## 2020 6.852169 48.465141 3.880845 -0.050025281 16.88310 2.826313
## 2021 7.731728 50.761062 3.927130  0.046284767 17.65297 2.870904
## 2022       NA        NA       NA           NA       NA       NA
##               C_dl         W      W_l         W_dl         R      R_l
## 1960            NA  3.571913 1.273101           NA  3.589072 1.277894
## 1961  0.0483845960  3.862350 1.351276  0.078174510  3.573367 1.273508
## 1962  0.0433315579  3.883731 1.356796  0.005520327  3.653291 1.295628
## 1963  0.0448236785  4.040733 1.396426  0.039629963  3.755326 1.323175
## 1964  0.0879423575  4.368737 1.474474  0.078047724  4.037644 1.395661
## 1965  0.0393286678  4.480422 1.499717  0.025243397  4.079601 1.405999
## 1966  0.0161383520  4.534980 1.511821  0.012103487  4.117257 1.415187
## 1967 -0.0002704559  4.594757 1.524916  0.013095133  4.074094 1.404648
## 1968  0.0420961759  4.610607 1.528359  0.003443562  4.419792 1.486093
## 1969  0.0508071691  4.699456 1.547447  0.019087257  5.232764 1.654940
## 1970  0.0594813925  4.814719 1.571678  0.024230922  5.268342 1.661716
## 1971  0.0546710385  5.453317 1.696224  0.124546336  4.886699 1.586517
## 1972  0.0473036643  5.840146 1.764756  0.068531782  5.162840 1.641487
## 1973  0.0559622778  5.884593 1.772338  0.007581820  6.013137 1.793947
## 1974  0.0440137065  6.264931 1.834968  0.062630029  6.118858 1.811375
## 1975  0.0513965339  7.274179 1.984331  0.149363326  4.252088 1.447410
## 1976  0.0309130321  7.111717 1.961744 -0.022587291  4.681832 1.543690
## 1977  0.0225985820  7.701808 2.041455  0.079711470  4.259870 1.449239
## 1978  0.0290700962  7.753067 2.048089  0.006633442  4.666961 1.540508
## 1979  0.0347084380  7.796388 2.053661  0.005571958  4.908649 1.590999
## 1980  0.0277349568  8.003501 2.079879  0.026218593  4.753300 1.558839
## 1981  0.0172427528  8.024264 2.082470  0.002590875  4.627057 1.531921
## 1982  0.0039329988  7.741078 2.046541 -0.035929005  4.980861 1.605603
## 1983  0.0049101680  7.803753 2.054605  0.008063750  5.183662 1.645512
## 1984  0.0143538804  8.104070 2.092366  0.037761720  5.672948 1.735709
## 1985  0.0262355777  8.305086 2.116868  0.024501678  5.840013 1.764733
## 1986  0.0320509061  8.917030 2.187963  0.071094742  6.659521 1.896048
## 1987  0.0446817194  9.517079 2.253088  0.065125095  6.668628 1.897414
## 1988  0.0579148863  9.877816 2.290291  0.037203467  7.668076 2.037066
## 1989  0.0470000769 10.667668 2.367218  0.076926077  8.547683 2.145660
## 1990  0.0365493670 11.351243 2.429327  0.062109738  8.847296 2.180112
## 2019  0.0276746410 29.951979 3.399595  0.013974399 20.999311 3.044490
## 2020 -0.0422815611 30.572691 3.420107  0.020511779 17.892450 2.884379
## 2021  0.0445909196 31.260293 3.442349  0.022241536 19.500769 2.970454
## 2022            NA        NA       NA           NA        NA       NA
##              R_dl       It      It_l         It_dl   Itcurr    Itcurr_l
## 1960           NA  1.44432 0.3676386            NA  0.16996 -1.77219216
## 1961 -0.004385401  1.57499 0.4542489  0.0866103005  0.19703 -1.62439928
## 1962  0.022120284  1.69740 0.5290977  0.0748487455  0.22206 -1.50480766
## 1963  0.027546543  1.93805 0.6616823  0.1325846444  0.27485 -1.29152978
## 1964  0.072486379  2.36656 0.8614374  0.1997551110  0.35189 -1.04443665
## 1965  0.010337716  2.03780 0.7118708 -0.1495666294  0.30596 -1.18430090
## 1966  0.009187918  1.93398 0.6595801 -0.0522907388  0.30533 -1.18636212
## 1967 -0.010538704  1.78054 0.5769167 -0.0826633666  0.27662 -1.28511056
## 1968  0.081444339  1.70635 0.5343566 -0.0425601028  0.27902 -1.27647182
## 1969  0.168846969  1.88555 0.6342196  0.0998629692  0.32561 -1.12205493
## 1970  0.006776079  2.02676 0.7064385  0.0722189034  0.39552 -0.92755392
## 1971 -0.075198642  2.24267 0.8076671  0.1012286614  0.49501 -0.70317731
## 1972  0.054969755  2.40006 0.8754937  0.0678266167  0.54689 -0.60350759
## 1973  0.152459720  2.68394 0.9872859  0.1117921271  0.65255 -0.42686751
## 1974  0.017428866  2.49675 0.9149899 -0.0722959780  0.71611 -0.33392149
## 1975 -0.363965262  2.31122 0.8377755 -0.0772143625  0.74921 -0.28873596
## 1976  0.096279393  2.21362 0.7946292 -0.0431463391  0.77400 -0.25618341
## 1977 -0.094450954  2.21187 0.7938383 -0.0007908729  0.80044 -0.22259370
## 1978  0.091269401  2.23534 0.8043933  0.0105550302  0.84042 -0.17385351
## 1979  0.050490780  2.31961 0.8413991  0.0370057263  0.92724 -0.07554285
## 1980 -0.032159756  2.61421 0.9609619  0.1195628805  1.12212  0.11521975
## 1981 -0.026918078  2.42040 0.8839328 -0.0770291329  1.12165  0.11480082
## 1982  0.073681760  2.40898 0.8792034 -0.0047293944  1.23538  0.21137862
## 1983  0.039909092  2.12558 0.7540447 -0.1251587151  1.15513  0.14421289
## 1984  0.090197028  2.12818 0.7552672  0.0012224481  1.20884  0.18966122
## 1985  0.029024133  1.92565 0.6552636 -0.1000035813  1.12928  0.12158026
## 1986  0.131314662  2.64082 0.9710895  0.3158259019  1.57543  0.45452825
## 1987  0.001366512  3.10950 1.1344619  0.1633724666  1.88980  0.63647100
## 1988  0.139651587  3.46607 1.2430214  0.1085594457  2.11406  0.74861027
## 1989  0.108594483  3.70522 1.3097426  0.0667212489  2.35997  0.85864891
## 1990  0.034451661  3.83025 1.3429301  0.0331874390  2.58238  0.94871145
## 2019  0.029180688 10.24223 2.3265194  0.0387373025 10.72144  2.37224547
## 2020 -0.160110822  9.01537 2.1989309 -0.1275884708  9.49145  2.25039139
## 2021  0.086075070  9.78152 2.2804949  0.0815639927 10.46026  2.34758331
## 2022           NA       NA        NA            NA       NA          NA
##          Itcurr_dl      Ipr     Ipr_l      Ipr_dl       Ips      Ips_l
## 1960            NA       NA        NA          NA        NA         NA
## 1961  0.1477928862       NA        NA          NA        NA         NA
## 1962  0.1195916142       NA        NA          NA        NA         NA
## 1963  0.2132778787       NA        NA          NA        NA         NA
## 1964  0.2470931325       NA        NA          NA        NA         NA
## 1965 -0.1398642523       NA        NA          NA        NA         NA
## 1966 -0.0020612155       NA        NA          NA        NA         NA
## 1967 -0.0987484357       NA        NA          NA        NA         NA
## 1968  0.0086387406       NA        NA          NA        NA         NA
## 1969  0.1544168823       NA        NA          NA        NA         NA
## 1970  0.1945010086       NA        NA          NA        NA         NA
## 1971  0.2243766096       NA        NA          NA        NA         NA
## 1972  0.0996697209       NA        NA          NA        NA         NA
## 1973  0.1766400793       NA        NA          NA        NA         NA
## 1974  0.0929460218       NA        NA          NA        NA         NA
## 1975  0.0451855316       NA        NA          NA        NA         NA
## 1976  0.0325525555       NA        NA          NA        NA         NA
## 1977  0.0335897029       NA        NA          NA        NA         NA
## 1978  0.0487401904       NA        NA          NA        NA         NA
## 1979  0.0983106649       NA        NA          NA        NA         NA
## 1980  0.1907626005       NA        NA          NA        NA         NA
## 1981 -0.0004189378       NA        NA          NA        NA         NA
## 1982  0.0965777996       NA        NA          NA        NA         NA
## 1983 -0.0671657233       NA        NA          NA        NA         NA
## 1984  0.0454483303       NA        NA          NA        NA         NA
## 1985 -0.0680809606       NA        NA          NA        NA         NA
## 1986  0.3329479894       NA        NA          NA        NA         NA
## 1987  0.1819427525       NA        NA          NA        NA         NA
## 1988  0.1121392659       NA        NA          NA        NA         NA
## 1989  0.1100386378       NA        NA          NA        NA         NA
## 1990  0.0900625472 2.180624 0.7796111          NA 0.8444241 -0.1691004
## 2019  0.0600675408 7.989190 2.0780894  0.03515882 0.7451602 -0.2941561
## 2020 -0.1218540816 6.420173 1.8594451 -0.21864431 0.6764165 -0.3909463
## 2021  0.0971919216 7.422996 2.0045827  0.14513768 0.7096378 -0.3430006
## 2022            NA       NA        NA          NA        NA         NA
##           Ips_dl        I      I_l        I_dl          r      r_l
## 1960          NA       NA       NA          NA         NA       NA
## 1961          NA       NA       NA          NA         NA       NA
## 1962          NA       NA       NA          NA         NA       NA
## 1963          NA       NA       NA          NA         NA       NA
## 1964          NA       NA       NA          NA         NA       NA
## 1965          NA       NA       NA          NA         NA       NA
## 1966          NA       NA       NA          NA         NA       NA
## 1967          NA       NA       NA          NA         NA       NA
## 1968          NA       NA       NA          NA         NA       NA
## 1969          NA       NA       NA          NA         NA       NA
## 1970          NA       NA       NA          NA         NA       NA
## 1971          NA       NA       NA          NA         NA       NA
## 1972          NA       NA       NA          NA         NA       NA
## 1973          NA       NA       NA          NA -4.8236559 1.499057
## 1974          NA       NA       NA          NA -8.3011186 0.000000
## 1975          NA       NA       NA          NA  7.6507378 2.830377
## 1976          NA       NA       NA          NA -4.4429477 1.580662
## 1977          NA       NA       NA          NA  5.7998091 2.714756
## 1978          NA       NA       NA          NA  1.4268196 2.372851
## 1979          NA       NA       NA          NA  0.4001473 2.272256
## 1980          NA       NA       NA          NA -0.4460273 2.180993
## 1981          NA       NA       NA          NA  1.3976147 2.370125
## 1982          NA       NA       NA          NA -0.4163658 2.184337
## 1983          NA       NA       NA          NA  2.8284421 2.495646
## 1984          NA       NA       NA          NA  5.6054546 2.701802
## 1985          NA       NA       NA          NA  6.3422351 2.750046
## 1986          NA       NA       NA          NA  8.6910075 2.889934
## 1987          NA       NA       NA          NA  7.9025780 2.845124
## 1988          NA       NA       NA          NA  4.2847181 2.609028
## 1989          NA       NA       NA          NA  3.5371176 2.552428
## 1990          NA 3.234356 1.173830          NA  5.8543825 2.718364
## 2019 -0.02490872 7.632102 2.032363  0.01382859 -3.3968661 1.775673
## 2020 -0.09679023 6.098145 1.807985 -0.22437870         NA       NA
## 2021  0.04794576 6.941336 1.937494  0.12950976         NA       NA
## 2022          NA       NA       NA          NA         NA       NA
##             r_dl         P      P_l          P_dl        Pm     Pm_l
## 1960          NA  12.28964 2.508757            NA  13.15834 2.577056
## 1961          NA  11.84097 2.471565 -0.0371913779  13.34761 2.591337
## 1962          NA  12.30168 2.509736  0.0381706911  13.45134 2.599079
## 1963          NA  12.68838 2.540687  0.0309508694  13.61538 2.611200
## 1964          NA  13.42839 2.597371  0.0566846956  13.90198 2.632031
## 1965          NA  13.80415 2.624969  0.0275979887  14.14332 2.649242
## 1966          NA  14.34685 2.663530  0.0385610801  14.33796 2.662910
## 1967          NA  14.40830 2.667804  0.0042738010  14.23970 2.656034
## 1968          NA  15.13064 2.716722  0.0489175823  14.24436 2.656361
## 1969          NA  15.93197 2.768328  0.0516059276  14.68678 2.686948
## 1970          NA  18.33610 2.908872  0.1405441068  15.68196 2.752511
## 1971          NA  18.18681 2.900697 -0.0081752367  16.48198 2.802268
## 1972          NA  19.23961 2.956971  0.0562745336  16.46468 2.801217
## 1973          NA  21.58728 3.072104  0.1151328652  17.94875 2.887521
## 1974 -1.49905652  25.25295 3.228943  0.1568388409  21.97326 3.089826
## 1975  2.83037735  25.03696 3.220353 -0.0085897961  24.20974 3.186755
## 1976 -1.24971534  28.09540 3.335606  0.1152525841  25.70919 3.246849
## 1977  1.13409417  28.42473 3.347260  0.0116538814  26.67858 3.283861
## 1978 -0.34190479  29.88292 3.397287  0.0500273492  27.15054 3.301397
## 1979 -0.10059500  31.78180 3.458894  0.0616069669  29.29071 3.377270
## 1980 -0.09126380  34.29935 3.535127  0.0762326174  31.52237 3.450697
## 1981  0.18913277  36.76274 3.604485  0.0693582169  34.70687 3.546938
## 1982 -0.18578871  40.73730 3.707144  0.1026592970  39.49562 3.676190
## 1983  0.31130887  43.51505 3.773107  0.0659627730  42.63360 3.752643
## 1984  0.20615676  45.43297 3.816238  0.0431311887  45.79770 3.824234
## 1985  0.04824387  46.78634 3.845591  0.0293533441  47.21640 3.854741
## 1986  0.13988808  46.74717 3.844754 -0.0008376549  46.41687 3.837663
## 1987 -0.04480994  46.77638 3.845378  0.0006246470  45.85479 3.825480
## 1988 -0.23609645  48.07504 3.872763  0.0273848311  46.24080 3.833863
## 1989 -0.05659991  50.00798 3.912183  0.0394194117  48.01768 3.871569
## 1990  0.16593565  51.26728 3.937053  0.0248700890  48.76607 3.887035
## 2019 -0.22541557 108.63923 4.688033  0.0333582821 109.48869 4.695821
## 2020          NA 109.04099 4.691724  0.0036912280 107.49573 4.677451
## 2021          NA 112.04957 4.718941  0.0272175677 111.65578 4.715421
## 2022          NA        NA       NA            NA        NA       NA
##             Pm_dl        Px     Px_l         Px_dl        X      X_l
## 1960           NA  14.41922 2.668562            NA   5.2755 1.663073
## 1961  0.014281353  13.98547 2.638019 -0.0305432527   5.4593 1.697321
## 1962  0.007741677  13.75153 2.621150 -0.0168685821   5.3722 1.681238
## 1963  0.012120886  13.74475 2.620657 -0.0004934485   5.5750 1.718292
## 1964  0.020831467  14.04840 2.642508  0.0218514724   6.3145 1.842849
## 1965  0.017210798  14.25012 2.656765  0.0142568833   6.6818 1.899387
## 1966  0.013668394  14.36394 2.664721  0.0079553845   6.6688 1.897440
## 1967 -0.006876826  14.41448 2.668234  0.0035129970   6.7983 1.916673
## 1968  0.000327327  14.60501 2.681365  0.0131311266   7.5283 2.018669
## 1969  0.030586991  15.56022 2.744717  0.0633527037   8.5648 2.147661
## 1970  0.065562766  17.61548 2.868778  0.1240606306   9.3381 2.234103
## 1971  0.049757203  17.12603 2.840599 -0.0281787550   9.6997 2.272095
## 1972 -0.001050723  17.24883 2.847745  0.0071453044  10.2119 2.323554
## 1973  0.086303322  19.83796 2.987598  0.1398529276  11.6303 2.453614
## 1974  0.202305727  25.08943 3.222447  0.2348492006  12.8802 2.555691
## 1975  0.096928841  24.82946 3.212031 -0.0104157615  10.8623 2.385298
## 1976  0.060093569  26.96982 3.294718  0.0826874213  10.9650 2.394708
## 1977  0.037012467  26.20661 3.266012 -0.0287068460  11.4294 2.436189
## 1978  0.017535727  26.91620 3.292729  0.0267169675  11.7435 2.463300
## 1979  0.075873603  28.99550 3.367140  0.0744119770  12.8784 2.555551
## 1980  0.073427008  31.17264 3.439541  0.0724004001  12.6920 2.540972
## 1981  0.096240030  34.17225 3.531414  0.0918729785  12.0798 2.491535
## 1982  0.129252138  39.46049 3.675300  0.1438861813  12.0419 2.488392
## 1983  0.076453087  41.80174 3.732938  0.0576380142  12.6789 2.539939
## 1984  0.071591083  43.98817 3.783921  0.0509825801  14.9648 2.705701
## 1985  0.030507405  45.72556 3.822658  0.0387368860  16.3913 2.796751
## 1986 -0.017078195  44.65323 3.798927 -0.0237308145  16.8799 2.826124
## 1987 -0.012183380  43.70270 3.777410 -0.0215169143  17.4403 2.858784
## 1988  0.008382948  44.56519 3.796953  0.0195433056  19.3715 2.963803
## 1989  0.037706601  46.47566 3.838929  0.0419756292  21.8101 3.082373
## 1990  0.015465570  46.54239 3.840363  0.0014347089  23.0287 3.136741
## 2019  0.031021989 109.95006 4.700026  0.0343889001 120.5930 4.792421
## 2020 -0.018370168 107.89456 4.681154 -0.0188718427 106.7096 4.670111
## 2021  0.037969596 112.16483 4.719969  0.0388150522 115.7186 4.751161
## 2022           NA        NA       NA            NA       NA       NA
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1960           NA   4.5061 1.505432           NA 0.4948441 -0.7035126
## 1961  0.034247115   4.8366 1.576212  0.070779960 0.5153483 -0.6629122
## 1962 -0.016083068   4.9901 1.607456  0.031243955 0.5112506 -0.6708954
## 1963  0.037054809   5.1458 1.638181  0.030724898 0.5142334 -0.6650780
## 1964  0.124556259   5.8457 1.765706  0.127525500 0.5154286 -0.6627565
## 1965  0.056538836   6.1062 1.809305  0.043598300 0.5186088 -0.6566054
## 1966 -0.001947479   5.9520 1.783727 -0.025577351 0.5191842 -0.6554966
## 1967  0.019232647   5.6672 1.734695 -0.049032129 0.5248938 -0.6445594
## 1968  0.101996672   6.1855 1.822208  0.087512675 0.5055473 -0.6821136
## 1969  0.128991528   6.8772 1.928212  0.106003749 0.4685610 -0.7580890
## 1970  0.086442025   8.1834 2.102108  0.173896120 0.4720114 -0.7507522
## 1971  0.037992152   8.8361 2.178846  0.076737891 0.5207273 -0.6525288
## 1972  0.051458750   9.0708 2.205060  0.026214860 0.5231470 -0.6478929
## 1973  0.130060055  10.0919 2.311733  0.106672659 0.4866727 -0.7201635
## 1974  0.102077487  10.6827 2.368626  0.056892489 0.4971840 -0.6987951
## 1975 -0.170393170   9.7200 2.274186 -0.094439992 0.6178812 -0.4814591
## 1976  0.009410303   9.8320 2.285642  0.011456754 0.5891504 -0.5290738
## 1977  0.041480601   9.7930 2.281668 -0.003974528 0.6281739 -0.4649382
## 1978  0.027110913  10.4772 2.349201  0.067533623 0.6075953 -0.4982463
## 1979  0.092251593  11.1487 2.411323  0.062121432 0.5969875 -0.5158591
## 1980 -0.014579616  11.5822 2.449469  0.038146538 0.6077361 -0.4980146
## 1981 -0.049437238  11.2504 2.420404 -0.029065753 0.6126885 -0.4898987
## 1982 -0.003142401  11.2176 2.417484 -0.002919710 0.5844538 -0.5370776
## 1983  0.051546960  11.3577 2.429896  0.012411955 0.5720857 -0.5584664
## 1984  0.165761582  12.9374 2.560122  0.130226414 0.5594867 -0.5807354
## 1985  0.091049930  13.8371 2.627353  0.067231049 0.5571064 -0.5849990
## 1986  0.029372859  14.0743 2.644350  0.016997049 0.5438576 -0.6090678
## 1987  0.032660055  15.1026 2.714867  0.070516475 0.5583902 -0.5826974
## 1988  0.105019294  16.6810 2.814270  0.099403433 0.5343331 -0.6267358
## 1989  0.118570251  18.2070 2.901806  0.087535788 0.5255630 -0.6432851
## 1990  0.054368099  19.1172 2.950588  0.048782318 0.5310170 -0.6329612
## 2019  0.008325256 100.2234 4.607402  0.009080912 0.5123028 -0.6688394
## 2020 -0.122310113  88.1487 4.479025 -0.128376533 0.5526786 -0.5929787
## 2021  0.081050256  95.9466 4.563792  0.084766626 0.5344299 -0.6265548
## 2022           NA       NA       NA           NA        NA         NA
##           rulc_dl       ulc    ulc_l       ulc_dl      Tau    Tau_l
## 1960           NA  6.081455 1.805244           NA 54.05614 3.990023
## 1961  0.040600338  6.102222 1.808653  0.003408960 55.17894 4.010581
## 1962 -0.007983139  6.289242 1.838841  0.030187552 55.05475 4.008328
## 1963  0.005817403  6.524790 1.875609  0.036768273 55.97574 4.024918
## 1964  0.002321467  6.921378 1.934615  0.059006162 58.45187 4.068204
## 1965  0.006151060  7.158955 1.968364  0.033749049 58.47789 4.068649
## 1966  0.001108869  7.448658 2.008034  0.039669949 58.25234 4.064784
## 1967  0.010937143  7.562826 2.023245  0.015210944 58.31741 4.065901
## 1968 -0.037554206  7.649255 2.034608  0.011363376 60.67937 4.105604
## 1969 -0.075975385  7.465100 2.010239 -0.024369457 65.99976 4.189651
## 1970  0.007336781  8.654849 2.158120  0.147880888 65.96162 4.189073
## 1971  0.098223439  9.470369 2.248168  0.090048202 65.85083 4.187392
## 1972  0.004635924 10.065144 2.309078  0.060910457 68.28263 4.223655
## 1973 -0.072270620 10.505938 2.351941  0.042862245 72.28117 4.280564
## 1974  0.021368417 12.555362 2.530148  0.178207258 73.34699 4.295201
## 1975  0.217335924 15.469866 2.738894  0.208746128 67.29560 4.209095
## 1976 -0.047614684 16.552413 2.806532  0.067637900 68.22709 4.222842
## 1977  0.064135634 17.855675 2.882321  0.075789515 68.45382 4.226159
## 1978 -0.033308112 18.156718 2.899041  0.016719237 70.59375 4.256942
## 1979 -0.017612839 18.973339 2.943035  0.043994128 71.22158 4.265796
## 1980  0.017844581 20.844955 3.037112  0.094077199 70.49352 4.255521
## 1981  0.008115865 22.524104 3.114586  0.077474082 69.13414 4.236049
## 1982 -0.047178929 23.809066 3.170066  0.055480368 69.14181 4.236160
## 1983 -0.021388804 24.894338 3.214640  0.044573969 70.77395 4.259491
## 1984 -0.022269008 25.419143 3.235503  0.020862181 74.45336 4.310173
## 1985 -0.004263552 26.064972 3.260592  0.025089792 75.99758 4.330702
## 1986 -0.024068826 25.423803 3.235686 -0.024906481 81.63899 4.402307
## 1987  0.026370460 26.119469 3.262681  0.026995107 82.39635 4.411541
## 1988 -0.044038417 25.688088 3.246027 -0.016653586 86.44927 4.459558
## 1989 -0.016549363 26.282346 3.268897  0.022870048 91.57275 4.517134
## 1990  0.010323946 27.223797 3.304091  0.035194035 92.68109 4.529164
## 2019 -0.008735677 55.656185 4.019193  0.024622605 99.25194 4.597661
## 2020  0.075860684 60.264615 4.098745  0.079551912 92.91825 4.531720
## 2021 -0.033576083 59.882637 4.092387 -0.006358516 95.89754 4.563280
## 2022           NA        NA       NA           NA       NA       NA
##             Tau_dl        dPxdPm        dPdPm    Trade
## 1960            NA            NA           NA 1.355119
## 1961  0.0205582150 -0.0448246056 -0.051472731 1.373768
## 1962 -0.0022531541 -0.0246102594  0.030429014 1.364083
## 1963  0.0165902279 -0.0126143342  0.018829984 1.364355
## 1964  0.0432851655  0.0010200051  0.035853228 1.434674
## 1965  0.0004451442 -0.0029539147  0.010387191 1.480211
## 1966 -0.0038645617 -0.0057130090  0.024892687 1.444884
## 1967  0.0011165608  0.0103898232  0.011150627 1.424028
## 1968  0.0397029905  0.0128037996  0.048590255 1.503701
## 1969  0.0840473620  0.0327657127  0.021018937 1.539650
## 1970 -0.0005780980  0.0584978650  0.074981341 1.717722
## 1971 -0.0016809782 -0.0779359577 -0.057932439 1.769950
## 1972  0.0362634238  0.0081960271  0.057325256 1.727300
## 1973  0.0569082343  0.0535496054  0.028829543 1.796488
## 1974  0.0146377395  0.0325434735 -0.045466886 1.869948
## 1975 -0.0861066339 -0.1073446028 -0.105518637 1.748296
## 1976  0.0137468849  0.0225938524  0.055159015 1.722870
## 1977  0.0033176296 -0.0657193133 -0.025358586 1.730939
## 1978  0.0307822509  0.0091812406  0.032491622 1.741400
## 1979  0.0088543054 -0.0014616260 -0.014266636 1.839811
## 1980 -0.0102750334 -0.0010266082  0.002805609 1.843232
## 1981 -0.0194722087 -0.0043670519 -0.026881814 1.781365
## 1982  0.0001110518  0.0146340428 -0.026592841 1.756099
## 1983  0.0233313908 -0.0188150732 -0.010490314 1.762100
## 1984  0.0506818518 -0.0206085029 -0.028459894 1.926305
## 1985  0.0205286173  0.0082294810 -0.001154061 2.027726
## 1986  0.0716054593 -0.0066526192  0.016240540 1.887924
## 1987  0.0092341525 -0.0093335345  0.012808027 1.909371
## 1988  0.0480165783  0.0111603581  0.019001884 1.950233
## 1989  0.0575759786  0.0042690287  0.001712811 1.971519
## 1990  0.0120307117 -0.0140308614  0.009404519 1.971607
## 2019 -0.0075802206  0.0033669116  0.002336294 3.776874
## 2020 -0.0659413702 -0.0005016747  0.022061396 3.522556
## 2021  0.0315602043  0.0008454560 -0.010752028 3.618655
## 2022            NA            NA           NA       NA
LUX <- LUX_df[32:59,]
LUX[!complete.cases(LUX),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
LUX %>% head()
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1991 0.5568510 -0.5854575 -0.009174496 0.4431490 -0.8138493  0.011649100
## 1992 0.5778601 -0.5484235  0.037034025 0.4221399 -0.8624185 -0.048569188
## 1993 0.5719554 -0.5586942 -0.010270699 0.4280446 -0.8485280  0.013890510
## 1994 0.5650795 -0.5707888 -0.012094576 0.4349205 -0.8325921  0.015935848
## 1995 0.5668586 -0.5676453  0.003143434 0.4331414 -0.8366911 -0.004098988
## 1996 0.5620819 -0.5761076 -0.008462317 0.4379181 -0.8257235  0.010967669
##             Y      Y_l       Y_dl            Yrw    Yrw_l     Yrw_dl
## 1991 23.22420 3.145195 0.08290639 29502989566983 31.01551 0.01501641
## 1992 23.64680 3.163228 0.01803296 30117227071322 31.03612 0.02060574
## 1993 24.64021 3.204380 0.04115186 30484582609607 31.04824 0.01212373
## 1994 25.58161 3.241874 0.03749407 31457961235736 31.07967 0.03143102
## 1995 25.94806 3.256097 0.01422311 32377575946213 31.10849 0.02881399
## 1996 26.30833 3.269886 0.01378877 33336579305130 31.13768 0.02918919
##           Tax       Yf     Yf_l      Yf_dl       C      C_l        C_dl
## 1991 1.307731 21.91647 3.087238 0.08162809 9.12445 2.210958  0.06781737
## 1992 1.463671 22.18313 3.099332 0.01209368 8.91017 2.187193 -0.02376430
## 1993 1.688851 22.95136 3.133377 0.03404511 9.09195 2.207389  0.02019609
## 1994 1.810272 23.77134 3.168481 0.03510342 9.45962 2.247032  0.03964281
## 1995 1.792510 24.15555 3.184514 0.01603360 9.63720 2.265631  0.01859840
## 1996 1.870370 24.43796 3.196138 0.01162349 9.83036 2.285476  0.01984495
##             W      W_l        W_dl         R      R_l        R_dl      It
## 1991 12.20421 2.501781 0.072453592  9.712261 2.273389  0.09327719 4.43386
## 1992 12.81875 2.550909 0.049127707  9.364384 2.236914 -0.03647551 3.76546
## 1993 13.12715 2.574683 0.023774406  9.824204 2.284849  0.04793562 4.54080
## 1994 13.43270 2.597692 0.023008843 10.338641 2.335888  0.05103927 4.54273
## 1995 13.69278 2.616869 0.019177032 10.462768 2.347823  0.01193461 4.47383
## 1996 13.73614 2.620030 0.003161177 10.701824 2.370414  0.02259116 4.28572
##          It_l         It_dl  Itcurr Itcurr_l    Itcurr_dl      Ipr
## 1991 1.489271  0.1463404613 3.07633 1.123737  0.175025874 2.616264
## 1992 1.325870 -0.1634005048 2.75177 1.012244 -0.111492987 2.193094
## 1993 1.513103  0.1872331762 3.36981 1.214856  0.202612022 2.764039
## 1994 1.513528  0.0004249449 3.41989 1.229608  0.014752024 2.891372
## 1995 1.498245 -0.0152832879 3.41870 1.229260 -0.000348025 2.837470
## 1996 1.455289 -0.0429562991 3.31610 1.198789 -0.030470968 2.646900
##          Ipr_l      Ipr_dl       Ips      Ips_l       Ips_dl        I
## 1991 0.9617473  0.18213627 0.8504497 -0.1619900  0.007110398 3.770775
## 1992 0.7853133 -0.17643401 0.7969758 -0.2269310 -0.064941027 3.000980
## 1993 1.0166930  0.23137968 0.8202359 -0.1981633  0.028767662 3.724527
## 1994 1.0617311  0.04503811 0.8454576 -0.1678773  0.030286090 3.840686
## 1995 1.0429128 -0.01881832 0.8299851 -0.1863476 -0.018470295 3.713212
## 1996 0.9733891 -0.06952367 0.7981967 -0.2254002 -0.039052698 3.420847
##           I_l        I_dl        r      r_l        r_dl        P      P_l
## 1991 1.327281  0.15345086 6.223522 2.742428  0.02406488 52.20189 3.955119
## 1992 1.098939 -0.22834153 4.030631 2.590148 -0.15228012 54.14853 3.991731
## 1993 1.314940  0.21600084 0.441241 2.276483 -0.31366499 57.38250 4.049739
## 1994 1.345651  0.03071104 3.483866 2.548271  0.27178806 59.41540 4.084553
## 1995 1.311897 -0.03375358 4.786588 2.645303  0.09703116 60.80085 4.107604
## 1996 1.229888 -0.08200900 1.753455 2.402844 -0.24245829 63.52950 4.151504
##            P_dl       Pm     Pm_l      Pm_dl       Px     Px_l      Px_dl
## 1991 0.01806604 49.97283 3.911479 0.02444467 47.10526 3.852385 0.01202115
## 1992 0.03661217 51.34031 3.938476 0.02699675 47.93871 3.869923 0.01753868
## 1993 0.05800856 52.97333 3.969789 0.03131239 50.66791 3.925293 0.05536944
## 1994 0.03481400 54.08138 3.990490 0.02070136 52.25304 3.956098 0.03080543
## 1995 0.02305027 54.76796 4.003105 0.01261549 53.05461 3.971322 0.01522353
## 1996 0.04390063 56.71979 4.038123 0.03501769 56.36498 4.031848 0.06052641
##            X      X_l       X_dl       M      M_l        M_dl      rulc
## 1991 25.1439 3.224615 0.08787406 20.8625 3.037953  0.08736484 0.5254953
## 1992 25.8306 3.251560 0.02694451 20.2169 3.006519 -0.03143440 0.5420922
## 1993 27.0598 3.298049 0.04648940 21.2725 3.057415  0.05089627 0.5327534
## 1994 29.1408 3.372139 0.07409002 22.7001 3.122369  0.06495417 0.5250919
## 1995 30.4727 3.416831 0.04469195 23.6615 3.163849  0.04147992 0.5276996
## 1996 31.5870 3.452746 0.03591444 24.7250 3.207815  0.04396562 0.5221212
##          rulc_l      rulc_dl      ulc    ulc_l      ulc_dl      Tau
## 1991 -0.6434140 -0.010452801 27.43185 3.311705 0.007613242 96.45229
## 1992 -0.6123192  0.031094746 29.35350 3.379412 0.067706913 95.45884
## 1993 -0.6296967 -0.017377456 30.57072 3.420043 0.040631099 96.58565
## 1994 -0.6441819 -0.014485229 31.19855 3.440372 0.020328775 97.08786
## 1995 -0.6392280  0.004953918 32.08458 3.468376 0.028004188 95.58329
## 1996 -0.6498556 -0.010627595 33.17010 3.501649 0.033273037 94.33952
##         Tau_l       Tau_dl       dPxdPm        dPdPm    Trade
## 1991 4.569048  0.039884041 -0.012423520 -0.006378623 1.980968
## 1992 4.558695 -0.010353326 -0.009458072  0.009615413 1.947304
## 1993 4.570430  0.011735057  0.024057053  0.026696166 1.961521
## 1994 4.575616  0.005186201  0.010104071  0.014112647 2.026491
## 1995 4.559998 -0.015618420  0.002608038  0.010434776 2.086252
## 1996 4.546900 -0.013097763  0.025508721  0.008882938 2.140463

DATA

LUX %>% head(100)
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1991 0.5568510 -0.5854575 -0.009174496 0.4431490 -0.8138493  0.011649100
## 1992 0.5778601 -0.5484235  0.037034025 0.4221399 -0.8624185 -0.048569188
## 1993 0.5719554 -0.5586942 -0.010270699 0.4280446 -0.8485280  0.013890510
## 1994 0.5650795 -0.5707888 -0.012094576 0.4349205 -0.8325921  0.015935848
## 1995 0.5668586 -0.5676453  0.003143434 0.4331414 -0.8366911 -0.004098988
## 1996 0.5620819 -0.5761076 -0.008462317 0.4379181 -0.8257235  0.010967669
## 1997 0.5702936 -0.5616040  0.014503692 0.4297064 -0.8446531 -0.018929651
## 1998 0.5838419 -0.5381251  0.023478837 0.4161581 -0.8766900 -0.032036846
## 1999 0.5599417 -0.5799226 -0.041797484 0.4400583 -0.8208481  0.055841882
## 2000 0.5659082 -0.5693234  0.010599221 0.4340918 -0.8344993 -0.013651209
## 2001 0.5967344 -0.5162832  0.053040206 0.4032656 -0.9081598 -0.073660571
## 2002 0.6005461 -0.5099158  0.006367348 0.3994539 -0.9176570 -0.009497133
## 2003 0.5944161 -0.5201757 -0.010259859 0.4055839 -0.9024275  0.015229438
## 2004 0.5978861 -0.5143550  0.005820638 0.4021139 -0.9110198 -0.008592301
## 2005 0.5951463 -0.5189480 -0.004592978 0.4048537 -0.9042295  0.006790338
## 2006 0.5672730 -0.5669146 -0.047966599 0.4327270 -0.8376482  0.066581290
## 2007 0.5623606 -0.5756120 -0.008697403 0.4376394 -0.8263600  0.011288258
## 2008 0.5864020 -0.5337496  0.041862385 0.4135980 -0.8828609 -0.056500941
## 2009 0.6214678 -0.4756712  0.058078412 0.3785322 -0.9714541 -0.088593155
## 2010 0.5924356 -0.5235131 -0.047841912 0.4075644 -0.8975563  0.073897787
## 2011 0.5789879 -0.5464737 -0.022960578 0.4210121 -0.8650937  0.032462590
## 2012 0.5932931 -0.5220667  0.024407052 0.4067069 -0.8996626 -0.034568923
## 2013 0.5858840 -0.5346335 -0.012566839 0.4141160 -0.8816091  0.018053513
## 2014 0.5824287 -0.5405485 -0.005914953 0.4175713 -0.8733000  0.008309053
## 2015 0.5753499 -0.5527768 -0.012228372 0.4246501 -0.8564898  0.016810196
## 2016 0.5662473 -0.5687244 -0.015947577 0.4337527 -0.8352807  0.021209165
## 2017 0.5824845 -0.5404528  0.028271629 0.4175155 -0.8734335 -0.038152830
## 2018 0.5915344 -0.5250355  0.015417302 0.4084656 -0.8953475 -0.021914021
##             Y      Y_l         Y_dl            Yrw    Yrw_l       Yrw_dl
## 1991 23.22420 3.145195  0.082906393 29502989566983 31.01551  0.015016410
## 1992 23.64680 3.163228  0.018032961 30117227071322 31.03612  0.020605737
## 1993 24.64021 3.204380  0.041151862 30484582609607 31.04824  0.012123732
## 1994 25.58161 3.241874  0.037494073 31457961235736 31.07967  0.031431023
## 1995 25.94806 3.256097  0.014223114 32377575946213 31.10849  0.028813992
## 1996 26.30833 3.269886  0.013788771 33336579305130 31.13768  0.029189189
## 1997 27.81046 3.325412  0.055526590 34449596402777 31.17052  0.032842010
## 1998 29.49151 3.384102  0.058690216 35385500228574 31.19732  0.026804856
## 1999 31.99269 3.465507  0.081405014 36539548332899 31.22942  0.032093052
## 2000 34.62882 3.544686  0.079178844 38012496116073 31.26894  0.039519761
## 2001 35.50561 3.569691  0.025004429 38576746786478 31.28367  0.014734729
## 2002 36.86174 3.607174  0.037483445 39155938473972 31.29857  0.014902416
## 2003 37.46232 3.623336  0.016161471 40002939538161 31.31997  0.021400844
## 2004 38.81553 3.658820  0.035484796 41323830939012 31.35246  0.032486414
## 2005 40.04693 3.690052  0.031231592 42512707693407 31.38082  0.028363682
## 2006 42.12075 3.740540  0.050488477 43836386267781 31.41149  0.030661173
## 2007 45.63975 3.820779  0.080238554 45057642775778 31.43896  0.027478411
## 2008 45.05575 3.807901 -0.012878435 45232746742258 31.44284  0.003878689
## 2009 43.09195 3.763336 -0.044564407 43734708332404 31.40916 -0.033679282
## 2010 45.18836 3.810840  0.047503327 45057290784189 31.43896  0.029792781
## 2011 46.33580 3.835915  0.025075349 45927664088421 31.45809  0.019132830
## 2012 46.17246 3.832384 -0.003531364 46539696139219 31.47133  0.013237990
## 2013 47.85977 3.868275  0.035891760 47221593912969 31.48587  0.014545657
## 2014 49.91620 3.910346  0.042070323 48181490036077 31.50600  0.020123637
## 2015 52.06581 3.952508  0.042162896 49311094206702 31.52917  0.023174167
## 2016 54.44761 3.997239  0.044730460 50160688588193 31.54625  0.017082534
## 2017 55.42831 4.015090  0.017851519 51317725789270 31.56906  0.022804600
## 2018 57.15259 4.045725  0.030634234 52466902910267 31.59120  0.022146326
##           Tax       Yf     Yf_l       Yf_dl        C      C_l
## 1991 1.307731 21.91647 3.087238  0.08162809  9.12445 2.210958
## 1992 1.463671 22.18313 3.099332  0.01209368  8.91017 2.187193
## 1993 1.688851 22.95136 3.133377  0.03404511  9.09195 2.207389
## 1994 1.810272 23.77134 3.168481  0.03510342  9.45962 2.247032
## 1995 1.792510 24.15555 3.184514  0.01603360  9.63720 2.265631
## 1996 1.870370 24.43796 3.196138  0.01162349  9.83036 2.285476
## 1997 2.099760 25.71070 3.246907  0.05076959 10.08977 2.311522
## 1998 2.290980 27.20053 3.303236  0.05632921 10.31621 2.333716
## 1999 2.654410 29.33828 3.378893  0.07565669 10.93400 2.391877
## 2000 3.084000 31.54482 3.451409  0.07251624 11.39874 2.433503
## 2001 3.062880 32.44273 3.479476  0.02806699 11.83387 2.470966
## 2002 3.115040 33.74670 3.518883  0.03940625 12.35964 2.514436
## 2003 3.262270 34.20005 3.532227  0.01334447 12.64286 2.537093
## 2004 3.692860 35.12267 3.558847  0.02661968 12.75544 2.545958
## 2005 4.060750 35.98618 3.583135  0.02428818 12.74502 2.545141
## 2006 4.298700 37.82205 3.632892  0.04975729 13.09748 2.572420
## 2007 4.849270 40.79048 3.708449  0.07555645 13.39807 2.595111
## 2008 4.741330 40.31442 3.696709 -0.01173950 13.57829 2.608472
## 2009 4.623550 38.46840 3.649837 -0.04687210 13.73804 2.620169
## 2010 4.938680 40.24968 3.695102  0.04526493 13.90351 2.632141
## 2011 5.320970 41.01483 3.713934  0.01883166 14.11102 2.646956
## 2012 5.676760 40.49570 3.701196 -0.01273791 14.52266 2.675710
## 2013 6.009410 41.85036 3.734100  0.03290460 14.81428 2.695592
## 2014 6.573870 43.34233 3.769130  0.03502936 15.41656 2.735442
## 2015 6.226000 45.83981 3.825153  0.05602317 15.69291 2.753209
## 2016 6.418610 48.02900 3.871805  0.04665207 16.22907 2.786804
## 2017 6.665710 48.76260 3.886964  0.01515863 16.57993 2.808193
## 2018 7.220870 49.93172 3.910656  0.02369285 17.13152 2.840920
##               C_dl        W      W_l         W_dl         R      R_l
## 1991  0.0678173665 12.20421 2.501781  0.072453592  9.712261 2.273389
## 1992 -0.0237643027 12.81875 2.550909  0.049127707  9.364384 2.236914
## 1993  0.0201960856 13.12715 2.574683  0.023774406  9.824204 2.284849
## 1994  0.0396428065 13.43270 2.597692  0.023008843 10.338641 2.335888
## 1995  0.0185983969 13.69278 2.616869  0.019177032 10.462768 2.347823
## 1996  0.0198449461 13.73614 2.620030  0.003161177 10.701824 2.370414
## 1997  0.0260464832 14.66265 2.685303  0.065273278 11.048052 2.402254
## 1998  0.0221944053 15.88081 2.765111  0.079808048 11.319722 2.426547
## 1999  0.0581607559 16.42773 2.798971  0.033859206 12.910554 2.558045
## 2000  0.0416256225 17.85147 2.882086  0.083115464 13.693347 2.616910
## 2001  0.0374629359 19.35969 2.963193  0.081107195 13.083037 2.571317
## 2002  0.0434705665 20.26645 3.008967  0.045773602 13.480250 2.601226
## 2003  0.0226563036 20.32906 3.012051  0.003084613 13.870989 2.629800
## 2004  0.0088652183 20.99936 3.044492  0.032440323 14.123315 2.647827
## 2005 -0.0008172402 21.41704 3.064187  0.019695207 14.569138 2.678905
## 2006  0.0272792382 21.45543 3.065978  0.001790691 16.366623 2.795244
## 2007  0.0226908214 22.93896 3.132837  0.066859052 17.851522 2.882089
## 2008  0.0133615270 23.64046 3.162960  0.030122886 16.673962 2.813848
## 2009  0.0116964337 23.90687 3.174166  0.011206315 14.561529 2.678383
## 2010  0.0119726988 23.84534 3.171589 -0.002576983 16.404338 2.797546
## 2011  0.0148147262 23.74709 3.167460 -0.004128923 17.267740 2.848840
## 2012  0.0287541358 24.02582 3.179129  0.011669139 16.469879 2.801533
## 2013  0.0198813922 24.51946 3.199467  0.020337764 17.330905 2.852491
## 2014  0.0398506759 25.24382 3.228581  0.029114404 18.098512 2.895830
## 2015  0.0177667617 26.37393 3.272376  0.043794800 19.465878 2.968663
## 2016  0.0335950606 27.19629 3.303081  0.030704490 20.832709 3.036524
## 2017  0.0213888492 28.40346 3.346511  0.043430259 20.359143 3.013530
## 2018  0.0327271139 29.53633 3.385621  0.039110148 20.395391 3.015309
##              R_dl       It     It_l         It_dl   Itcurr Itcurr_l
## 1991  0.093277188  4.43386 1.489271  0.1463404613  3.07633 1.123737
## 1992 -0.036475506  3.76546 1.325870 -0.1634005048  2.75177 1.012244
## 1993  0.047935616  4.54080 1.513103  0.1872331762  3.36981 1.214856
## 1994  0.051039267  4.54273 1.513528  0.0004249449  3.41989 1.229608
## 1995  0.011934610  4.47383 1.498245 -0.0152832879  3.41870 1.229260
## 1996  0.022591163  4.28572 1.455289 -0.0429562991  3.31610 1.198789
## 1997  0.031839935  4.55763 1.516803  0.0615141856  3.61739 1.285753
## 1998  0.024292365  5.05808 1.620987  0.1041842131  4.00200 1.386794
## 1999  0.131498571  5.96456 1.785835  0.1648483246  4.74084 1.556214
## 2000  0.058865035  5.70923 1.742084 -0.0437511258  4.66677 1.540467
## 2001 -0.045593582  6.05837 1.801441  0.0593566236  5.11457 1.632093
## 2002  0.029909121  6.15571 1.817380  0.0159393194  5.26029 1.660186
## 2003  0.028573910  6.20517 1.825383  0.0080027092  5.33614 1.674503
## 2004  0.018027384  6.57544 1.883341  0.0579586804  5.68335 1.737541
## 2005  0.031078523  6.50868 1.873137 -0.0102048253  5.73695 1.746928
## 2006  0.116338580  6.72303 1.905539  0.0324022751  5.95418 1.784093
## 2007  0.086844712  7.56547 2.023594  0.1180555278  6.84708 1.923822
## 2008 -0.068240441  8.46913 2.136428  0.1128333144  7.72775 2.044818
## 2009 -0.135465251  7.41481 2.003479 -0.1329484364  6.80570 1.917760
## 2010  0.119162716  7.67688 2.038213  0.0347338631  7.07458 1.956508
## 2011  0.051294245  8.72813 2.166551  0.1283379284  8.27846 2.113657
## 2012 -0.047306836  9.26164 2.225881  0.0593299958  8.89435 2.185416
## 2013  0.050958116  9.37656 2.238213  0.0123318192  9.07334 2.205340
## 2014  0.043338409 10.26914 2.329143  0.0909303234  9.94861 2.297433
## 2015  0.072833368  9.48150 2.249343 -0.0798007498  9.48150 2.249343
## 2016  0.067861233  9.91667 2.294217  0.0448746479  9.95157 2.297730
## 2017 -0.022994199 10.47604 2.349091  0.0548735654 10.65844 2.366352
## 2018  0.001778826  9.85306 2.287782 -0.0613086781 10.09639 2.312178
##         Itcurr_dl      Ipr     Ipr_l       Ipr_dl       Ips      Ips_l
## 1991  0.175025874 2.616264 0.9617473  0.182136272 0.8504497 -0.1619900
## 1992 -0.111492987 2.193094 0.7853133 -0.176434014 0.7969758 -0.2269310
## 1993  0.202612022 2.764039 1.0166930  0.231379684 0.8202359 -0.1981633
## 1994  0.014752024 2.891372 1.0617311  0.045038114 0.8454576 -0.1678773
## 1995 -0.000348025 2.837470 1.0429128 -0.018818320 0.8299851 -0.1863476
## 1996 -0.030470968 2.646900 0.9733891 -0.069523666 0.7981967 -0.2254002
## 1997  0.086963378 2.920470 1.0717446  0.098355418 0.8073418 -0.2140082
## 1998  0.101041465 3.123060 1.1388133  0.067068728 0.7803748 -0.2479809
## 1999  0.169420099 3.786820 1.3315266  0.192713326 0.7987656 -0.2246877
## 2000 -0.015747152 3.730720 1.3166012 -0.014925372 0.7994223 -0.2238659
## 2001  0.091626146 4.015830 1.3902441  0.073642806 0.7851745 -0.2418493
## 2002  0.028092829 3.978530 1.3809124 -0.009331646 0.7563328 -0.2792738
## 2003  0.014316387 3.983290 1.3821081  0.001195707 0.7464740 -0.2923944
## 2004  0.063038302 4.236590 1.4437587  0.061650589 0.7454389 -0.2937821
## 2005  0.009386863 4.082350 1.4066728 -0.037085897 0.7115889 -0.3402549
## 2006  0.037165784 4.708360 1.5493397  0.142666849 0.7907655 -0.2347538
## 2007  0.139728790 5.422010 1.6904666  0.141126943 0.7918719 -0.2333557
## 2008  0.120995462 6.249380 1.8324823  0.142015663 0.8086933 -0.2123355
## 2009 -0.127057250 5.148940 1.6387909 -0.193691391 0.7565629 -0.2789696
## 2010  0.038747581 5.098490 1.6289444 -0.009846451 0.7206774 -0.3275637
## 2011  0.157148883 6.420920 1.8595614  0.230616992 0.7756177 -0.2540956
## 2012  0.071759283 7.075050 1.9565745  0.097013101 0.7954544 -0.2288417
## 2013  0.019924200 7.367810 1.9971205  0.040546001 0.8120284 -0.2082199
## 2014  0.092092400 8.055950 2.0864109  0.089290437 0.8097563 -0.2110219
## 2015 -0.048090311 7.391380 2.0003145 -0.086096492 0.7795581 -0.2490281
## 2016  0.048387796 7.799710 2.0540866  0.053772097 0.7837668 -0.2436438
## 2017  0.068621739 8.299330 2.1161748  0.062088235 0.7786627 -0.2501773
## 2018 -0.054174132 7.713180 2.0429306 -0.073244235 0.7639542 -0.2692474
##             Ips_dl        I      I_l         I_dl          r      r_l
## 1991  0.0071103978 3.770775 1.327281  0.153450859  6.2235217 2.742428
## 1992 -0.0649410267 3.000980 1.098939 -0.228341531  4.0306305 2.590148
## 1993  0.0287676617 3.724527 1.314940  0.216000838  0.4412410 2.276483
## 1994  0.0302860903 3.840686 1.345651  0.030711035  3.4838661 2.548271
## 1995 -0.0184702949 3.713212 1.311897 -0.033753583  4.7865884 2.645303
## 1996 -0.0390526979 3.420847 1.229888 -0.082008997  1.7534554 2.402844
## 1997  0.0113920406 3.679565 1.302795  0.072906226  6.6234300 2.767862
## 1998 -0.0339727367 3.947198 1.373006  0.070211476  6.8713568 2.783311
## 1999  0.0232932273 4.764285 1.561148  0.188141552 -1.0781580 2.106930
## 2000  0.0008217794 4.564086 1.518218 -0.042929346  3.2838918 2.532506
## 2001 -0.0179833395 4.756878 1.559592  0.041373284  4.3829549 2.616233
## 2002 -0.0374244754 4.655766 1.538106 -0.021485156  2.9693085 2.507192
## 2003 -0.0131206802 4.631998 1.532988 -0.005117971  0.6205222 2.294718
## 2004 -0.0013877131 4.901589 1.589559  0.056570967 -0.1116467 2.218058
## 2005 -0.0464727600 4.631505 1.532882 -0.056677585 -1.7137835 2.026480
## 2006  0.1055010654 5.316340 1.670785  0.137903340 -3.4900033 1.759773
## 2007  0.0013981532 5.990883 1.790239  0.119453681  2.9262754 2.503679
## 2008  0.0210202009 6.848929 1.924092  0.133853515  0.6991311 2.302610
## 2009 -0.0666341404 5.609770 1.724510 -0.199582577  2.7929329 2.492714
## 2010 -0.0485940322 5.532554 1.710650 -0.013860169 -0.4311163 2.182675
## 2011  0.0734681092 6.769692 1.912456  0.201806038 -1.7691504 2.019156
## 2012  0.0252538181 7.367212 1.997039  0.084583814 -0.7181340 2.149782
## 2013  0.0206218012 7.614033 2.029993  0.032953620  0.1515135 2.246293
## 2014 -0.0028019622 8.315501 2.118121  0.088128361 -1.3589660 2.072184
## 2015 -0.0380061812 7.391380 2.000314 -0.117806931  0.1856325 2.249896
## 2016  0.0053843011 7.772357 2.050573  0.050258949 -0.5167036 2.172979
## 2017 -0.0065335038 8.157302 2.098913  0.048340062 -1.1565808 2.097347
## 2018 -0.0190701024 7.527287 2.018535 -0.080378780 -1.9040157 2.001088
##             r_dl         P      P_l         P_dl        Pm     Pm_l
## 1991  0.02406488  52.20189 3.955119  0.018066043  49.97283 3.911479
## 1992 -0.15228012  54.14853 3.991731  0.036612167  51.34031 3.938476
## 1993 -0.31366499  57.38250 4.049739  0.058008555  52.97333 3.969789
## 1994  0.27178806  59.41540 4.084553  0.034814004  54.08138 3.990490
## 1995  0.09703116  60.80085 4.107604  0.023050270  54.76796 4.003105
## 1996 -0.24245829  63.52950 4.151504  0.043900632  56.71979 4.038123
## 1997  0.36501758  62.91971 4.141859 -0.009644910  60.16713 4.097126
## 1998  0.01544889  61.65900 4.121619 -0.020240228  61.86572 4.124966
## 1999 -0.67638043  65.23565 4.178006  0.056386938  63.87615 4.156946
## 2000  0.42557614  66.64801 4.199425  0.021419080  70.78167 4.259600
## 2001  0.08372618  66.95260 4.203985  0.004559732  68.62574 4.228668
## 2002 -0.10904057  68.07793 4.220653  0.016668149  67.60921 4.213744
## 2003 -0.21247376  69.90435 4.247128  0.026474734  66.42272 4.196039
## 2004 -0.07665984  71.96998 4.276249  0.029121286  70.63656 4.257548
## 2005 -0.19157805  74.98962 4.317350  0.041100566  76.23545 4.333827
## 2006 -0.26670791  80.26555 4.385340  0.067990781  80.99913 4.394438
## 2007  0.74390633  81.46160 4.400132  0.014791263  86.49597 4.460098
## 2008 -0.20106878  84.62534 4.438234  0.038101979  84.91424 4.441642
## 2009  0.19010366  85.80842 4.452117  0.013883392  80.42858 4.387370
## 2010 -0.31003866  88.91186 4.487646  0.035528409  83.65851 4.426743
## 2011 -0.16351867  93.15616 4.534277  0.046631672  87.62848 4.473106
## 2012  0.13062532  95.53769 4.559521  0.025243612  91.33458 4.514529
## 2013  0.09651152  97.15793 4.576338  0.016816969  93.49174 4.537873
## 2014 -0.17410888  99.81631 4.603332  0.026993858  95.26371 4.556649
## 2015  0.17771186 100.00000 4.605170  0.001838568 100.00000 4.605170
## 2016 -0.07691708 100.77069 4.612847  0.007677312  98.40442 4.589086
## 2017 -0.07563163 102.50035 4.629866  0.017018684 104.02158 4.644598
## 2018 -0.09625907 105.07499 4.654674  0.024808133 106.14428 4.664799
##            Pm_dl        Px     Px_l        Px_dl        X      X_l
## 1991  0.02444467  47.10526 3.852385  0.012021146  25.1439 3.224615
## 1992  0.02699675  47.93871 3.869923  0.017538683  25.8306 3.251560
## 1993  0.03131239  50.66791 3.925293  0.055369443  27.0598 3.298049
## 1994  0.02070136  52.25304 3.956098  0.030805428  29.1408 3.372139
## 1995  0.01261549  53.05461 3.971322  0.015223532  30.4727 3.416831
## 1996  0.03501769  56.36498 4.031848  0.060526415  31.5870 3.452746
## 1997  0.05900312  57.79906 4.056972  0.025124373  35.0719 3.557400
## 1998  0.02783998  58.11551 4.062433  0.005460102  39.4809 3.675817
## 1999  0.03197974  61.60598 4.120759  0.058326467  44.3220 3.791481
## 2000  0.10265412  66.99893 4.204677  0.083917620  51.1493 3.934749
## 2001 -0.03093241  64.74386 4.170439 -0.034237736  54.1352 3.991485
## 2002 -0.01492343  64.13425 4.160979 -0.009460293  55.5485 4.017257
## 2003 -0.01770504  63.68476 4.153945 -0.007033349  57.1171 4.045104
## 2004  0.06150871  67.58532 4.213391  0.059445593  63.2554 4.147180
## 2005  0.07627860  72.72602 4.286699  0.073308314  66.7617 4.201130
## 2006  0.06061194  78.89376 4.368102  0.081403017  75.5273 4.324494
## 2007  0.06565935  83.27770 4.422181  0.054078580  81.6493 4.402433
## 2008 -0.01845603  82.84428 4.416963 -0.005218041  86.1171 4.455708
## 2009 -0.05427220  79.72897 4.378633 -0.038329761  76.0918 4.331941
## 2010  0.03937357  83.49119 4.424741  0.046108175  83.9844 4.430631
## 2011  0.04636292  87.92294 4.476461  0.051719575  87.3818 4.470287
## 2012  0.04142340  91.60031 4.517435  0.040973908  89.7863 4.497432
## 2013  0.02334360  93.78833 4.541040  0.023605792  94.5122 4.548729
## 2014  0.01877585  96.30286 4.567498  0.026457601 109.9972 4.700455
## 2015  0.04852127 100.00000 4.605170  0.037672168 115.1678 4.746390
## 2016 -0.01608447  98.90445 4.594154 -0.011015973 118.1815 4.772222
## 2017  0.05551263 103.86643 4.643106  0.048951564 119.0374 4.779438
## 2018  0.02020096 106.23327 4.665637  0.022531601 119.5932 4.784096
##              X_dl       M      M_l         M_dl      rulc     rulc_l
## 1991  0.087874058 20.8625 3.037953  0.087364836 0.5254953 -0.6434140
## 1992  0.026944513 20.2169 3.006519 -0.031434401 0.5420922 -0.6123192
## 1993  0.046489396 21.2725 3.057415  0.050896270 0.5327534 -0.6296967
## 1994  0.074090022 22.7001 3.122369  0.064954171 0.5250919 -0.6441819
## 1995  0.044691947 23.6615 3.163849  0.041479925 0.5276996 -0.6392280
## 1996  0.035914443 24.7250 3.207815  0.043965623 0.5221212 -0.6498556
## 1997  0.104654597 27.5516 3.316061  0.108245733 0.5272350 -0.6401089
## 1998  0.118416771 31.3657 3.445715  0.129654329 0.5384875 -0.6189911
## 1999  0.115664157 35.4141 3.567110  0.121395107 0.5134838 -0.6665369
## 2000  0.143267639 40.2579 3.695306  0.128196212 0.5155091 -0.6626003
## 2001  0.056735814 42.9206 3.759352  0.064045639 0.5452573 -0.6064975
## 2002  0.025771892 43.3822 3.770049  0.010697322 0.5497963 -0.5982073
## 2003  0.027847033 45.4190 3.815931  0.045881301 0.5426535 -0.6112842
## 2004  0.102076953 50.6901 3.925731  0.109800106 0.5410040 -0.6143287
## 2005  0.053949063 53.6118 3.981769  0.056038568 0.5347986 -0.6258651
## 2006  0.123364617 60.2512 4.098522  0.116753296 0.5093790 -0.6745629
## 2007  0.077939066 64.3104 4.163721  0.065198871 0.5026092 -0.6879424
## 2008  0.053274752 70.2499 4.252059  0.088337525 0.5246935 -0.6449410
## 2009 -0.123767492 60.6417 4.104983 -0.147076109 0.5547874 -0.5891703
## 2010  0.098690561 68.0232 4.219849  0.114866048 0.5276877 -0.6392506
## 2011  0.039655956 71.6517 4.271817  0.051968057 0.5124998 -0.6684549
## 2012  0.027145379 75.0625 4.318321  0.046504219 0.5203496 -0.6532544
## 2013  0.051296524 78.8888 4.368039  0.049718166 0.5123187 -0.6688084
## 2014  0.151725984 94.2461 4.545909  0.177870180 0.5057240 -0.6817643
## 2015  0.045935284 97.4492 4.579331  0.033421770 0.5065499 -0.6801324
## 2016  0.025831383 99.0392 4.595516  0.016184515 0.4994947 -0.6941584
## 2017  0.007216151 99.6545 4.601709  0.006193472 0.5124359 -0.6685796
## 2018  0.004658254 99.3174 4.598321 -0.003388421 0.5167977 -0.6601037
##           rulc_dl      ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1991 -0.010452801 27.43185 3.311705  0.0076132422  96.45229 4.569048
## 1992  0.031094746 29.35350 3.379412  0.0677069131  95.45884 4.558695
## 1993 -0.017377456 30.57072 3.420043  0.0406310989  96.58565 4.570430
## 1994 -0.014485229 31.19855 3.440372  0.0203287748  97.08786 4.575616
## 1995  0.004953918 32.08458 3.468376  0.0280041882  95.58329 4.559998
## 1996 -0.010627595 33.17010 3.501649  0.0332730370  94.33952 4.546900
## 1997  0.009746689 33.17347 3.501751  0.0001017782  96.58274 4.570400
## 1998  0.021117832 33.20260 3.502628  0.0008776032  98.49395 4.589995
## 1999 -0.047545808 33.49745 3.511469  0.0088411297 102.02984 4.625265
## 2000  0.003936620 34.35766 3.536825  0.0253557006 105.69200 4.660529
## 2001  0.056102766 36.50639 3.597487  0.0606624989 103.49311 4.639505
## 2002  0.008290157 37.42900 3.622446  0.0249583065 104.26580 4.646943
## 2003 -0.013076858 37.93384 3.635844  0.0133978761 103.46082 4.639193
## 2004 -0.003044473 38.93605 3.661920  0.0260768129 104.26842 4.646969
## 2005 -0.011536385 40.10434 3.691485  0.0295641805 104.61222 4.650260
## 2006 -0.048697786 40.88559 3.710778  0.0192929955 106.43625 4.667546
## 2007 -0.013379502 40.94335 3.712189  0.0014117620 110.82463 4.707949
## 2008  0.043001321 44.40236 3.793293  0.0811033000 104.67164 4.650828
## 2009  0.055770723 47.60543 3.862947  0.0696541145  98.35737 4.588608
## 2010 -0.050080310 46.91769 3.848395 -0.0145519013 100.89227 4.614053
## 2011 -0.029204272 47.74251 3.865822  0.0174274000 100.16590 4.606828
## 2012  0.015200503 49.71300 3.906266  0.0404441152  96.83194 4.572977
## 2013 -0.015553996 49.77582 3.907529  0.0012629732  97.67266 4.581622
## 2014 -0.012955919 50.47950 3.921567  0.0140379396  98.56712 4.590738
## 2015  0.001631904 50.65499 3.925038  0.0034704719 100.00000 4.605170
## 2016 -0.014025969 50.33442 3.918689 -0.0063486574 101.45561 4.619621
## 2017  0.025578740 52.52486 3.961287  0.0425974241  99.95636 4.604734
## 2018  0.008475914 54.30252 3.994571  0.0332840470 100.00715 4.605242
##             Tau_dl        dPxdPm         dPdPm    Trade
## 1991  0.0398840412 -0.0124235201 -0.0063786227 1.980968
## 1992 -0.0103533256 -0.0094580716  0.0096154129 1.947304
## 1993  0.0117350573  0.0240570535  0.0266961660 1.961521
## 1994  0.0051862014  0.0101040711  0.0141126474 2.026491
## 1995 -0.0156184202  0.0026080384  0.0104347761 2.086252
## 1996 -0.0130977633  0.0255087213  0.0088829383 2.140463
## 1997  0.0234998488 -0.0338787501 -0.0686480333 2.251797
## 1998  0.0195950757 -0.0223798828 -0.0480802134 2.402271
## 1999  0.0352702298  0.0263467233  0.0244071936 2.492322
## 2000  0.0352638767 -0.0187364959 -0.0812350354 2.639628
## 2001 -0.0210242220 -0.0033053278  0.0354921409 2.733534
## 2002  0.0074383898  0.0054631385  0.0315915805 2.683832
## 2003 -0.0077504235  0.0106716882  0.0441797714 2.737046
## 2004  0.0077755762 -0.0020631157 -0.0323874227 2.935565
## 2005  0.0032918322 -0.0029702826 -0.0351780313 3.005811
## 2006  0.0172858180  0.0207910814  0.0073788457 3.223554
## 2007  0.0404028372 -0.0115807667 -0.0508680830 3.198083
## 2008 -0.0571208569  0.0132379856  0.0565580058 3.470523
## 2009 -0.0622206653  0.0159424347  0.0681555878 3.173064
## 2010  0.0254458186  0.0067346094 -0.0038451567 3.363866
## 2011 -0.0072255034  0.0053566514  0.0002687482 3.432195
## 2012 -0.0338508853 -0.0004494884 -0.0161797846 3.570284
## 2013  0.0086447509  0.0002621939 -0.0065266291 3.623106
## 2014  0.0091160374  0.0076817518  0.0082180093 4.091724
## 2015  0.0144324506 -0.0108491038 -0.0466827034 4.083620
## 2016  0.0144511474  0.0050684997  0.0237617842 3.989536
## 2017 -0.0148876296 -0.0065610632 -0.0384939433 3.945491
## 2018  0.0005079667  0.0023306455  0.0046071774 3.830283

Adjusted Dickey-fuller testet I(0)

adf.LUX.WS <- adf.test((LUX$WS), alternative = c("stationary"), k = 2)
adf.LUX.PS <- adf.test((LUX$PS), alternative = c("stationary"), k = 2)
adf.LUX.Y <- adf.test((LUX$Y), alternative = c("stationary"), k = 2)
adf.LUX.Yrw <- adf.test((LUX$Yrw), alternative = c("stationary"), k = 2)
adf.LUX.r <- adf.test((LUX$r), alternative = c("stationary"), k = 2)
adf.LUX.R <- adf.test((LUX$R), alternative = c("stationary"), k = 2)
adf.LUX.Tau <- adf.test((LUX$Tau), alternative = c("stationary"), k = 2)
adf.LUX.rulc <- adf.test((LUX$rulc), alternative = c("stationary"), k = 2)
adf.LUX.ulc <- adf.test((LUX$ulc), alternative = c("stationary"), k = 2)
adf.LUX.P <- adf.test((LUX$P), alternative = c("stationary"), k = 2)
adf.LUX.Pm <- adf.test((LUX$Pm), alternative = c("stationary"), k = 2)
adf.LUX.Px <- adf.test((LUX$Px), alternative = c("stationary"), k = 2)
adf.LUX.X <- adf.test((LUX$X), alternative = c("stationary"), k = 2)
adf.LUX.M <- adf.test((LUX$M), alternative = c("stationary"), k = 2)
adf.LUX.I <- adf.test((LUX$I), alternative = c("stationary"), k = 2)
adf.LUX.C <- adf.test((LUX$C), alternative = c("stationary"), k = 2)
adf.LUX.Ipr <- adf.test((LUX$Ipr), alternative = c("stationary"), k = 2)
adf.LUX.Ips <- adf.test((LUX$Ips), alternative = c("stationary"), k = 2)
adf.LUX.It <- adf.test((LUX$It), alternative = c("stationary"), k = 2)
adf.LUX.Itcurr <- adf.test((LUX$Itcurr), alternative = c("stationary"), k = 2)
adf.LUX.Yf <- adf.test((LUX$Yf), alternative = c("stationary"), k = 2)
adf.LUX.W <- adf.test((LUX$W), alternative = c("stationary"), k = 2)

adf.LUX.WS.pval <- adf.LUX.WS$p.value
adf.LUX.PS.pval <- adf.LUX.PS$p.value
adf.LUX.Y.pval <- adf.LUX.Y$p.value
adf.LUX.Yrw.pval <- adf.LUX.Yrw$p.value
adf.LUX.r.pval <- adf.LUX.r$p.value
adf.LUX.R.pval <- adf.LUX.R$p.value
adf.LUX.Tau.pval <- adf.LUX.Tau$p.value
adf.LUX.rulc.pval <- adf.LUX.rulc$p.value
adf.LUX.ulc.pval <- adf.LUX.ulc$p.value
adf.LUX.P.pval <- adf.LUX.P$p.value
adf.LUX.Pm.pval <- adf.LUX.Pm$p.value
adf.LUX.Px.pval <- adf.LUX.Px$p.value
adf.LUX.X.pval <- adf.LUX.X$p.value
adf.LUX.M.pval <- adf.LUX.M$p.value
adf.LUX.I.pval <- adf.LUX.I$p.value
adf.LUX.C.pval <- adf.LUX.C$p.value
adf.LUX.Ipr.pval <- adf.LUX.Ipr$p.value
adf.LUX.Ips.pval <- adf.LUX.Ips$p.value
adf.LUX.It.pval <- adf.LUX.It$p.value
adf.LUX.Itcurr.pval <- adf.LUX.Itcurr$p.value
adf.LUX.Yf.pval <- adf.LUX.Yf$p.value
adf.LUX.W.pval <- adf.LUX.W$p.value

adf.LUX_non <- rbind(adf.LUX.WS.pval,adf.LUX.PS.pval,adf.LUX.Y.pval,adf.LUX.Yrw.pval,adf.LUX.r.pval,adf.LUX.R.pval,adf.LUX.Tau.pval,adf.LUX.rulc.pval,adf.LUX.ulc.pval,adf.LUX.P.pval,adf.LUX.Pm.pval,adf.LUX.Px.pval,adf.LUX.X.pval,adf.LUX.M.pval,adf.LUX.I.pval,adf.LUX.C.pval,adf.LUX.Ipr.pval,adf.LUX.Ips.pval,adf.LUX.It.pval,adf.LUX.Itcurr.pval,adf.LUX.Yf.pval,adf.LUX.W.pval)


colnames(adf.LUX_non) <- c("LUX")
rownames(adf.LUX_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.LUX_non
##               LUX
## WS     0.51935623
## PS     0.51935623
## Y      0.56078934
## Yrw    0.58221481
## r      0.23964411
## R      0.42898513
## Tau    0.79306182
## rulc   0.42597467
## ulc    0.65272447
## P      0.63084399
## Pm     0.01645738
## Px     0.26011782
## X      0.09785622
## M      0.22132829
## I      0.23528469
## C      0.60717388
## Ipr    0.38445246
## Ips    0.38654048
## It     0.18997884
## Itcurr 0.38974675
## Yf     0.59722322
## W      0.47066208

Adjusted Dickey-fuller testet I(1)

adf.LUX.WS_dl <- adf.test((LUX$WS_dl), alternative = c("stationary"), k = 2)
adf.LUX.PS_dl <- adf.test((LUX$PS_dl), alternative = c("stationary"), k = 2)
adf.LUX.Y_dl <- adf.test((LUX$Y_dl), alternative = c("stationary"), k = 2)
adf.LUX.Yrw_dl <- adf.test((LUX$Yrw_dl), alternative = c("stationary"), k = 2)
adf.LUX.r_dl <- adf.test((LUX$r_dl), alternative = c("stationary"), k = 2)
adf.LUX.R_dl <- adf.test((LUX$R_dl), alternative = c("stationary"), k = 2)
adf.LUX.Tau_dl <- adf.test((LUX$Tau_dl), alternative = c("stationary"), k = 2)
adf.LUX.rulc_dl <- adf.test((LUX$rulc_dl), alternative = c("stationary"), k = 2)
adf.LUX.ulc_dl <- adf.test((LUX$ulc_dl), alternative = c("stationary"), k = 2)
adf.LUX.P_dl <- adf.test((LUX$P_dl), alternative = c("stationary"), k = 2)
adf.LUX.Pm_dl <- adf.test((LUX$Pm_dl), alternative = c("stationary"), k = 2)
adf.LUX.Px_dl <- adf.test((LUX$Px_dl), alternative = c("stationary"), k = 2)
adf.LUX.X_dl <- adf.test((LUX$X_dl), alternative = c("stationary"), k = 2)
adf.LUX.M_dl <- adf.test((LUX$M_dl), alternative = c("stationary"), k = 2)
adf.LUX.I_dl <- adf.test((LUX$I_dl), alternative = c("stationary"), k = 2)
adf.LUX.C_dl <- adf.test((LUX$C_dl), alternative = c("stationary"), k = 2)
adf.LUX.Ipr_dl <- adf.test((LUX$Ipr_dl), alternative = c("stationary"), k = 2)
adf.LUX.Ips_dl <- adf.test((LUX$Ips_dl), alternative = c("stationary"), k = 2)
adf.LUX.It_dl <- adf.test((LUX$It_dl), alternative = c("stationary"), k = 2)
adf.LUX.Itcurr_dl <- adf.test((LUX$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.LUX.Yf_dl <- adf.test((LUX$Yf_dl), alternative = c("stationary"), k = 2)
adf.LUX.W_dl <- adf.test((LUX$W_dl), alternative = c("stationary"), k = 2)

adf.LUX.WS_dl.pval <- adf.LUX.WS_dl$p.value
adf.LUX.PS_dl.pval <- adf.LUX.PS_dl$p.value
adf.LUX.Y_dl.pval <- adf.LUX.Y_dl$p.value
adf.LUX.Yrw_dl.pval <- adf.LUX.Yrw_dl$p.value
adf.LUX.r_dl.pval <- adf.LUX.r_dl$p.value
adf.LUX.R_dl.pval <- adf.LUX.R_dl$p.value
adf.LUX.Tau_dl.pval <- adf.LUX.Tau_dl$p.value
adf.LUX.rulc_dl.pval <- adf.LUX.rulc_dl$p.value
adf.LUX.ulc_dl.pval <- adf.LUX.ulc_dl$p.value
adf.LUX.P_dl.pval <- adf.LUX.P_dl$p.value
adf.LUX.Pm_dl.pval <- adf.LUX.Pm_dl$p.value
adf.LUX.Px_dl.pval <- adf.LUX.Px_dl$p.value
adf.LUX.X_dl.pval <- adf.LUX.X_dl$p.value
adf.LUX.M_dl.pval <- adf.LUX.M_dl$p.value
adf.LUX.I_dl.pval <- adf.LUX.I_dl$p.value
adf.LUX.C_dl.pval <- adf.LUX.C_dl$p.value
adf.LUX.Ipr_dl.pval <- adf.LUX.Ipr_dl$p.value
adf.LUX.Ips_dl.pval <- adf.LUX.Ips_dl$p.value
adf.LUX.It_dl.pval <- adf.LUX.It_dl$p.value
adf.LUX.Itcurr_dl.pval <- adf.LUX.Itcurr_dl$p.value
adf.LUX.Yf_dl.pval <- adf.LUX.Yf_dl$p.value
adf.LUX.W_dl.pval <- adf.LUX.W_dl$p.value

adf.LUX_dl <- rbind(adf.LUX.WS_dl.pval,adf.LUX.PS_dl.pval,adf.LUX.Y_dl.pval,adf.LUX.Yrw_dl.pval,adf.LUX.r_dl.pval,adf.LUX.R_dl.pval,adf.LUX.Tau_dl.pval,adf.LUX.rulc_dl.pval,adf.LUX.ulc_dl.pval,adf.LUX.P_dl.pval,adf.LUX.Pm_dl.pval,adf.LUX.Px_dl.pval,adf.LUX.X_dl.pval,adf.LUX.M_dl.pval,adf.LUX.I_dl.pval,adf.LUX.C_dl.pval,adf.LUX.Ipr_dl.pval,adf.LUX.Ips_dl.pval,adf.LUX.It_dl.pval,adf.LUX.Itcurr_dl.pval,adf.LUX.Yf_dl.pval,adf.LUX.W_dl.pval)
colnames(adf.LUX_dl) <- c("LUX")
rownames(adf.LUX_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.LUX_dl
##                     LUX
## dlog(WS)     0.04104442
## dlog(PS)     0.03516497
## dlog(Y)      0.36285493
## dlog(Yrw)    0.13486923
## dlog(r)      0.02020395
## dlog(R)      0.04906234
## dlog(Tau)    0.31007311
## dlog(rulc)   0.06859394
## dlog(ulc)    0.33126571
## dlog(P)      0.40769663
## dlog(Pm)     0.01346015
## dlog(Px)     0.01624743
## dlog(X)      0.08821310
## dlog(M)      0.13417461
## dlog(I)      0.01000000
## dlog(C)      0.50501592
## dlog(Ipr)    0.01000000
## dlog(Ips)    0.01490369
## dlog(It)     0.01796396
## dlog(Itcurr) 0.01207158
## dlog(Yf)     0.38175952
## dlog(W)      0.55150119
adf.LUX <- NULL
adf.LUX <- rbind(adf.LUX_non,adf.LUX_dl)

Økonometriske test

#Consumption (C)
LUX_consumption <- dynlm(LUX$C_dl~LUX$R_dl+LUX$W_dl)
LUX_CR <- summary(LUX_consumption)$coefficients["LUX$R_dl","Estimate"]
LUX_CW <- summary(LUX_consumption)$coefficients["LUX$W_dl","Estimate"]
LUX_Ceffekt <- (LUX_CR*mean(LUX$C/LUX$R))-(LUX_CW*mean(LUX$C/LUX$W))
summary(LUX_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$C_dl ~ LUX$R_dl + LUX$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.044084 -0.007362  0.000805  0.011281  0.027121 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept) 0.014015   0.005198   2.696   0.0124 *
## LUX$R_dl    0.118195   0.050826   2.325   0.0285 *
## LUX$W_dl    0.216102   0.115934   1.864   0.0741 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01576 on 25 degrees of freedom
## Multiple R-squared:  0.2594, Adjusted R-squared:  0.2002 
## F-statistic: 4.379 on 2 and 25 DF,  p-value: 0.02342
#Investments (I)
LUX_investment <- dynlm(LUX$I_dl~LUX$PS_dl+LUX$Y_l)
LUX_iPS <- summary(LUX_investment)$coefficients["LUX$PS_dl","Estimate"]
LUX_Ieffekt <- LUX_iPS*mean(LUX$I/LUX$R)
summary(LUX_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$I_dl ~ LUX$PS_dl + LUX$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21033 -0.07019  0.01351  0.07917  0.16629 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)  0.063678   0.264001   0.241   0.8114  
## LUX$PS_dl    1.130760   0.534300   2.116   0.0444 *
## LUX$Y_l     -0.008462   0.072567  -0.117   0.9081  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1066 on 25 degrees of freedom
## Multiple R-squared:  0.152,  Adjusted R-squared:  0.08417 
## F-statistic: 2.241 on 2 and 25 DF,  p-value: 0.1273
#Price deflator (P)
LUX_deflator <- dynlm(LUX$P_dl~L(LUX$ulc_dl)+LUX$Pm_dl)
LUX_ePULC <- summary(LUX_deflator)$coefficients["L(LUX$ulc_dl)","Estimate"]
LUX_ePULC <- 0
summary(LUX_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$P_dl ~ L(LUX$ulc_dl) + LUX$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.039551 -0.010265 -0.001849  0.011454  0.038311 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)   0.014431   0.007007   2.060    0.050 *
## L(LUX$ulc_dl) 0.266138   0.165782   1.605    0.121  
## LUX$Pm_dl     0.166873   0.113262   1.473    0.153  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01922 on 25 degrees of freedom
## Multiple R-squared:  0.1227, Adjusted R-squared:  0.05248 
## F-statistic: 1.748 on 2 and 25 DF,  p-value: 0.1948
#Export price deflator (Px)
LUX_exportdeflator <- dynlm(LUX$Px_dl~LUX$ulc_dl+LUX$Pm_dl)
LUX_ePX <- summary(LUX_exportdeflator)$coefficients["LUX$ulc_dl","Estimate"]
LUX_ePX <- 0
summary(LUX_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$Px_dl ~ LUX$ulc_dl + LUX$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0295169 -0.0068485 -0.0003027  0.0058401  0.0263902 
## 
## Coefficients:
##             Estimate Std. Error t value       Pr(>|t|)    
## (Intercept) 0.003649   0.005064   0.721          0.478    
## LUX$ulc_dl  0.073905   0.119813   0.617          0.543    
## LUX$Pm_dl   0.864097   0.081856  10.556 0.000000000106 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01389 on 25 degrees of freedom
## Multiple R-squared:  0.8313, Adjusted R-squared:  0.8178 
## F-statistic: 61.59 on 2 and 25 DF,  p-value: 0.0000000002186
#Exports (X)
LUX_exports <- dynlm(LUX$X_dl~L(LUX$dPxdPm)+LUX$Yrw_dl)
LUX_eXP <- summary(LUX_exports)$coefficients["L(LUX$dPxdPm)","Estimate"]
LUX_Xeffekt <- -(LUX_eXP*LUX_ePX*(1/(1-LUX_ePULC))*mean(LUX$Yf/LUX$Y)*(mean(LUX$X/LUX$Y)/mean(LUX$rulc)))
summary(LUX_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$X_dl ~ L(LUX$dPxdPm) + LUX$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.058019 -0.022673 -0.005236  0.020022  0.096733 
## 
## Coefficients:
##                Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)   -0.004498   0.013642  -0.330      0.744    
## L(LUX$dPxdPm) -0.151753   0.504810  -0.301      0.766    
## LUX$Yrw_dl     3.014212   0.544784   5.533 0.00000945 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03664 on 25 degrees of freedom
## Multiple R-squared:  0.577,  Adjusted R-squared:  0.5432 
## F-statistic: 17.05 on 2 and 25 DF,  p-value: 0.00002134
#Imports (M)
LUX_imports <- dynlm(LUX$M_dl~LUX$dPdPm+L(LUX$Y_l))
LUX_eMP <- summary(LUX_imports)$coefficients["LUX$dPdPm","Estimate"]
LUX_Meffekt <- -(LUX_eMP*LUX_ePULC*(1/(1-LUX_ePULC))*mean(LUX$Yf/LUX$Y)*(mean(LUX$M/LUX$Y)/mean(LUX$rulc)))
summary(LUX_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$M_dl ~ LUX$dPdPm + L(LUX$Y_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.153896 -0.022403 -0.002019  0.029914  0.133789 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept)  0.15506    0.14481   1.071   0.2945  
## LUX$dPdPm   -0.68773    0.30444  -2.259   0.0329 *
## L(LUX$Y_l)  -0.02694    0.03982  -0.677   0.5049  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05849 on 25 degrees of freedom
## Multiple R-squared:  0.1797, Adjusted R-squared:  0.1141 
## F-statistic: 2.738 on 2 and 25 DF,  p-value: 0.08408
names(LUX_consumption$coefficients) <- sub("LUX$","",names(LUX_consumption$coefficients),fixed=TRUE)
names(LUX_investment$coefficients) <- sub("LUX$","",names(LUX_investment$coefficients),fixed=TRUE)
names(LUX_deflator$coefficients) <- sub("LUX$","",names(LUX_deflator$coefficients),fixed=TRUE)
names(LUX_exportdeflator$coefficients) <- sub("LUX$","",names(LUX_exportdeflator$coefficients),fixed=TRUE)
names(LUX_exports$coefficients) <- sub("LUX$","",names(LUX_exports$coefficients),fixed=TRUE)
names(LUX_imports$coefficients) <- sub("LUX$","",names(LUX_imports$coefficients),fixed=TRUE)

LUX_Xeffekt
## [1] 0
LUX_Meffekt
## [1] 0
#Nettoeksport (NX)
LUX_NXeffekt <- LUX_Xeffekt - LUX_Meffekt

LUX_NXeffekt
## [1] 0
#Nettoeffekten
LUX_Neteffekt = LUX_Ceffekt + LUX_Ieffekt + LUX_NXeffekt

LUX_Neteffekt
## [1] 0.381941
LUX_Lukket <- LUX_Ceffekt + LUX_Ieffekt
LUX_Lukket_Konklusion <- ifelse(LUX_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
LUX_Lukket_Konklusion
## [1] "Profit-led domestic"
LUX_Def <- ifelse(LUX_Neteffekt > 0, "Profit-led", "Wage-led")
LUX_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=LUX_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##          1          2          3          4          5          6 
## -0.0081043 -0.0119393  0.0015483 -0.0146888 -0.0021121 -0.0041562 
##          7          8          9         10         11         12 
## -0.0022977 -0.0142295  0.0043651 -0.0090716  0.0030067 -0.0153710 
##         13         14         15 
## -0.0035417  0.0056896  0.0007975 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -3.852711   4.212103  -0.915    0.457
## z.diff.lag1   2.603724   3.821795   0.681    0.566
## z.diff.lag2   2.358851   3.472506   0.679    0.567
## z.diff.lag3   2.000365   3.148763   0.635    0.590
## z.diff.lag4   1.603111   2.688954   0.596    0.612
## z.diff.lag5   1.430571   2.458450   0.582    0.619
## z.diff.lag6   1.354567   2.183487   0.620    0.598
## z.diff.lag7   0.943172   2.051773   0.460    0.691
## z.diff.lag8   0.623040   1.589082   0.392    0.733
## z.diff.lag9   0.269173   1.213915   0.222    0.845
## z.diff.lag10  0.523506   1.022622   0.512    0.660
## z.diff.lag11  0.008177   0.876131   0.009    0.993
## z.diff.lag12  0.023037   0.457007   0.050    0.964
## 
## Residual standard error: 0.02289 on 2 degrees of freedom
## Multiple R-squared:  0.7917, Adjusted R-squared:  -0.5623 
## F-statistic: 0.5847 on 13 and 2 DF,  p-value: 0.7809
## 
## 
## Value of test-statistic is: -0.9147 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=LUX_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##          1          2          3          4          5          6 
##  0.0100724  0.0710642  0.0211882 -0.0107811  0.1331393  0.0196878 
##          7          8          9         10         11         12 
##  0.0138215  0.0601706  0.0314888  0.0003012  0.0281061 -0.0767948 
##         13         14         15 
## -0.0094602 -0.0170233 -0.0785866 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -3.7863     5.5161  -0.686    0.563
## z.diff.lag1    2.9383     5.3007   0.554    0.635
## z.diff.lag2    2.9517     5.2689   0.560    0.632
## z.diff.lag3    2.8094     5.1208   0.549    0.638
## z.diff.lag4    3.0209     5.1198   0.590    0.615
## z.diff.lag5    2.9772     4.8784   0.610    0.604
## z.diff.lag6    2.7182     4.5014   0.604    0.607
## z.diff.lag7    2.3277     3.8983   0.597    0.611
## z.diff.lag8    1.6544     3.0983   0.534    0.647
## z.diff.lag9    1.2966     2.4891   0.521    0.654
## z.diff.lag10   1.4307     2.0813   0.687    0.563
## z.diff.lag11   0.3605     1.2649   0.285    0.802
## z.diff.lag12  -0.3037     0.6305  -0.482    0.678
## 
## Residual standard error: 0.1447 on 2 degrees of freedom
## Multiple R-squared:  0.8716, Adjusted R-squared:  0.03734 
## F-statistic: 1.045 on 13 and 2 DF,  p-value: 0.5905
## 
## 
## Value of test-statistic is: -0.6864 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=LUX_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##         1         2         3         4         5         6         7 
## -0.002906 -0.007126 -0.005919 -0.026051 -0.004279  0.007029  0.002195 
##         8         9        10        11        12        13        14 
## -0.018424 -0.019352  0.019248  0.030925  0.004606 -0.002870  0.004324 
##        15 
##  0.001876 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1         3.534      3.175   1.113    0.382
## z.diff.lag1    -4.898      3.349  -1.463    0.281
## z.diff.lag2    -5.338      3.561  -1.499    0.273
## z.diff.lag3    -6.559      3.948  -1.662    0.238
## z.diff.lag4    -8.064      4.532  -1.779    0.217
## z.diff.lag5    -8.754      4.589  -1.908    0.197
## z.diff.lag6    -7.421      3.924  -1.891    0.199
## z.diff.lag7    -5.737      3.051  -1.881    0.201
## z.diff.lag8    -5.013      2.720  -1.843    0.207
## z.diff.lag9    -5.015      2.497  -2.009    0.182
## z.diff.lag10   -3.453      1.882  -1.834    0.208
## z.diff.lag11   -1.781      1.077  -1.654    0.240
## z.diff.lag12   -1.202      0.633  -1.899    0.198
## 
## Residual standard error: 0.03833 on 2 degrees of freedom
## Multiple R-squared:  0.9264, Adjusted R-squared:  0.4477 
## F-statistic: 1.935 on 13 and 2 DF,  p-value: 0.3918
## 
## 
## Value of test-statistic is: 1.113 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=LUX_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##         1         2         3         4         5         6         7 
##  0.033318  0.034172  0.012583 -0.062457  0.037749 -0.064244 -0.008724 
##         8         9        10        11        12        13        14 
##  0.056583 -0.017279 -0.005082  0.063445  0.030997  0.040639 -0.003450 
##        15 
## -0.025859 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -2.92513    3.46273  -0.845    0.487
## z.diff.lag1   0.91079    3.07111   0.297    0.795
## z.diff.lag2   0.43640    2.66211   0.164    0.885
## z.diff.lag3   0.28520    2.42886   0.117    0.917
## z.diff.lag4   0.09916    2.29982   0.043    0.970
## z.diff.lag5  -0.12074    2.19869  -0.055    0.961
## z.diff.lag6  -0.40584    2.04945  -0.198    0.861
## z.diff.lag7  -0.16203    1.84594  -0.088    0.938
## z.diff.lag8   0.85322    1.75440   0.486    0.675
## z.diff.lag9   1.24156    1.84596   0.673    0.571
## z.diff.lag10  0.73617    1.79911   0.409    0.722
## z.diff.lag11  0.73610    1.45348   0.506    0.663
## z.diff.lag12  0.02817    0.98424   0.029    0.980
## 
## Residual standard error: 0.1068 on 2 degrees of freedom
## Multiple R-squared:  0.8781, Adjusted R-squared:  0.08602 
## F-statistic: 1.109 on 13 and 2 DF,  p-value: 0.5703
## 
## 
## Value of test-statistic is: -0.8447 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(LUX_consumption)

plot(LUX_investment)

plot(LUX_deflator)

plot(LUX_exportdeflator)

plot(LUX_exports)

plot(LUX_imports)

bptest(LUX_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  LUX_consumption
## BP = 1.1772, df = 2, p-value = 0.5551
bptest(LUX_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  LUX_investment
## BP = 2.4151, df = 2, p-value = 0.2989
bptest(LUX_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  LUX_deflator
## BP = 2.7783, df = 2, p-value = 0.2493
bptest(LUX_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  LUX_exportdeflator
## BP = 1.5502, df = 2, p-value = 0.4607
bptest(LUX_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  LUX_exports
## BP = 0.3241, df = 2, p-value = 0.8504
bptest(LUX_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  LUX_imports
## BP = 5.5276, df = 2, p-value = 0.06305
resettest(LUX_consumption)
## 
##  RESET test
## 
## data:  LUX_consumption
## RESET = 1.3538, df1 = 2, df2 = 23, p-value = 0.2781
resettest(LUX_investment)
## 
##  RESET test
## 
## data:  LUX_investment
## RESET = 0.065598, df1 = 2, df2 = 23, p-value = 0.9367
resettest(LUX_deflator)
## 
##  RESET test
## 
## data:  LUX_deflator
## RESET = 0.69726, df1 = 2, df2 = 23, p-value = 0.5082
resettest(LUX_exportdeflator)
## 
##  RESET test
## 
## data:  LUX_exportdeflator
## RESET = 0.55633, df1 = 2, df2 = 23, p-value = 0.5808
resettest(LUX_exports)
## 
##  RESET test
## 
## data:  LUX_exports
## RESET = 2.1696, df1 = 2, df2 = 23, p-value = 0.137
resettest(LUX_imports)
## 
##  RESET test
## 
## data:  LUX_imports
## RESET = 2.898, df1 = 2, df2 = 23, p-value = 0.07543

Resultater

LUX_regtab <- matrix(c(LUX_Ceffekt, LUX_Ieffekt, LUX_Lukket, LUX_Xeffekt, LUX_Meffekt, LUX_NXeffekt, LUX_Neteffekt,LUX_Lukket_Konklusion, LUX_Def),ncol=9,byrow=TRUE)
colnames(LUX_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(LUX_regtab) <- c("LUX")
LUX_regtab <- as.table(LUX_regtab)
LUX_regtab
##     consumption         investment        Lukket neteffekt  exports
## LUX -0.0332165846869567 0.415157606845512 0.381941022158556 0      
##     imports netexports neteffect         Lukket konklusion   Konklusion
## LUX 0       0          0.381941022158556 Profit-led domestic Profit-led
LUX_smoke <- matrix(c(mean(LUX$C/LUX$R), mean(LUX$C/LUX$W), mean(LUX$I/LUX$R), LUX_CR, LUX_CW, LUX_iPS, LUX_ePULC, (1/(1-LUX_ePULC)), LUX_eXP, LUX_ePX, LUX_eMP, mean(LUX$Yf/LUX$Y), mean(LUX$X/LUX$Y), mean(LUX$rulc), (mean(LUX$X/LUX$Y)/mean(LUX$rulc))),ncol=15,byrow=TRUE)
colnames(LUX_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(LUX_smoke) <- c("LUX")
LUX_smoke <- as.table(LUX_smoke)
LUX_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## LUX  0.8709657  0.6300752  0.3671491  0.1181951  0.2161019  1.1307602
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## LUX  0.0000000  1.0000000 -0.1517531  0.0000000 -0.6877307  0.9040526
##            X/Y       RULC (X/Y)/rulc
## LUX  1.6375686  0.5246002  3.1215554

Summary af regressioner

summary(LUX_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$C_dl ~ LUX$R_dl + LUX$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.044084 -0.007362  0.000805  0.011281  0.027121 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept) 0.014015   0.005198   2.696   0.0124 *
## R_dl        0.118195   0.050826   2.325   0.0285 *
## W_dl        0.216102   0.115934   1.864   0.0741 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01576 on 25 degrees of freedom
## Multiple R-squared:  0.2594, Adjusted R-squared:  0.2002 
## F-statistic: 4.379 on 2 and 25 DF,  p-value: 0.02342
summary(LUX_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$I_dl ~ LUX$PS_dl + LUX$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21033 -0.07019  0.01351  0.07917  0.16629 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)  0.063678   0.264001   0.241   0.8114  
## PS_dl        1.130760   0.534300   2.116   0.0444 *
## Y_l         -0.008462   0.072567  -0.117   0.9081  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1066 on 25 degrees of freedom
## Multiple R-squared:  0.152,  Adjusted R-squared:  0.08417 
## F-statistic: 2.241 on 2 and 25 DF,  p-value: 0.1273
summary(LUX_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$P_dl ~ L(LUX$ulc_dl) + LUX$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.039551 -0.010265 -0.001849  0.011454  0.038311 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept) 0.014431   0.007007   2.060    0.050 *
## L(ulc_dl)   0.266138   0.165782   1.605    0.121  
## Pm_dl       0.166873   0.113262   1.473    0.153  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01922 on 25 degrees of freedom
## Multiple R-squared:  0.1227, Adjusted R-squared:  0.05248 
## F-statistic: 1.748 on 2 and 25 DF,  p-value: 0.1948
summary(LUX_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$Px_dl ~ LUX$ulc_dl + LUX$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0295169 -0.0068485 -0.0003027  0.0058401  0.0263902 
## 
## Coefficients:
##             Estimate Std. Error t value       Pr(>|t|)    
## (Intercept) 0.003649   0.005064   0.721          0.478    
## ulc_dl      0.073905   0.119813   0.617          0.543    
## Pm_dl       0.864097   0.081856  10.556 0.000000000106 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01389 on 25 degrees of freedom
## Multiple R-squared:  0.8313, Adjusted R-squared:  0.8178 
## F-statistic: 61.59 on 2 and 25 DF,  p-value: 0.0000000002186
summary(LUX_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$X_dl ~ L(LUX$dPxdPm) + LUX$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.058019 -0.022673 -0.005236  0.020022  0.096733 
## 
## Coefficients:
##              Estimate Std. Error t value   Pr(>|t|)    
## (Intercept) -0.004498   0.013642  -0.330      0.744    
## L(dPxdPm)   -0.151753   0.504810  -0.301      0.766    
## Yrw_dl       3.014212   0.544784   5.533 0.00000945 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03664 on 25 degrees of freedom
## Multiple R-squared:  0.577,  Adjusted R-squared:  0.5432 
## F-statistic: 17.05 on 2 and 25 DF,  p-value: 0.00002134
summary(LUX_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 28
## 
## Call:
## dynlm(formula = LUX$M_dl ~ LUX$dPdPm + L(LUX$Y_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.153896 -0.022403 -0.002019  0.029914  0.133789 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept)  0.15506    0.14481   1.071   0.2945  
## dPdPm       -0.68773    0.30444  -2.259   0.0329 *
## L(Y_l)      -0.02694    0.03982  -0.677   0.5049  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05849 on 25 degrees of freedom
## Multiple R-squared:  0.1797, Adjusted R-squared:  0.1141 
## F-statistic: 2.738 on 2 and 25 DF,  p-value: 0.08408

Holland analyse

Test for NA værdier

NLD_df[!complete.cases(NLD_df),]
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1960 0.6246892 -0.4705010           NA 0.3753108 -0.9800008           NA
## 1961 0.6473721 -0.4348341  0.035666958 0.3526279 -1.0423418 -0.062341018
## 1962 0.6557791 -0.4219313  0.012902771 0.3442209 -1.0664717 -0.024129831
## 1963 0.6704313 -0.3998340  0.022097271 0.3295687 -1.1099705 -0.043498830
## 1964 0.6753044 -0.3925918  0.007242243 0.3246956 -1.1248671 -0.014896552
## 1965 0.6823731 -0.3821788  0.010413001 0.3176269 -1.1468777 -0.022010652
## 1966 0.7040509 -0.3509046  0.031274156 0.2959491 -1.2175678 -0.070690112
## 1967 0.6999513 -0.3567446 -0.005839939 0.3000487 -1.2038104  0.013757422
## 1968 0.6961662 -0.3621668 -0.005422247 0.3038338 -1.1912746  0.012535841
## 1969 0.7004978 -0.3559640  0.006202787 0.2995022 -1.2056336 -0.014359050
## 1970 0.7146329 -0.3359864  0.019977659 0.2853671 -1.2539787 -0.048345097
## 2019 0.6415022 -0.4439426  0.002708722 0.3584978 -1.0258328 -0.004828799
## 2020 0.6589239 -0.4171472  0.026795430 0.3410761 -1.0756497 -0.049816894
## 2021 0.6498134 -0.4310701 -0.013922854 0.3501866 -1.0492891  0.026360628
## 2022        NA         NA           NA        NA         NA           NA
##             Y      Y_l        Y_dl            Yrw    Yrw_l Yrw_dl      Tax
## 1960 152.5731 5.027644          NA             NA       NA     NA   2.1518
## 1961 157.2464 5.057814  0.03017018             NA       NA     NA   2.3593
## 1962 163.4963 5.096790  0.03897636             NA       NA     NA   2.5427
## 1963 169.4224 5.132395  0.03560464             NA       NA     NA   2.7512
## 1964 183.4424 5.211901  0.07950572             NA       NA     NA   3.2085
## 1965 193.0706 5.263056  0.05115520             NA       NA     NA   3.6089
## 1966 198.3633 5.290100  0.02704427             NA       NA     NA   3.9908
## 1967 208.8360 5.341549  0.05144906             NA       NA     NA   4.4201
## 1968 222.2367 5.403743  0.06219378             NA       NA     NA   5.0954
## 1969 236.5241 5.466050  0.06230708             NA       NA     NA   5.3299
## 1970 251.0471 5.525641  0.05959047 15150410523663 30.34905     NA   6.2456
## 2019 757.9846 6.630663  0.01794310             NA       NA     NA 100.6170
## 2020 706.0786 6.559727 -0.07093651             NA       NA     NA  88.2715
## 2021 741.1258 6.608170  0.04844382             NA       NA     NA  95.6863
## 2022       NA       NA          NA             NA       NA     NA       NA
##            Yf     Yf_l       Yf_dl        C      C_l        C_dl         W
## 1960 150.4213 5.013440          NA  74.2180 4.307007          NA  93.96656
## 1961 154.8871 5.042696  0.02925644  78.0881 4.357838  0.05083097 100.26958
## 1962 160.9536 5.081116  0.03841966  82.8695 4.417267  0.05942940 105.55001
## 1963 166.6712 5.116023  0.03490688  88.7077 4.485347  0.06807961 111.74159
## 1964 180.2339 5.194255  0.07823244  93.9382 4.542637  0.05729042 121.71274
## 1965 189.4617 5.244187  0.04993144 100.9651 4.614775  0.07213779 129.28356
## 1966 194.3725 5.269776  0.02558953 104.1747 4.646069  0.03129438 136.84813
## 1967 204.4159 5.320157  0.05038022 109.8411 4.699035  0.05296548 143.08117
## 1968 217.1413 5.380548  0.06039165 117.0793 4.762851  0.06381671 151.16644
## 1969 231.1942 5.443258  0.06270976 126.3252 4.838860  0.07600805 161.95103
## 1970 244.8015 5.500448  0.05718963 135.2748 4.907308  0.06844873 174.94320
## 2019 657.3676 6.488243  0.00976553 333.1877 5.808706  0.01431163 421.70277
## 2020 617.8071 6.426176 -0.06206710 301.5349 5.708886 -0.09982023 407.08787
## 2021 645.4395 6.469931  0.04375521 323.2755 5.778505  0.06961914 419.41522
## 2022       NA       NA          NA       NA       NA          NA        NA
##           W_l        W_dl         R      R_l         R_dl       It
## 1960 4.542939          NA  56.45474 4.033439           NA  32.1195
## 1961 4.607862  0.06492340  54.61752 4.000355 -0.033084577  34.0582
## 1962 4.659185  0.05132243  55.40359 4.014644  0.014289830  35.2132
## 1963 4.716189  0.05700416  54.92961 4.006053 -0.008591945  35.6119
## 1964 4.801664  0.08547469  58.52116 4.069388  0.063335891  42.4318
## 1965 4.862008  0.06034444  60.17814 4.097309  0.027920789  44.6867
## 1966 4.918872  0.05686368  57.52437 4.052209 -0.045100584  48.2754
## 1967 4.963412  0.04454028  61.33473 4.116346  0.064137645  52.3591
## 1968 5.018381  0.05496940  65.97486 4.189274  0.072927491  58.2028
## 1969 5.087294  0.06891254  69.24317 4.237624  0.048350706  56.8965
## 1970 5.164461  0.07716729  69.85830 4.246469  0.008844531  63.6203
## 2019 6.044301  0.01247425 235.66483 5.462411  0.004936732 160.0549
## 2020 6.009029 -0.03527167 210.71923 5.350527 -0.111883996 142.1287
## 2021 6.038861  0.02983235 226.02428 5.420642  0.070115835 150.5143
## 2022       NA          NA        NA       NA           NA       NA
##          It_l       It_dl   Itcurr Itcurr_l   Itcurr_dl      Ipr    Ipr_l
## 1960 3.469463          NA   5.8966 1.774376          NA       NA       NA
## 1961 3.528071  0.05860750   6.4033 1.856813  0.08243757       NA       NA
## 1962 3.561421  0.03335019   6.7967 1.916437  0.05962372       NA       NA
## 1963 3.572680  0.01125884   7.1650 1.969208  0.05277086       NA       NA
## 1964 3.747898  0.17521823   9.0443 2.202135  0.23292666       NA       NA
## 1965 3.799676  0.05177784   9.9591 2.298487  0.09635198       NA       NA
## 1966 3.876922  0.07724620  11.3165 2.426262  0.12777513       NA       NA
## 1967 3.958126  0.08120364  12.4659 2.522997  0.09673508       NA       NA
## 1968 4.063933  0.10580771  14.0919 2.645600  0.12260325       NA       NA
## 1969 4.041234 -0.02269964  14.5938 2.680597  0.03499662       NA       NA
## 1970 4.152933  0.11169877  17.6123 2.868598  0.18800074  13.8125 2.625574
## 2019 5.075517  0.05139889 170.6320 5.139509  0.08007103 143.3600 4.965359
## 2020 4.956733 -0.11878390 154.0971 5.037583 -0.10192627 126.2796 4.838498
## 2021 5.014058  0.05732511 165.9630 5.111765  0.07418195 136.1984 4.914113
## 2022       NA          NA       NA       NA          NA       NA       NA
##           Ipr_dl       Ips      Ips_l       Ips_dl         I      I_l
## 1960          NA        NA         NA           NA        NA       NA
## 1961          NA        NA         NA           NA        NA       NA
## 1962          NA        NA         NA           NA        NA       NA
## 1963          NA        NA         NA           NA        NA       NA
## 1964          NA        NA         NA           NA        NA       NA
## 1965          NA        NA         NA           NA        NA       NA
## 1966          NA        NA         NA           NA        NA       NA
## 1967          NA        NA         NA           NA        NA       NA
## 1968          NA        NA         NA           NA        NA       NA
## 1969          NA        NA         NA           NA        NA       NA
## 1970          NA 0.7842531 -0.2430235           NA  49.89441 3.909909
## 2019  0.08294346 0.8401707 -0.1741502  0.002872431 134.47343 4.901367
## 2020 -0.12686045 0.8194807 -0.1990844 -0.024934186 116.47173 4.757649
## 2021  0.07561415 0.8206552 -0.1976522  0.001432201 123.52034 4.816406
## 2022          NA        NA         NA           NA        NA       NA
##             I_dl          r       r_l        r_dl         P      P_l
## 1960          NA         NA        NA          NA  15.07373 2.712954
## 1961          NA  1.4366647 1.7737715          NA  15.44128 2.737044
## 1962          NA  0.6482899 1.6301543 -0.14361720  15.98771 2.771820
## 1963          NA -0.4551668 1.3865957 -0.24355858  16.73858 2.817716
## 1964          NA -3.4563725 0.0000000 -1.38659574  18.19086 2.900919
## 1965          NA -0.8536235 1.2816972  1.28169717  19.30338 2.960280
## 1966          NA  0.2417728 1.5471678  0.26547065  20.45845 3.018396
## 1967          NA  1.7204114 1.8207977  0.27362992  21.31918 3.059607
## 1968          NA  1.9426671 1.8561479  0.03535019  22.21369 3.100709
## 1969          NA  0.5889648 1.6184645 -0.23768341  23.63831 3.162869
## 1970          NA  2.0683482 1.8755981  0.25713364  24.97267 3.217782
## 2019  0.05427132 -3.0231646 0.3599152 -0.69221510 107.13292 4.674070
## 2020 -0.14371808         NA        NA          NA 108.28010 4.684721
## 2021  0.05875731         NA        NA          NA 109.87773 4.699368
## 2022          NA         NA        NA          NA        NA       NA
##            P_dl        Pm     Pm_l        Pm_dl        Px     Px_l
## 1960         NA  37.68250 3.629196           NA  37.44019 3.622745
## 1961 0.02409053  36.96560 3.609988 -0.019208087  36.81553 3.605920
## 1962 0.03477593  36.63744 3.601071 -0.008916859  36.77273 3.604756
## 1963 0.04589592  37.13702 3.614614  0.013543398  37.71881 3.630159
## 1964 0.08320315  38.02338 3.638201  0.023587092  38.64370 3.654384
## 1965 0.05936105  38.22732 3.643550  0.005349178  39.52913 3.677038
## 1966 0.05811569  38.49877 3.650626  0.007075912  39.79842 3.683827
## 1967 0.04121111  38.16316 3.641871 -0.008755839  39.78788 3.683562
## 1968 0.04110185  37.07492 3.612941 -0.028929836  39.57151 3.678109
## 1969 0.06216004  38.31313 3.645793  0.032851956  40.43542 3.699706
## 1970 0.05491325  40.84220 3.709716  0.063923218  42.77836 3.756032
## 2019 0.02999780 101.40376 4.619110 -0.003728627 102.18906 4.626825
## 2020 0.01065105 100.34204 4.608585 -0.010525377 101.01532 4.615272
## 2021 0.01464681 101.13663 4.616472  0.007887589 101.77070 4.622722
## 2022         NA        NA       NA           NA        NA       NA
##              Px_dl        X      X_l        X_dl        M      M_l
## 1960            NA  28.2888 3.342466          NA  26.1474 3.263750
## 1961 -0.0168250414  28.9524 3.365653  0.02318714  27.8195 3.325737
## 1962 -0.0011633488  30.7594 3.426196  0.06054254  29.6143 3.388257
## 1963  0.0254023650  32.5984 3.484263  0.05806757  32.5212 3.481892
## 1964  0.0242248249  36.2845 3.591391  0.10712745  37.3534 3.620424
## 1965  0.0226542495  39.0270 3.664254  0.07286306  39.6391 3.679816
## 1966  0.0067893292  41.0659 3.715178  0.05092438  42.4310 3.747879
## 1967 -0.0002649803  43.7844 3.779278  0.06409950  45.1232 3.809397
## 1968 -0.0054528480  49.3814 3.899574  0.12029625  50.9985 3.931796
## 1969  0.0215966793  56.7614 4.038857  0.13928268  58.2084 4.064030
## 1970  0.0563261780  63.2268 4.146728  0.10787174  66.4724 4.196787
## 2019  0.0031446070 655.7796 6.485825  0.02323986 574.9698 6.354318
## 2020 -0.0115523636 586.0500 6.373405 -0.11241965 510.6670 6.235718
## 2021  0.0074500418 627.0487 6.441024  0.06761910 551.7381 6.313073
## 2022            NA       NA       NA          NA       NA       NA
##             M_dl      rulc     rulc_l      rulc_dl       ulc    ulc_l
## 1960          NA 0.6158790 -0.4847048           NA  9.283594 2.228249
## 1961  0.06198745 0.6376590 -0.4499516  0.034753222  9.846268 2.287093
## 1962  0.06252014 0.6455804 -0.4376055  0.012346073 10.321350 2.334215
## 1963  0.09363483 0.6595444 -0.4162060  0.021399510 11.039834 2.401510
## 1964  0.13853175 0.6634930 -0.4102370  0.005968968 12.069506 2.490682
## 1965  0.05939207 0.6696180 -0.4010478  0.009189239 12.925891 2.559232
## 1966  0.06806322 0.6898864 -0.3712284  0.029819411 14.114004 2.647167
## 1967  0.06151730 0.6851365 -0.3781372 -0.006908773 14.606546 2.681470
## 1968  0.12239969 0.6802047 -0.3853615 -0.007224373 15.109857 2.715347
## 1969  0.13223345 0.6847126 -0.3787561  0.006605468 16.185452 2.784113
## 1970  0.13275715 0.6968541 -0.3611792  0.017576822 17.402308 2.856603
## 2019  0.03054618 0.5563474 -0.5863623 -0.005468845 59.603123 4.087708
## 2020 -0.11859980 0.5765475 -0.5506975  0.035664834 62.428622 4.134024
## 2021  0.07735576 0.5659164 -0.5693090 -0.018611466 62.181605 4.130059
## 2022          NA        NA         NA           NA        NA       NA
##            ulc_dl       Tau    Tau_l        Tau_dl        dPxdPm
## 1960           NA  51.10206 3.933825            NA            NA
## 1961  0.058843755  51.48039 3.941201  0.0073760749  0.0023830453
## 1962  0.047122006  52.16576 3.954426  0.0132253889  0.0077535103
## 1963  0.067295430  52.92422 3.968861  0.0144348464  0.0118589672
## 1964  0.089172118  55.74544 4.020796  0.0519345163  0.0006377334
## 1965  0.068550285  57.37728 4.049648  0.0288527304  0.0173050717
## 1966  0.087935101  57.61206 4.053732  0.0040834852 -0.0002865824
## 1967  0.034302336  59.61781 4.087954  0.0342224690  0.0084908584
## 1968  0.033877474  61.78409 4.123646  0.0356915915  0.0234769882
## 1969  0.068765506  63.91119 4.157495  0.0338485815 -0.0112552772
## 1970  0.072490067  65.91208 4.188322  0.0308271553 -0.0075970395
## 2019  0.024528956 101.81515 4.623159 -0.0002551426  0.0068732344
## 2020  0.046315888  95.97498 4.564088 -0.0590714143 -0.0010269866
## 2021 -0.003964652  99.47944 4.599951  0.0358634387 -0.0004375477
## 2022           NA        NA       NA            NA            NA
##             dPdPm     Trade
## 1960           NA 0.3567877
## 1961  0.043298619 0.3610378
## 1962  0.043692792 0.3692665
## 1963  0.032352522 0.3843624
## 1964  0.059616058 0.4014225
## 1965  0.054011869 0.4074473
## 1966  0.051039778 0.4209292
## 1967  0.049966948 0.4257293
## 1968  0.070031683 0.4516801
## 1969  0.029308082 0.4860807
## 1970 -0.009009972 0.5166329
## 2019  0.033726428 1.6237129
## 2020  0.021176431 1.5532506
## 2021  0.006759224 1.5905354
## 2022           NA        NA
NLD <- NLD_df[12:59,]
NLD[!complete.cases(NLD),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
NLD %>% head()
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1971 0.7264663 -0.3195632  0.016423113 0.2735337 -1.296330 -0.042351587
## 1972 0.7279529 -0.3175189  0.002044315 0.2720471 -1.301780 -0.005449783
## 1973 0.7328636 -0.3107957  0.006723235 0.2671364 -1.319996 -0.018215779
## 1974 0.7219233 -0.3258364 -0.015040719 0.2780767 -1.279858  0.040137634
## 1975 0.7578675 -0.2772467  0.048589737 0.2421325 -1.418270 -0.138412076
## 1976 0.7383480 -0.3033401 -0.026093390 0.2616520 -1.340740  0.077530517
##             Y      Y_l          Y_dl            Yrw    Yrw_l       Yrw_dl
## 1971 261.8848 5.567905 0.04226414148 15750408117239 30.38789  0.038838648
## 1972 271.1395 5.602633 0.03472873617 16631916448500 30.44234  0.054457250
## 1973 285.9009 5.655645 0.05301179869 17685563623062 30.50377  0.061425165
## 1974 295.7322 5.689454 0.03380906780 17897666888197 30.51569  0.011921671
## 1975 295.7382 5.689475 0.00002028842 17877631071485 30.51457 -0.001120092
## 1976 308.9173 5.733074 0.04359900004 18767853561787 30.56317  0.048595219
##          Tax       Yf     Yf_l        Yf_dl        C      C_l       C_dl
## 1971  7.1202 254.7646 5.540340  0.039892303 139.7598 4.939925 0.03261697
## 1972  8.0689 263.0706 5.572422  0.032082456 143.2075 4.964295 0.02436939
## 1973  9.1045 276.7964 5.623282  0.050859781 150.2992 5.012628 0.04833335
## 1974  9.6692 286.0630 5.656212  0.032929848 155.4734 5.046475 0.03384668
## 1975 10.8808 284.8574 5.651989 -0.004223362 160.5610 5.078674 0.03219928
## 1976 13.0489 295.8684 5.689915  0.037926057 169.4646 5.132644 0.05397012
##             W      W_l       W_dl        R      R_l         R_dl      It
## 1971 185.0779 5.220777 0.05631542 69.68671 4.244010 -0.002459283 65.9279
## 1972 191.5030 5.254904 0.03412677 71.56759 4.270642  0.026632672 63.2236
## 1973 202.8540 5.312487 0.05758302 73.94240 4.303286  0.032644002 64.9272
## 1974 206.5155 5.330376 0.01788913 79.54746 4.376354  0.073067483 61.2688
## 1975 215.8842 5.374742 0.04436637 68.97323 4.233718 -0.142635438 60.0045
## 1976 218.4538 5.386575 0.01183267 77.41457 4.349175  0.115456574 60.1280
##          It_l        It_dl  Itcurr Itcurr_l  Itcurr_dl     Ipr    Ipr_l
## 1971 4.188562  0.035629119 20.0975 3.000595 0.13199791 15.7326 2.755735
## 1972 4.146678 -0.041884071 20.8350 3.036634 0.03603884 16.5127 2.804130
## 1973 4.173267  0.026588993 22.7075 3.122695 0.08606100 18.2217 2.902613
## 1974 4.115271 -0.057995901 23.8839 3.173205 0.05050933 18.9047 2.939411
## 1975 4.094420 -0.020851182 25.8096 3.250747 0.07754192 19.8442 2.987912
## 1976 4.096476  0.002056064 28.0960 3.335627 0.08488070 21.5427 3.070037
##          Ipr_dl       Ips      Ips_l       Ips_dl        I      I_l
## 1971 0.13016101 0.7828138 -0.2448604 -0.001836894 51.60927 3.943701
## 1972 0.04839479 0.7925462 -0.2325045  0.012355953 50.10762 3.914173
## 1973 0.09848341 0.8024529 -0.2200821  0.012422408 52.10102 3.953185
## 1974 0.03679738 0.7915248 -0.2337940 -0.013711949 48.49578 3.881477
## 1975 0.04850120 0.7688689 -0.2628347 -0.029040719 46.13560 3.831585
## 1976 0.08212524 0.7667533 -0.2655902 -0.002755463 46.10334 3.830885
##               I_dl          r       r_l        r_dl        P      P_l
## 1971  0.0337922246 -1.5994409 1.0497482 -0.82584997 27.16778 3.302032
## 1972 -0.0295281180 -1.3790667 1.1240545  0.07430629 29.38511 3.380488
## 1973  0.0390114013 -1.0794490 1.2169651  0.09291061 31.87726 3.461893
## 1974 -0.0717078496 -1.9537108 0.9173548 -0.29961024 35.98804 3.583187
## 1975 -0.0498919011  0.9756315 1.6923081  0.77495328 38.90141 3.661031
## 1976 -0.0006993988  0.1897045 1.5360232 -0.15628492 42.39991 3.747146
##            P_dl       Pm     Pm_l       Pm_dl       Px     Px_l      Px_dl
## 1971 0.08424953 42.39340 3.746993  0.03727682 44.14418 3.787461 0.03142873
## 1972 0.07845641 42.30801 3.744976 -0.00201631 44.94290 3.805393 0.01793178
## 1973 0.08140483 45.39563 3.815416  0.07043955 48.22359 3.875848 0.07045559
## 1974 0.12129380 60.23930 4.098325  0.28290899 60.73872 4.106581 0.23073300
## 1975 0.07784387 63.01104 4.143310  0.04498503 63.77934 4.155429 0.04884792
## 1976 0.08611563 67.04356 4.205342  0.06203253 67.99116 4.219378 0.06394844
##            X      X_l        X_dl       M      M_l        M_dl      rulc
## 1971 69.9592 4.247912  0.10118395 70.4317 4.254643  0.05785662 0.7067149
## 1972 76.8750 4.342181  0.09426851 74.0635 4.304923  0.05027939 0.7062896
## 1973 85.8283 4.452349  0.11016806 81.8019 4.404300  0.09937764 0.7095256
## 1974 88.2802 4.480516  0.02816706 80.6607 4.390251 -0.01404900 0.6983194
## 1975 85.6623 4.450413 -0.03010302 78.4335 4.362251 -0.02800034 0.7299841
## 1976 93.5405 4.538394  0.08798168 86.3914 4.458888  0.09663700 0.7071596
##          rulc_l       rulc_dl      ulc    ulc_l     ulc_dl      Tau
## 1971 -0.3471280  0.0140512753 19.19987 2.954904 0.09830080 67.04653
## 1972 -0.3477299 -0.0006019654 20.75440 3.032758 0.07785445 68.44586
## 1973 -0.3431587  0.0045712173 22.61773 3.118734 0.08597605 70.59599
## 1974 -0.3590787 -0.0159199384 25.13115 3.224108 0.10537386 71.79596
## 1975 -0.3147326  0.0443460860 28.39741 3.346298 0.12218995 71.12213
## 1976 -0.3464989 -0.0317663337 29.98350 3.400647 0.05434930 73.25262
##         Tau_l       Tau_dl         dPxdPm       dPdPm     Trade
## 1971 4.205387  0.017065220 -0.00584809475  0.04697271 0.5360788
## 1972 4.226043  0.020656243  0.01994808720  0.08047272 0.5566821
## 1973 4.256973  0.030930142  0.00001604172  0.01096528 0.5863227
## 1974 4.273828  0.016854930 -0.05217599392 -0.16161519 0.5712631
## 1975 4.264399 -0.009429671  0.00386288486  0.03285883 0.5548685
## 1976 4.293914  0.029515434  0.00191591064  0.02408310 0.5824598

DATA

NLD %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1971 0.7264663 -0.3195632  0.0164231133 0.2735337 -1.2963303 -0.0423515868
## 1972 0.7279529 -0.3175189  0.0020443151 0.2720471 -1.3017801 -0.0054497833
## 1973 0.7328636 -0.3107957  0.0067232353 0.2671364 -1.3199959 -0.0182157789
## 1974 0.7219233 -0.3258364 -0.0150407190 0.2780767 -1.2798582  0.0401376344
## 1975 0.7578675 -0.2772467  0.0485897366 0.2421325 -1.4182703 -0.1384120758
## 1976 0.7383480 -0.3033401 -0.0260933904 0.2616520 -1.3407398  0.0775305172
## 1977 0.7519036 -0.2851471  0.0181929573 0.2480964 -1.3939380 -0.0531982635
## 1978 0.7504834 -0.2870377 -0.0018906252 0.2495166 -1.3882299  0.0057081667
## 1979 0.7539380 -0.2824452  0.0045925299 0.2460620 -1.4021716 -0.0139416823
## 1980 0.7421395 -0.2982181 -0.0157728904 0.2578605 -1.3553364  0.0468351492
## 1981 0.7188943 -0.3300410 -0.0318228841 0.2811057 -1.2690244  0.0863119748
## 1982 0.7191734 -0.3296528  0.0003881987 0.2808266 -1.2700179 -0.0009934578
## 1983 0.7057165 -0.3485417 -0.0188888910 0.2942835 -1.2232117  0.0468061748
## 1984 0.6734296 -0.3953718 -0.0468301617 0.3265704 -1.1191097  0.1041020117
## 1985 0.6755062 -0.3922930  0.0030788311 0.3244938 -1.1254887 -0.0063790265
## 1986 0.6864126 -0.3762764  0.0160166470 0.3135874 -1.1596772 -0.0341884854
## 1987 0.7034040 -0.3518239  0.0244524660 0.2965960 -1.2153843 -0.0557070839
## 1988 0.6927702 -0.3670570 -0.0152330933 0.3072298 -1.1801592  0.0352251222
## 1989 0.6726159 -0.3965808 -0.0295238264 0.3273841 -1.1166212  0.0635379294
## 1990 0.6752146 -0.3927246  0.0038561586 0.3247854 -1.1245908 -0.0079695080
## 1991 0.6786129 -0.3877044  0.0050202467 0.3213871 -1.1351090 -0.0105182397
## 1992 0.6898557 -0.3712729  0.0164315165 0.3101443 -1.1707175 -0.0356084954
## 1993 0.6980980 -0.3593958  0.0118770623 0.3019020 -1.1976527 -0.0269352383
## 1994 0.6817535 -0.3830871 -0.0236912441 0.3182465 -1.1449292  0.0527235695
## 1995 0.6771486 -0.3898646 -0.0067774957 0.3228514 -1.1305631  0.0143661002
## 1996 0.6722570 -0.3971146 -0.0072500732 0.3277430 -1.1155254  0.0150376784
## 1997 0.6607836 -0.4143289 -0.0172143070 0.3392164 -1.0811169  0.0344084855
## 1998 0.6554900 -0.4223723 -0.0080433626 0.3445100 -1.0656320  0.0154848754
## 1999 0.6611453 -0.4137817  0.0085905933 0.3388547 -1.0821837 -0.0165517251
## 2000 0.6577857 -0.4188762 -0.0050944432 0.3422143 -1.0723180  0.0098657516
## 2001 0.6510131 -0.4292255 -0.0103493273 0.3489869 -1.0527210  0.0195970420
## 2002 0.6563087 -0.4211240  0.0081015213 0.3436913 -1.0680115 -0.0152905711
## 2003 0.6584868 -0.4178108  0.0033131737 0.3415132 -1.0743690 -0.0063574553
## 2004 0.6506662 -0.4297586 -0.0119477618 0.3493338 -1.0517273  0.0226416702
## 2005 0.6380301 -0.4493699 -0.0196113290 0.3619699 -1.0161941  0.0355331947
## 2006 0.6237003 -0.4720853 -0.0227153840 0.3762997 -0.9773695  0.0388246484
## 2007 0.6210026 -0.4764200 -0.0043347117 0.3789974 -0.9702260  0.0071434715
## 2008 0.6271004 -0.4666486  0.0097714134 0.3728996 -0.9864462 -0.0162201769
## 2009 0.6554352 -0.4224558  0.0441927447 0.3445648 -1.0654731 -0.0790269762
## 2010 0.6405308 -0.4454580 -0.0230022313 0.3594692 -1.0231268  0.0423463235
## 2011 0.6461201 -0.4367699  0.0086881254 0.3538799 -1.0387976 -0.0156707881
## 2012 0.6538472 -0.4248816  0.0118883423 0.3461528 -1.0608750 -0.0220773991
## 2013 0.6533783 -0.4255990 -0.0007174570 0.3466217 -1.0595212  0.0013538000
## 2014 0.6565472 -0.4207606  0.0048384128 0.3434528 -1.0687057 -0.0091845050
## 2015 0.6422211 -0.4428226 -0.0220619834 0.3577789 -1.0278401  0.0408655713
## 2016 0.6481206 -0.4336785  0.0091441190 0.3518794 -1.0444668 -0.0166266331
## 2017 0.6417908 -0.4434929 -0.0098144399 0.3582092 -1.0266380  0.0178287482
## 2018 0.6397669 -0.4466514 -0.0031584418 0.3602331 -1.0210040  0.0056340399
##             Y      Y_l           Y_dl            Yrw    Yrw_l
## 1971 261.8848 5.567905  0.04226414148 15750408117239 30.38789
## 1972 271.1395 5.602633  0.03472873617 16631916448500 30.44234
## 1973 285.9009 5.655645  0.05301179869 17685563623062 30.50377
## 1974 295.7322 5.689454  0.03380906780 17897666888197 30.51569
## 1975 295.7382 5.689475  0.00002028842 17877631071485 30.51457
## 1976 308.9173 5.733074  0.04359900004 18767853561787 30.56317
## 1977 316.7033 5.757965  0.02489176991 19493175657261 30.60109
## 1978 325.2424 5.784571  0.02660537703 20293473258856 30.64132
## 1979 331.7934 5.804512  0.01994173558 21133717475995 30.68189
## 1980 336.2457 5.817842  0.01332965667 21448495557203 30.69668
## 1981 333.6109 5.809975 -0.00786679892 21871810318979 30.71622
## 1982 329.4716 5.797490 -0.01248518478 21857771403977 30.71558
## 1983 336.2915 5.817978  0.02048818435 22450443714608 30.74233
## 1984 346.5877 5.848136  0.03015754568 23470892366375 30.78678
## 1985 355.5303 5.873610  0.02547458862 24311779967513 30.82198
## 1986 365.4388 5.901099  0.02748834563 25100966968525 30.85393
## 1987 372.4963 5.920227  0.01912828157 25977209946787 30.88824
## 1988 385.3147 5.954060  0.03383329811 27228748253865 30.93529
## 1989 402.3461 5.997313  0.04325226050 28288498629959 30.97348
## 1990 419.1772 6.038294  0.04098107872 29175482009214 31.00435
## 1991 429.4014 6.062392  0.02409840359 29619679790305 31.01946
## 1992 436.7273 6.079309  0.01691682705 30232432072216 31.03994
## 1993 442.2194 6.091806  0.01249716616 30594080866825 31.05183
## 1994 455.3139 6.120987  0.02918093218 31566178093413 31.08311
## 1995 469.5017 6.151672  0.03068484832 32480700184418 31.11167
## 1996 485.9283 6.186061  0.03438916264 33437776912703 31.14071
## 1997 506.9644 6.228441  0.04237970201 34547942481078 31.17337
## 1998 530.6088 6.274025  0.04558424240 35481553672282 31.20003
## 1999 557.3199 6.323139  0.04911437525 36628242274192 31.23184
## 2000 580.7031 6.364240  0.04110020893 38096193711139 31.27114
## 2001 594.2158 6.387243  0.02300294230 38661977936717 31.28588
## 2002 595.5069 6.389413  0.00217042258 39240985126626 31.30074
## 2003 596.4337 6.390968  0.00155511137 40098106250675 31.32235
## 2004 608.2726 6.410623  0.01965504975 41420613187863 31.35480
## 2005 620.7476 6.430925  0.02030142134 42599575246232 31.38287
## 2006 642.2316 6.464949  0.03402442821 43929428579491 31.41361
## 2007 666.4619 6.501983  0.03703398739 45149045780320 31.44099
## 2008 680.9263 6.523454  0.02147110340 45333819154938 31.44507
## 2009 655.9576 6.486096 -0.03735792438 43833223420346 31.41141
## 2010 664.7654 6.499434  0.01333804375 45134503603434 31.44067
## 2011 675.0771 6.514827  0.01539271011 45976774779801 31.45916
## 2012 668.1214 6.504470 -0.01035701302 46568444707041 31.47194
## 2013 667.2517 6.503167 -0.00130255750 47239149041428 31.48624
## 2014 676.7493 6.517301  0.01413355809 48181474842346 31.50600
## 2015 690.0080 6.536703  0.01940229759 49248150841683 31.52789
## 2016 705.1310 6.558384  0.02168040943 50085962689365 31.54476
## 2017 725.6567 6.587077  0.02869343682 51220694481411 31.56716
## 2018 744.5053 6.612720  0.02564293300 52346484752330 31.58891
##             Yrw_dl     Tax       Yf     Yf_l         Yf_dl        C
## 1971  0.0388386483  7.1202 254.7646 5.540340  0.0398923035 139.7598
## 1972  0.0544572499  8.0689 263.0706 5.572422  0.0320824557 143.2075
## 1973  0.0614251653  9.1045 276.7964 5.623282  0.0508597807 150.2992
## 1974  0.0119216706  9.6692 286.0630 5.656212  0.0329298484 155.4734
## 1975 -0.0011200924 10.8808 284.8574 5.651989 -0.0042233621 160.5610
## 1976  0.0485952188 13.0489 295.8684 5.689915  0.0379260567 169.4646
## 1977  0.0379189487 15.4060 301.2973 5.708097  0.0181827241 175.9171
## 1978  0.0402348820 16.5236 308.7188 5.732431  0.0243333453 184.2872
## 1979  0.0405704297 17.5722 314.2212 5.750097  0.0176663663 187.3557
## 1980  0.0147847560 18.1159 318.1298 5.762459  0.0123622791 187.2866
## 1981  0.0195441019 18.2709 315.3400 5.753651 -0.0088080538 182.8186
## 1982 -0.0006420787 19.2175 310.2541 5.737392 -0.0162597827 180.1753
## 1983  0.0267538496 20.1232 316.1683 5.756275  0.0188830276 182.4439
## 1984  0.0444506522 21.6766 324.9111 5.783552  0.0272769397 183.5477
## 1985  0.0351999745 22.7401 332.7902 5.807512  0.0239606549 186.0982
## 1986  0.0319453648 24.2416 341.1972 5.832461  0.0249483479 190.5047
## 1987  0.0343132431 25.6590 346.8373 5.848856  0.0163951847 194.4601
## 1988  0.0470537231 26.5257 358.7890 5.882734  0.0338786781 197.4771
## 1989  0.0381819770 26.4267 375.9194 5.929375  0.0466402867 203.7086
## 1990  0.0308733861 27.9651 391.2121 5.969250  0.0398751094 211.9373
## 1991  0.0151102988 29.9903 399.4111 5.989991  0.0207413441 217.6764
## 1992  0.0204762596 31.0179 405.7094 6.005637  0.0156459275 219.2339
## 1993  0.0118912967 33.6429 408.5765 6.012679  0.0070420275 221.0120
## 1994  0.0312796794 34.0048 421.3091 6.043367  0.0306876013 225.3240
## 1995  0.0285598386 35.9590 433.5427 6.071990  0.0286235234 231.3279
## 1996  0.0290402337 38.3720 447.5563 6.103802  0.0318120479 242.7238
## 1997  0.0326616904 41.1490 465.8154 6.143789  0.0399870784 252.8604
## 1998  0.0266649501 44.0450 486.5638 6.187368  0.0435786155 267.0629
## 1999  0.0318066431 49.0280 508.2919 6.231056  0.0436878550 282.9711
## 2000  0.0392947849 51.8270 528.8761 6.270754  0.0396983001 293.3371
## 2001  0.0147422603 57.2130 537.0028 6.286003  0.0152491197 299.3355
## 2002  0.0148651047 58.8510 536.6559 6.285357 -0.0006462017 302.8192
## 2003  0.0216073680 60.3410 536.0927 6.284307 -0.0010500131 302.4242
## 2004  0.0324495525 62.9190 545.3536 6.301434  0.0171272977 304.7224
## 2005  0.0280656225 66.1670 554.5806 6.318212  0.0167777608 307.4955
## 2006  0.0307401679 70.7880 571.4436 6.348166  0.0299536383 307.0163
## 2007  0.0273846948 73.1840 593.2779 6.385663  0.0374971326 312.7719
## 2008  0.0040841685 75.6140 605.3123 6.405745  0.0200815999 315.5559
## 2009 -0.0336612582 71.1930 584.7646 6.371209 -0.0345351501 309.6065
## 2010  0.0292549452 72.5530 592.2124 6.383865  0.0126559812 309.9318
## 2011  0.0184893722 72.3890 602.6881 6.401400  0.0175344615 310.1473
## 2012  0.0127867867 70.9840 597.1374 6.392147 -0.0092525781 306.6082
## 2013  0.0142998181 73.7740 593.4777 6.386000 -0.0061475980 303.6522
## 2014  0.0197516302 78.0790 598.6703 6.394711  0.0087113896 304.7902
## 2015  0.0218972127 79.4300 610.5780 6.414406  0.0196950203 310.8160
## 2016  0.0168689624 84.7250 620.4060 6.430374  0.0159680529 314.2960
## 2017  0.0224028565 88.3140 637.3427 6.457308  0.0269333991 320.9938
## 2018  0.0217411466 93.5260 650.9793 6.478478  0.0211703430 328.4532
##           C_l          C_dl        W      W_l            W_dl         R
## 1971 4.939925  0.0326169697 185.0779 5.220777  0.056315416735  69.68671
## 1972 4.964295  0.0243693927 191.5030 5.254904  0.034126770760  71.56759
## 1973 5.012628  0.0483333466 202.8540 5.312487  0.057583015953  73.94240
## 1974 5.046475  0.0338466818 206.5155 5.330376  0.017889129380  79.54746
## 1975 5.078674  0.0321992768 215.8842 5.374742  0.044366374452  68.97323
## 1976 5.132644  0.0539701228 218.4538 5.386575  0.011832666295  77.41457
## 1977 5.170013  0.0373688059 226.5465 5.422950  0.036375681372  74.75076
## 1978 5.216495  0.0464825489 231.6883 5.445393  0.022442720051  77.03046
## 1979 5.233009  0.0165135388 236.9033 5.467652  0.022258896219  77.31791
## 1980 5.232640 -0.0003688852 236.0967 5.464241 -0.003410611316  82.03312
## 1981 5.208494 -0.0241456595 226.6961 5.423610 -0.040630937853  88.64388
## 1982 5.193930 -0.0145641385 223.1265 5.407739 -0.015871583960  87.12760
## 1983 5.206443  0.0125124626 223.1252 5.407733 -0.000005863424  93.04311
## 1984 5.212475  0.0060318507 218.8047 5.388180 -0.019553222033 106.10635
## 1985 5.226274  0.0137999122 224.8018 5.415219  0.027039486003 107.98837
## 1986 5.249677  0.0234023748 234.2021 5.456184  0.040964994890 106.99514
## 1987 5.270227  0.0205501344 243.9667 5.497032  0.040847650662 102.87056
## 1988 5.285623  0.0153956276 248.5583 5.515677  0.018645584725 110.23068
## 1989 5.316691  0.0310679130 252.8494 5.532794  0.017116460366 123.07003
## 1990 5.356290  0.0395999349 264.1521 5.576525  0.043731268055 127.05996
## 1991 5.383010  0.0267190801 271.0455 5.602287  0.025761590808 128.36557
## 1992 5.390139  0.0071296401 279.8809 5.634364  0.032077443960 125.82847
## 1993 5.398217  0.0080778023 285.2264 5.653283  0.018919089771 123.35007
## 1994 5.417539  0.0193223677 287.2290 5.660280  0.006996357214 134.08013
## 1995 5.443836  0.0262968181 293.5728 5.682126  0.021846027685 139.96988
## 1996 5.491924  0.0480879868 300.8728 5.706688  0.024561974749 146.68346
## 1997 5.532838  0.0409133864 307.8032 5.729460  0.022772771406 158.01224
## 1998 5.587484  0.0546466534 318.9377 5.764996  0.035535252934 167.62612
## 1999 5.645345  0.0578605611 336.0548 5.817274  0.052278448310 172.23712
## 2000 5.681322  0.0359776873 347.8871 5.851878  0.034603856918 180.98899
## 2001 5.701565  0.0202425583 349.5959 5.856778  0.004899792402 187.40693
## 2002 5.713136  0.0115709098 352.2120 5.864233  0.007455319682 184.44394
## 2003 5.711831 -0.0013052602 353.0100 5.866496  0.002263160544 183.08273
## 2004 5.719401  0.0075705307 354.8431 5.871676  0.005179535946 190.51046
## 2005 5.728460  0.0090592548 353.8391 5.868842 -0.002833568242 200.74151
## 2006 5.726901 -0.0015596124 356.4096 5.876081  0.007238254346 215.03404
## 2007 5.745474  0.0185733302 368.4271 5.909243  0.033162420894 224.85077
## 2008 5.754336  0.0088616745 379.5916 5.939096  0.029853013356 225.72069
## 2009 5.735302 -0.0190337090 383.2753 5.948754  0.009657594614 201.48929
## 2010 5.736352  0.0010501369 379.3303 5.938407 -0.010346250053 212.88211
## 2011 5.737047  0.0006950726 389.4089 5.964630  0.026222586940 213.27922
## 2012 5.725571 -0.0114766349 390.4366 5.967266  0.002635764155 206.70078
## 2013 5.715883 -0.0096877435 387.7654 5.960401 -0.006865055014 205.71227
## 2014 5.719624  0.0037407036 393.0553 5.973950  0.013549802382 205.61496
## 2015 5.739201  0.0195774262 392.1261 5.971583 -0.002366963117 218.45191
## 2016 5.750335  0.0111341198 402.0979 5.996696  0.025112171885 218.30809
## 2017 5.771422  0.0210865913 409.0407 6.013815  0.017118959167 228.30204
## 2018 5.794394  0.0229725537 416.4750 6.031826  0.018011901172 234.50428
##           R_l          R_dl       It     It_l        It_dl   Itcurr
## 1971 4.244010 -0.0024592833  65.9279 4.188562  0.035629119  20.0975
## 1972 4.270642  0.0266326724  63.2236 4.146678 -0.041884071  20.8350
## 1973 4.303286  0.0326440018  64.9272 4.173267  0.026588993  22.7075
## 1974 4.376354  0.0730674828  61.2688 4.115271 -0.057995901  23.8839
## 1975 4.233718 -0.1426354379  60.0045 4.094420 -0.020851182  25.8096
## 1976 4.349175  0.1154565739  60.1280 4.096476  0.002056064  28.0960
## 1977 4.314159 -0.0350155394  64.1076 4.160563  0.064087298  32.0562
## 1978 4.344201  0.0300415120  65.2978 4.178958  0.018395423  34.7641
## 1979 4.347926  0.0037246840  63.5475 4.151788 -0.027170687  35.9665
## 1980 4.407123  0.0591974283  63.6320 4.153116  0.001328831  39.7300
## 1981 4.484627  0.0775039210  57.6512 4.054411 -0.098705427  38.4603
## 1982 4.467374 -0.0172532405  56.0605 4.026431 -0.027979597  38.5418
## 1983 4.533063  0.0656892024  57.2706 4.047787  0.021355938  39.6757
## 1984 4.664442  0.1313789514  61.4020 4.117442  0.069655005  42.8930
## 1985 4.682024  0.0175816285  66.0790 4.190851  0.073408588  45.9984
## 1986 4.672783 -0.0092401375  70.5775 4.256711  0.065860401  48.6649
## 1987 4.633471 -0.0393118993  71.6077 4.271203  0.014491213  49.7750
## 1988 4.702575  0.0691038002  78.6237 4.364673  0.093470571  55.3351
## 1989 4.812754  0.1101782162  81.2016 4.396935  0.032261771  57.6639
## 1990 4.844659  0.0319056015  83.5415 4.425344  0.028408563  60.0958
## 1991 4.854882  0.0102231045  84.5969 4.437898  0.012554109  61.8326
## 1992 4.834920 -0.0199625679  86.1045 4.455562  0.017664052  63.8377
## 1993 4.815026 -0.0198932108  84.6953 4.439060 -0.016501565  63.3261
## 1994 4.898438  0.0834111708  86.4210 4.459231  0.020170592  64.7891
## 1995 4.941427  0.0429896235  91.5107 4.516456  0.057225204  68.9720
## 1996 4.988277  0.0468497263  97.6789 4.581686  0.065229663  74.3400
## 1997 5.062673  0.0743955640 103.9057 4.643484  0.061798189  80.0150
## 1998 5.121736  0.0590634909 110.9349 4.708944  0.065459786  86.1380
## 1999 5.148872  0.0271361299 122.0132 4.804129  0.095185693  96.1300
## 2000 5.198436  0.0495640517 124.8652 4.827235  0.023105520 101.8560
## 2001 5.233282  0.0348461617 126.4748 4.840043  0.012808323 106.7060
## 2002 5.217346 -0.0159367727 121.3213 4.798442 -0.041600681 105.6570
## 2003 5.209938 -0.0074074684 119.2234 4.780999 -0.017443354 105.6360
## 2004 5.249707  0.0397689680 119.4661 4.783033  0.002033605 107.4040
## 2005 5.302018  0.0523109555 123.3614 4.815118  0.032085610 112.4540
## 2006 5.370796  0.0687782867 131.9585 4.882487  0.067369221 122.9940
## 2007 5.415437  0.0446406041 151.4679 5.020374  0.137886242 144.2260
## 2008 5.419298  0.0038614230 146.9824 4.990313 -0.030060870 143.1410
## 2009 5.305736 -0.1135621263 134.3883 4.900733 -0.089579481 133.1280
## 2010 5.360739  0.0550023047 125.2748 4.830510 -0.070223646 125.8980
## 2011 5.362602  0.0018636734 131.4222 4.878415  0.047905317 130.9650
## 2012 5.331272 -0.0313299772 123.1354 4.813285 -0.065130479 122.5050
## 2013 5.326478 -0.0047937980 121.1683 4.797180 -0.016104075 121.2370
## 2014 5.326005 -0.0004731154 118.2520 4.772818 -0.024362548 118.1380
## 2015 5.386566  0.0605605916 152.5330 5.027381  0.254563026 152.5330
## 2016 5.385907 -0.0006585802 141.4220 4.951748 -0.075632638 141.6750
## 2017 5.430669  0.0447621472 147.3684 4.992936  0.041187246 148.6700
## 2018 5.457474  0.0268043829 152.0361 5.024118  0.031182419 157.5020
##      Itcurr_l     Itcurr_dl      Ipr    Ipr_l       Ipr_dl       Ips
## 1971 3.000595  0.1319979076  15.7326 2.755735  0.130161013 0.7828138
## 1972 3.036634  0.0360388357  16.5127 2.804130  0.048394789 0.7925462
## 1973 3.122695  0.0860610015  18.2217 2.902613  0.098483410 0.8024529
## 1974 3.173205  0.0505093254  18.9047 2.939411  0.036797377 0.7915248
## 1975 3.250747  0.0775419240  19.8442 2.987912  0.048501205 0.7688689
## 1976 3.335627  0.0848807017  21.5427 3.070037  0.082125239 0.7667533
## 1977 3.467491  0.1318633949  25.5919 3.242276  0.172238883 0.7983448
## 1978 3.548585  0.0810946327  27.6947 3.321241  0.078965164 0.7966465
## 1979 3.582588  0.0340027046  28.6785 3.356148  0.034906654 0.7973670
## 1980 3.682107  0.0995186202  31.6184 3.453739  0.097591517 0.7958319
## 1981 3.649627 -0.0324800294  30.2387 3.409123 -0.044616669 0.7862315
## 1982 3.651743  0.0021168262  30.4435 3.415873  0.006749946 0.7898827
## 1983 3.680739  0.0289955430  31.9308 3.463571  0.047698555 0.8047949
## 1984 3.758709  0.0779697328  34.2985 3.535102  0.071530560 0.7996293
## 1985 3.828607  0.0698979708  37.4780 3.623754  0.088652473 0.8147675
## 1986 3.884958  0.0563514177  40.4474 3.700002  0.076248270 0.8311411
## 1987 3.907513  0.0225548189  41.2433 3.719489  0.019486311 0.8285947
## 1988 4.013407  0.1058945769  46.2627 3.834336  0.114847346 0.8360462
## 1989 4.054631  0.0412239009  48.3865 3.879221  0.044884828 0.8391125
## 1990 4.095940  0.0413086278  50.1409 3.914837  0.035616193 0.8343495
## 1991 4.124431  0.0284907779  51.4467 3.940546  0.025709278 0.8320320
## 1992 4.156344  0.0319131915  52.7219 3.965031  0.024484609 0.8258741
## 1993 4.148298 -0.0080463585  52.1772 3.954646 -0.010385311 0.8239446
## 1994 4.171137  0.0228398129  53.2212 3.974457  0.019811195 0.8214530
## 1995 4.233701  0.0625632458  56.8630 4.040645  0.066188053 0.8244360
## 1996 4.308649  0.0749485397  61.1660 4.113591  0.072946614 0.8227872
## 1997 4.382214  0.0735649522  66.7270 4.200610  0.087018189 0.8339311
## 1998 4.455951  0.0737365442  72.2970 4.280783  0.080172966 0.8393160
## 1999 4.565701  0.1097507807  80.3470 4.386355  0.105572120 0.8358161
## 2000 4.623560  0.0578586090  84.9200 4.441710  0.055354882 0.8337260
## 2001 4.670077  0.0465173381  87.9450 4.476712  0.035001982 0.8241805
## 2002 4.660198 -0.0098793908  84.7110 4.439245 -0.037466156 0.8017547
## 2003 4.659999 -0.0001987761  83.8690 4.429256 -0.009989406 0.7939434
## 2004 4.676597  0.0165982031  86.6240 4.461577  0.032320856 0.8065249
## 2005 4.722544  0.0459468238  91.8400 4.520048  0.058471019 0.8166895
## 2006 4.812136  0.0895913246 100.1040 4.606210  0.086161713 0.8138934
## 2007 4.971382  0.1592459400 120.4950 4.791608  0.185398613 0.8354596
## 2008 4.963830 -0.0075513553 117.5550 4.766906 -0.024701949 0.8212532
## 2009 4.891311 -0.0725190870 106.1520 4.664872 -0.102034280 0.7973679
## 2010 4.835472 -0.0558390161  99.2140 4.597279 -0.067592896 0.7880506
## 2011 4.874930  0.0394580566 104.3700 4.647942  0.050663144 0.7969305
## 2012 4.808152 -0.0667782665  97.7980 4.582904 -0.065038151 0.7983184
## 2013 4.797747 -0.0104045379  96.9240 4.573927 -0.008976961 0.7994589
## 2014 4.771853 -0.0258938749  94.6080 4.549742 -0.024185127 0.8008262
## 2015 5.027381  0.2555275334 127.9530 4.851663  0.301920970 0.8388545
## 2016 4.953536 -0.0738452640 116.9790 4.761994 -0.089668577 0.8256855
## 2017 5.001729  0.0481933826 123.2580 4.814280  0.052285288 0.8290711
## 2018 5.059438  0.0577090720 131.9490 4.882415  0.068135765 0.8377608
##           Ips_l        Ips_dl         I      I_l          I_dl          r
## 1971 -0.2448604 -0.0018368942  51.60927 3.943701  0.0337922246 -1.5994409
## 1972 -0.2325045  0.0123559535  50.10762 3.914173 -0.0295281180 -1.3790667
## 1973 -0.2200821  0.0124224082  52.10102 3.953185  0.0390114013 -1.0794490
## 1974 -0.2337940 -0.0137119485  48.49578 3.881477 -0.0717078496 -1.9537108
## 1975 -0.2628347 -0.0290407194  46.13560 3.831585 -0.0498919011  0.9756315
## 1976 -0.2655902 -0.0027554627  46.10334 3.830885 -0.0006993988  0.1897045
## 1977 -0.2252147  0.0403754882  51.17997 3.935348  0.1044627866  2.9857652
## 1978 -0.2273442 -0.0021294687  52.01927 3.951614  0.0162659547  2.5776021
## 1979 -0.2264402  0.0009039494  50.67068 3.925347 -0.0262667379  4.2272521
## 1980 -0.2283673 -0.0019271037  50.64037 3.924749 -0.0005982729  4.2500491
## 1981 -0.2405040 -0.0121366393  45.32719 3.813907 -0.1108420660  5.4985444
## 1982 -0.2358709  0.0046331195  44.28122 3.790561 -0.0233464775  5.5688590
## 1983 -0.2171678  0.0187030116  46.09109 3.830620  0.0400589499  7.3192612
## 1984 -0.2236070 -0.0064391726  49.09884 3.893835  0.0632158322  6.1118835
## 1985 -0.2048525  0.0187545019  53.83902 3.985998  0.0921630899  6.4185379
## 1986 -0.1849557  0.0198968527  58.65986 4.071756  0.0857572536  5.9656715
## 1987 -0.1880242 -0.0030685081  59.33376 4.083178  0.0114227051  7.5365880
## 1988 -0.1790714  0.0089527686  65.73305 4.185602  0.1024233392  5.5548344
## 1989 -0.1754105  0.0036609274  68.13728 4.221524  0.0359226981  5.7839591
## 1990 -0.1811029 -0.0056924347  69.70281 4.244241  0.0227161283  7.2472116
## 1991 -0.1838844 -0.0027814999  70.38733 4.254013  0.0097726086  5.4529767
## 1992 -0.1913130 -0.0074285827  71.11147 4.264249  0.0102354692  5.4677968
## 1993 -0.1936519 -0.0023389527  69.78424 4.245408 -0.0188405174  4.6876073
## 1994 -0.1966806 -0.0030286175  70.99079 4.262550  0.0171419741  4.7003119
## 1995 -0.1930558  0.0036248070  75.44472 4.323400  0.0608500105  4.7375637
## 1996 -0.1950577 -0.0020019261  80.36895 4.386628  0.0632277370  5.0571586
## 1997 -0.1816044  0.0134532368  86.65020 4.461879  0.0752514254  2.8615831
## 1998 -0.1751680  0.0064364217  93.10943 4.533776  0.0718962074  2.4973039
## 1999 -0.1793467 -0.0041786604 101.98059 4.624783  0.0910070324  3.3042238
## 2000 -0.1818504 -0.0025037270 104.10337 4.645384  0.0206017928  1.9141603
## 2001 -0.1933658 -0.0115153558 104.23806 4.646677  0.0012929676  0.7440094
## 2002 -0.2209525 -0.0275867649  97.26993 4.577490 -0.0691874456  1.0787820
## 2003 -0.2307432 -0.0097906295  94.65663 4.550256 -0.0272339837  1.9083048
## 2004 -0.2150205  0.0157226527  96.35238 4.568012  0.0177562577  2.8615064
## 2005 -0.2024963  0.0125241953 100.74796 4.612622  0.0446098049  1.3543263
## 2006 -0.2059259 -0.0034296116 107.40015 4.676562  0.0639396090  1.1884553
## 2007 -0.1797733  0.0261526727 126.54532 4.840600  0.1640389148  2.1727708
## 2008 -0.1969238 -0.0171505938 120.70976 4.793389 -0.0472114634  1.8803071
## 2009 -0.2264390 -0.0295151929 107.15692 4.674294 -0.1190946739  3.4616597
## 2010 -0.2381929 -0.0117538797  98.72289 4.592317 -0.0819775261  2.0304912
## 2011 -0.2269878  0.0112050878 104.73436 4.651427  0.0591104050  2.7909418
## 2012 -0.2252477  0.0017401156  98.30126 4.588037 -0.0633903631  0.4769932
## 2013 -0.2238201  0.0014275772  96.86908 4.573360 -0.0146764974  0.6714187
## 2014 -0.2221114  0.0017087477  94.69929 4.550707 -0.0226538000  1.1937918
## 2015 -0.1757180  0.0463934365 127.95300 4.851663  0.3009564620 -0.0820933
## 2016 -0.1915413 -0.0158233135 116.77010 4.760207 -0.0914559512 -0.1639220
## 2017 -0.1874494  0.0040919055 122.17888 4.805486  0.0452791513 -0.7314847
## 2018 -0.1770227  0.0104266928 127.36988 4.847095  0.0416091113 -1.5926272
##            r_l         r_dl         P      P_l         P_dl        Pm
## 1971 1.0497482 -0.825849966  27.16778 3.302032  0.084249528  42.39340
## 1972 1.1240545  0.074306292  29.38511 3.380488  0.078456411  42.30801
## 1973 1.2169651  0.092910614  31.87726 3.461893  0.081404829  45.39563
## 1974 0.9173548 -0.299610242  35.98804 3.583187  0.121293798  60.23930
## 1975 1.6923081  0.774953281  38.90141 3.661031  0.077843866  63.01104
## 1976 1.5360232 -0.156284919  42.39991 3.747146  0.086115631  67.04356
## 1977 2.0071581  0.471134925  44.66604 3.799213  0.052067225  69.25461
## 1978 1.9507519 -0.056406210  47.04892 3.851188  0.051974477  68.35424
## 1979 2.1614390  0.210687099  49.29365 3.897795  0.046607431  75.80599
## 1980 2.1640609  0.002621846  52.36236 3.958188  0.060392780  85.52341
## 1981 2.2980666  0.134005722  55.70837 4.020130  0.061942281  93.77825
## 1982 2.3051051  0.007038475  58.28413 4.065330  0.045199497  97.21438
## 1983 2.4660325  0.160927391  59.09374 4.079125  0.013795100  98.23175
## 1984 2.3578548 -0.108177665  60.45709 4.101934  0.022808974 101.87178
## 1985 2.3864583  0.028603547  60.98058 4.110556  0.008621577 104.83490
## 1986 2.3439232 -0.042535160  61.10968 4.112670  0.002114754  89.18402
## 1987 2.4843199  0.140396674  60.46947 4.102139 -0.010531585  86.64299
## 1988 2.3037052 -0.180614697  60.96510 4.110302  0.008162953  86.89375
## 1989 2.3263340  0.022628846  61.78696 4.123692  0.013390636  90.17727
## 1990 2.4598951  0.133561126  62.75068 4.139169  0.015477109  89.26941
## 1991 2.2934787 -0.166416453  64.70665 4.169864  0.030694577  89.36068
## 1992 2.2949731  0.001494450  66.32156 4.194515  0.024651061  88.07680
## 1993 2.2130957 -0.081877408  67.38105 4.210364  0.015848821  85.99429
## 1994 2.2144841  0.001388431  68.77094 4.230781  0.020417470  86.25371
## 1995 2.2185442  0.004060010  70.19080 4.251217  0.020435990  86.47841
## 1996 2.2527151  0.034170953  70.92095 4.261566  0.010348618  87.14723
## 1997 1.9903310 -0.262384112  72.79525 4.287651  0.026084728  88.45081
## 1998 1.9392705 -0.051060501  74.30992 4.308244  0.020593822  85.98492
## 1999 2.0490592  0.109788676  75.26359 4.320997  0.012752054  85.33388
## 2000 1.8516831 -0.197376066  77.83788 4.354628  0.033631743  90.22154
## 2001 1.6487321 -0.202951043  81.09529 4.395625  0.040996586  89.52640
## 2002 1.7111195  0.062387414  84.15302 4.432637  0.037011949  87.22808
## 2003 1.8507635  0.139644053  85.97937 4.454107  0.021470644  86.37211
## 2004 1.9903205  0.139556987  87.01460 4.466076  0.011968490  87.47137
## 2005 1.7597008 -0.230619679  88.74509 4.485768  0.019692225  89.87516
## 2006 1.7307397 -0.028961147  91.01795 4.511057  0.025288602  92.33422
## 2007 1.8914756  0.160735888  92.90403 4.531567  0.020510269  93.89938
## 2008 1.8463549 -0.045120671  95.04670 4.554368  0.022801331  98.17563
## 2009 2.0691427  0.222787806  95.25647 4.556573  0.002204573  91.71187
## 2010 1.8697792 -0.199363553  96.15227 4.565933  0.009360194  97.62722
## 2011 1.9806310  0.110851796  96.33848 4.567868  0.001934662 103.76644
## 2012 1.5960215 -0.384609506  97.73164 4.582225  0.014357525 106.21224
## 2013 1.6346750  0.038653548  98.98259 4.594944  0.012718646 104.93853
## 2014 1.7316846  0.097009623  99.23320 4.597473  0.002528658 103.04014
## 2015 1.4757418 -0.255942872 100.00000 4.605170  0.007697574 100.00000
## 2016 1.4568578 -0.018883970 100.45467 4.609707  0.004536368  96.59755
## 2017 1.3150367 -0.141821051 101.72111 4.622235  0.012528258  99.32520
## 2018 1.0521303 -0.262906417 103.96689 4.644073  0.021837702 101.78256
##          Pm_l        Pm_dl        Px     Px_l        Px_dl        X
## 1971 3.746993  0.037276821  44.14418 3.787461  0.031428727  69.9592
## 1972 3.744976 -0.002016310  44.94290 3.805393  0.017931778  76.8750
## 1973 3.815416  0.070439552  48.22359 3.875848  0.070455594  85.8283
## 1974 4.098325  0.282908990  60.73872 4.106581  0.230732997  88.2802
## 1975 4.143310  0.044985032  63.77934 4.155429  0.048847916  85.6623
## 1976 4.205342  0.062032531  67.99116 4.219378  0.063948442  93.5405
## 1977 4.237790  0.032447148  70.43798 4.254733  0.035354831  92.2693
## 1978 4.224704 -0.013086074  69.80611 4.245722 -0.009010972  96.1573
## 1979 4.328177  0.103473790  75.51851 4.324378  0.078656197 103.6548
## 1980 4.448790  0.120612773  83.51045 4.424972  0.100594020 106.3024
## 1981 4.540933  0.092142845  93.29883 4.535808  0.110835746 109.3465
## 1982 4.576919  0.035985648  97.44086 4.579246  0.043438068 108.2011
## 1983 4.587329  0.010410857  98.03322 4.585306  0.006060830 110.6658
## 1984 4.623715  0.036385525 102.62899 4.631120  0.045813985 119.2316
## 1985 4.652387  0.028671751 104.27992 4.647079  0.015958392 124.5455
## 1986 4.490702 -0.161684898  89.23577 4.491282 -0.155796880 127.0950
## 1987 4.461796 -0.028905750  84.44341 4.436082 -0.055200331 131.9063
## 1988 4.464686  0.002890037  84.60644 4.438010  0.001928776 143.6472
## 1989 4.501777  0.037091300  87.68765 4.473781  0.035770747 156.0176
## 1990 4.491659 -0.010118531  86.82689 4.463916 -0.009864700 164.8460
## 1991 4.492681  0.001021877  87.12978 4.467399  0.003482261 175.7391
## 1992 4.478209 -0.014471662  85.45643 4.448007 -0.019392069 180.9118
## 1993 4.454281 -0.023928251  83.34744 4.423018 -0.024988740 188.0913
## 1994 4.457293  0.003012240  83.85121 4.429044  0.006026061 204.3981
## 1995 4.459895  0.002601608  84.47691 4.436478  0.007434304 223.2208
## 1996 4.467599  0.007704245  85.07397 4.443521  0.007042845 232.4742
## 1997 4.482447  0.014847599  87.36561 4.470102  0.026580643 254.9699
## 1998 4.454172 -0.028274663  86.00483 4.454403 -0.015698281 272.0498
## 1999 4.446572 -0.007600375  84.72789 4.439445 -0.014958567 296.5694
## 2000 4.502268  0.055696617  89.51661 4.494424  0.054979314 333.4297
## 2001 4.494534 -0.007734580  90.15266 4.501504  0.007080213 338.3406
## 2002 4.468526 -0.026007241  88.51668 4.483191 -0.018313432 340.5302
## 2003 4.458665 -0.009861510  87.66287 4.473498 -0.009692540 346.8002
## 2004 4.471312  0.012646702  88.39379 4.481802  0.008303254 375.2820
## 2005 4.498422  0.027110012  91.09523 4.511905  0.030103771 396.8989
## 2006 4.525415  0.026993322  93.69533 4.540048  0.028142914 425.3680
## 2007 4.542224  0.016808934  95.02191 4.554107  0.014059092 448.1461
## 2008 4.586758  0.044534191  99.18997 4.597037  0.042929411 455.3918
## 2009 4.518652 -0.068106172  93.47294 4.537672 -0.059364864 416.0380
## 2010 4.581156  0.062504570  97.73661 4.582276  0.044604169 456.5086
## 2011 4.642143  0.060986171 102.28728 4.627785  0.045509159 480.0607
## 2012 4.665439  0.023296794 104.72563 4.651344  0.023558528 495.7048
## 2013 4.653375 -0.012064612 103.85652 4.643010 -0.008333571 507.9903
## 2014 4.635119 -0.018256091 101.89111 4.623905 -0.019105611 531.0856
## 2015 4.605170 -0.029948461 100.00000 4.605170 -0.018734503 570.3530
## 2016 4.570553 -0.034616778  97.15608 4.576319 -0.028851460 579.8680
## 2017 4.598399  0.027845923  99.67536 4.601918  0.025599730 617.5579
## 2018 4.622839  0.024439441 101.86822 4.623680  0.021761536 640.7151
##           X_l         X_dl        M      M_l         M_dl      rulc
## 1971 4.247912  0.101183953  70.4317 4.254643  0.057856622 0.7067149
## 1972 4.342181  0.094268511  74.0635 4.304923  0.050279387 0.7062896
## 1973 4.452349  0.110168063  81.8019 4.404300  0.099377637 0.7095256
## 1974 4.480516  0.028167058  80.6607 4.390251 -0.014049003 0.6983194
## 1975 4.450413 -0.030103025  78.4335 4.362251 -0.028000336 0.7299841
## 1976 4.538394  0.087981675  86.3914 4.458888  0.096637002 0.7071596
## 1977 4.524711 -0.013683022  89.3220 4.492248  0.033359684 0.7153274
## 1978 4.565985  0.041273917  95.2992 4.557021  0.064773598 0.7123559
## 1979 4.641066  0.075080755 100.7294 4.612438  0.055416297 0.7140084
## 1980 4.666288  0.025221715 101.7169 4.622193  0.009755751 0.7021552
## 1981 4.694522  0.028233877  99.0519 4.595644 -0.026549509 0.6795225
## 1982 4.683992 -0.010530207  97.9853 4.584817 -0.010826488 0.6772253
## 1983 4.706515  0.022523316 101.6120 4.621162  0.036344171 0.6634874
## 1984 4.781068  0.074552971 107.2551 4.675210  0.054048471 0.6313114
## 1985 4.824671  0.043603291 112.8713 4.726248  0.051038122 0.6323001
## 1986 4.844935  0.020263727 116.0529 4.754046  0.027797890 0.6408790
## 1987 4.882092  0.037156984 120.1681 4.788892  0.034845474 0.6549508
## 1988 4.967360  0.085268471 130.4396 4.870910  0.082018689 0.6450787
## 1989 5.049969  0.082608528 140.6156 4.946030  0.075119642 0.6284375
## 1990 5.105012  0.055042883 146.2036 4.985000  0.038970245 0.6301682
## 1991 5.169001  0.063988804 155.4674 5.046436  0.061435893 0.6312172
## 1992 5.198010  0.029009111 159.9008 5.074554  0.028117560 0.6408597
## 1993 5.236927  0.038917864 160.5311 5.078488  0.003934070 0.6449885
## 1994 5.320070  0.083142080 175.0334 5.164977  0.086489120 0.6308373
## 1995 5.408161  0.088091853 192.8146 5.261729  0.096752293 0.6252860
## 1996 5.448779  0.040617835 203.0426 5.313416  0.051686704 0.6191713
## 1997 5.541145  0.092366248 225.2258 5.417103  0.103687645 0.6071494
## 1998 5.605985  0.064839639 244.0091 5.497206  0.080102065 0.6010788
## 1999 5.692281  0.086296117 267.8795 5.590537  0.093331733 0.6029836
## 2000 5.809432  0.117150793 298.0364 5.697216  0.106678374 0.5990791
## 2001 5.824053  0.014621032 305.4082 5.721649  0.024433616 0.5883315
## 2002 5.830504  0.006450734 306.2672 5.724458  0.002808681 0.5914490
## 2003 5.848749  0.018245007 312.5106 5.744638  0.020180465 0.5918679
## 2004 5.927678  0.078928922 332.4059 5.806357  0.061718424 0.5833620
## 2005 5.983682  0.056003845 350.4472 5.859210  0.052853241 0.5700209
## 2006 6.052955  0.069273088 377.2567 5.932926  0.073715804 0.5549549
## 2007 6.105119  0.052164619 406.7322 6.008155  0.075229126 0.5528105
## 2008 6.121158  0.016038852 403.8823 6.001123 -0.007031485 0.5574636
## 2009 6.030777 -0.090381545 372.3531 5.919843 -0.081280901 0.5842989
## 2010 6.123608  0.092830937 404.0840 6.001623  0.081780180 0.5706228
## 2011 6.173913  0.050305015 419.7282 6.039607  0.037984582 0.5768362
## 2012 6.205981  0.032068034 428.8978 6.061219  0.021611303 0.5843798
## 2013 6.230462  0.024481765 438.4824 6.083320  0.022101012 0.5811382
## 2014 6.274923  0.044460861 452.8060 6.115464  0.032144104 0.5807990
## 2015 6.346255  0.071332254 518.5940 6.251121  0.135657526 0.5682921
## 2016 6.362800  0.016545024 508.3400 6.231151 -0.019970788 0.5702457
## 2017 6.425773  0.062972338 539.8056 6.291209  0.060058560 0.5636834
## 2018 6.462585  0.036812067 557.6722 6.323771  0.032562260 0.5593983
##          rulc_l       rulc_dl      ulc    ulc_l        ulc_dl       Tau
## 1971 -0.3471280  0.0140512753 19.19987 2.954904  0.0983008036  67.04653
## 1972 -0.3477299 -0.0006019654 20.75440 3.032758  0.0778544459  68.44586
## 1973 -0.3431587  0.0045712173 22.61773 3.118734  0.0859760462  70.59599
## 1974 -0.3590787 -0.0159199384 25.13115 3.224108  0.1053738594  71.79596
## 1975 -0.3147326  0.0443460860 28.39741 3.346298  0.1221899520  71.12213
## 1976 -0.3464989 -0.0317663337 29.98350 3.400647  0.0543492974  73.25262
## 1977 -0.3350150  0.0114839115 31.95084 3.464198  0.0635511368  73.98980
## 1978 -0.3391777 -0.0041626570 33.51557 3.512010  0.0478118202  74.70457
## 1979 -0.3368605  0.0023171606 35.19608 3.560935  0.0489245916  74.65503
## 1980 -0.3536008 -0.0167402680 36.76651 3.604587  0.0436525115  74.36937
## 1981 -0.3863649 -0.0327641389 37.85509 3.633765  0.0291781417  73.72153
## 1982 -0.3897513 -0.0033863992 39.47149 3.675579  0.0418130981  73.36658
## 1983 -0.4102453 -0.0204940478 39.20795 3.668880 -0.0066989474  75.21912
## 1984 -0.4599561 -0.0497107677 38.16725 3.641978 -0.0269017938  76.88697
## 1985 -0.4583912  0.0015648974 38.55803 3.652164  0.0101864743  77.45453
## 1986 -0.4449146  0.0134766493 39.16391 3.667756  0.0155914035  77.90961
## 1987 -0.4231952  0.0217193691 39.60453 3.678943  0.0111877837  78.04920
## 1988 -0.4383829 -0.0151877134 39.32729 3.671919 -0.0070247608  79.27959
## 1989 -0.4645187 -0.0261358001 38.82924 3.659174 -0.0127451640  80.97861
## 1990 -0.4617685  0.0027501893 39.54348 3.677401  0.0182272980  82.37707
## 1991 -0.4601053  0.0016631872 40.84395 3.709759  0.0323577645  83.08800
## 1992 -0.4449447  0.0151606169 42.50281 3.749570  0.0398116782  83.25094
## 1993 -0.4385228  0.0064219236 43.46000 3.771841  0.0222707448  83.73488
## 1994 -0.4607074 -0.0221845750 43.38327 3.770074 -0.0017671055  85.69831
## 1995 -0.4695462 -0.0088388206 43.88932 3.781671  0.0115971693  86.82557
## 1996 -0.4793734 -0.0098271879 43.91222 3.782193  0.0005214300  87.92351
## 1997 -0.4989803 -0.0196069306 44.19759 3.788670  0.0064777975  89.26503
## 1998 -0.5090293 -0.0100489895 44.66612 3.799215  0.0105448330  90.92657
## 1999 -0.5058652  0.0031640731 45.38271 3.815131  0.0159161266  92.99214
## 2000 -0.5123616 -0.0064963520 46.63105 3.842267  0.0271353908  94.96288
## 2001 -0.5304647 -0.0181031499 47.71091 3.865160  0.0228934362  95.28844
## 2002 -0.5251798  0.0052848971 49.77222 3.907457  0.0422968464  94.85784
## 2003 -0.5244718  0.0007080492 50.88843 3.929636  0.0221786936  95.06409
## 2004 -0.5389473 -0.0144755138 50.76101 3.927129 -0.0025070235  96.79403
## 2005 -0.5620823 -0.0231349896 50.58656 3.923686 -0.0034427647  97.99270
## 2006 -0.5888685 -0.0267861739 50.51086 3.922188 -0.0014975723  99.25703
## 2007 -0.5927400 -0.0038715665 51.35832 3.938827  0.0166387021 100.13777
## 2008 -0.5843581  0.0083819100 52.98507 3.970010  0.0311832412 100.25026
## 2009 -0.5373426  0.0470155190 55.65825 4.019230  0.0492200917  96.66648
## 2010 -0.5610269 -0.0236842938 54.86668 4.004906 -0.0143241003  97.96112
## 2011 -0.5501970  0.0108298768 55.57152 4.017671  0.0127645387  98.67251
## 2012 -0.5372042  0.0129927772 57.11239 4.045021  0.0273503021  97.77620
## 2013 -0.5427667 -0.0055624975 57.52256 4.052177  0.0071561483  98.20962
## 2014 -0.5433505 -0.0005837557 57.63454 4.054122  0.0019449020  99.61338
## 2015 -0.5651198 -0.0217692607 56.82921 4.040050 -0.0140716862 100.00000
## 2016 -0.5616880  0.0034317625 57.28384 4.048019  0.0079681306 100.43700
## 2017 -0.5732625 -0.0115744777 57.33850 4.048972  0.0009537807 101.44773
## 2018 -0.5808935 -0.0076310318 58.15891 4.063179  0.0142066705 101.84113
##         Tau_l        Tau_dl         dPxdPm         dPdPm     Trade
## 1971 4.205387  0.0170652196 -0.00584809475  0.0469727071 0.5360788
## 1972 4.226043  0.0206562431  0.01994808720  0.0804727208 0.5566821
## 1973 4.256973  0.0309301423  0.00001604172  0.0109652771 0.5863227
## 1974 4.273828  0.0168549295 -0.05217599392 -0.1616151926 0.5712631
## 1975 4.264399 -0.0094296711  0.00386288486  0.0328588344 0.5548685
## 1976 4.293914  0.0295154340  0.00191591064  0.0240831001 0.5824598
## 1977 4.303927  0.0100132865  0.00290768330  0.0196200777 0.5733799
## 1978 4.313541  0.0096140705  0.00407510186  0.0650605511 0.5886579
## 1979 4.312878 -0.0006634351 -0.02481759314 -0.0568663595 0.6159984
## 1980 4.309044 -0.0038337931 -0.02001875282 -0.0602199932 0.6186527
## 1981 4.300295 -0.0087491769  0.01869290055 -0.0302005648 0.6246750
## 1982 4.295468 -0.0048264716  0.00745241976  0.0092138493 0.6258093
## 1983 4.320405  0.0249369382 -0.00435002712  0.0033842430 0.6312315
## 1984 4.342336  0.0219309752  0.00942845980 -0.0135765510 0.6534759
## 1985 4.349691  0.0073547214 -0.01271335919 -0.0200501744 0.6677822
## 1986 4.355549  0.0058581678  0.00588801757  0.1637996519 0.6653587
## 1987 4.357339  0.0017902014 -0.02629458080  0.0183741650 0.6767165
## 1988 4.372981  0.0156412069 -0.00096126058  0.0052729160 0.7113323
## 1989 4.394185  0.0212044173 -0.00132055299 -0.0237006641 0.7372588
## 1990 4.411307  0.0171220678  0.00025383058  0.0255956397 0.7420480
## 1991 4.419900  0.0085931244  0.00246038431  0.0296727001 0.7713214
## 1992 4.421859  0.0019590982 -0.00492040679  0.0391227230 0.7803785
## 1993 4.427656  0.0057961901 -0.00106048853  0.0397770726 0.7883471
## 1994 4.450833  0.0231775561  0.00301382053  0.0174052291 0.8333405
## 1995 4.463901  0.0130680636  0.00483269570  0.0178343820 0.8861212
## 1996 4.476467  0.0125660045 -0.00066140002  0.0026443729 0.8962573
## 1997 4.491610  0.0151426256  0.01173304383  0.0112371290 0.9471981
## 1998 4.510052  0.0184423928  0.01257638144  0.0488684850 0.9725789
## 1999 4.532515  0.0224627470 -0.00735819180  0.0203524284 1.0127916
## 2000 4.553486  0.0209711612 -0.00071730284 -0.0220648743 1.0874164
## 2001 4.556908  0.0034223575  0.01481479282  0.0487311657 1.0833586
## 2002 4.552379 -0.0045290787  0.00769380908  0.0630191902 1.0861291
## 2003 4.554551  0.0021719521  0.00016896982  0.0313321546 1.1054218
## 2004 4.572585  0.0180339313 -0.00434344785 -0.0006782119 1.1634387
## 2005 4.584893  0.0123076647  0.00299375922 -0.0074177874 1.2039452
## 2006 4.597713  0.0128198141  0.00114959238 -0.0017047203 1.2497434
## 2007 4.606547  0.0088341765 -0.00274984127  0.0037013350 1.2827114
## 2008 4.607670  0.0011226880 -0.00160477983 -0.0217328596 1.2619194
## 2009 4.571267 -0.0364029320  0.00874130788  0.0703107450 1.2018934
## 2010 4.584571  0.0133039765 -0.01790040101 -0.0531443766 1.2945809
## 2011 4.591806  0.0072357297 -0.01547701256 -0.0590515095 1.3328683
## 2012 4.582681 -0.0091252146  0.00026173485 -0.0089392687 1.3838841
## 2013 4.587104  0.0044230149  0.00373104133  0.0247832578 1.4184643
## 2014 4.601297  0.0141923157 -0.00084952076  0.0207847482 1.4538495
## 2015 4.605170  0.0038736750  0.01121395813  0.0376460357 1.5781658
## 2016 4.609531  0.0043604574  0.00576531803  0.0391531465 1.5432707
## 2017 4.619544  0.0100130008 -0.00224619258 -0.0153176644 1.5949188
## 2018 4.623414  0.0038704265 -0.00267790494 -0.0026017385 1.6096424

Adjusted Dickey-fuller testet I(0)

adf.NLD.WS <- adf.test((NLD$WS), alternative = c("stationary"), k = 2)
adf.NLD.PS <- adf.test((NLD$PS), alternative = c("stationary"), k = 2)
adf.NLD.Y <- adf.test((NLD$Y), alternative = c("stationary"), k = 2)
adf.NLD.Yrw <- adf.test((NLD$Yrw), alternative = c("stationary"), k = 2)
adf.NLD.r <- adf.test((NLD$r), alternative = c("stationary"), k = 2)
adf.NLD.R <- adf.test((NLD$R), alternative = c("stationary"), k = 2)
adf.NLD.Tau <- adf.test((NLD$Tau), alternative = c("stationary"), k = 2)
adf.NLD.rulc <- adf.test((NLD$rulc), alternative = c("stationary"), k = 2)
adf.NLD.ulc <- adf.test((NLD$ulc), alternative = c("stationary"), k = 2)
adf.NLD.P <- adf.test((NLD$P), alternative = c("stationary"), k = 2)
adf.NLD.Pm <- adf.test((NLD$Pm), alternative = c("stationary"), k = 2)
adf.NLD.Px <- adf.test((NLD$Px), alternative = c("stationary"), k = 2)
adf.NLD.X <- adf.test((NLD$X), alternative = c("stationary"), k = 2)
adf.NLD.M <- adf.test((NLD$M), alternative = c("stationary"), k = 2)
adf.NLD.I <- adf.test((NLD$I), alternative = c("stationary"), k = 2)
adf.NLD.C <- adf.test((NLD$C), alternative = c("stationary"), k = 2)
adf.NLD.Ipr <- adf.test((NLD$Ipr), alternative = c("stationary"), k = 2)
adf.NLD.Ips <- adf.test((NLD$Ips), alternative = c("stationary"), k = 2)
adf.NLD.It <- adf.test((NLD$It), alternative = c("stationary"), k = 2)
adf.NLD.Itcurr <- adf.test((NLD$Itcurr), alternative = c("stationary"), k = 2)
adf.NLD.Yf <- adf.test((NLD$Yf), alternative = c("stationary"), k = 2)
adf.NLD.W <- adf.test((NLD$W), alternative = c("stationary"), k = 2)

adf.NLD.WS.pval <- adf.NLD.WS$p.value
adf.NLD.PS.pval <- adf.NLD.PS$p.value
adf.NLD.Y.pval <- adf.NLD.Y$p.value
adf.NLD.Yrw.pval <- adf.NLD.Yrw$p.value
adf.NLD.r.pval <- adf.NLD.r$p.value
adf.NLD.R.pval <- adf.NLD.R$p.value
adf.NLD.Tau.pval <- adf.NLD.Tau$p.value
adf.NLD.rulc.pval <- adf.NLD.rulc$p.value
adf.NLD.ulc.pval <- adf.NLD.ulc$p.value
adf.NLD.P.pval <- adf.NLD.P$p.value
adf.NLD.Pm.pval <- adf.NLD.Pm$p.value
adf.NLD.Px.pval <- adf.NLD.Px$p.value
adf.NLD.X.pval <- adf.NLD.X$p.value
adf.NLD.M.pval <- adf.NLD.M$p.value
adf.NLD.I.pval <- adf.NLD.I$p.value
adf.NLD.C.pval <- adf.NLD.C$p.value
adf.NLD.Ipr.pval <- adf.NLD.Ipr$p.value
adf.NLD.Ips.pval <- adf.NLD.Ips$p.value
adf.NLD.It.pval <- adf.NLD.It$p.value
adf.NLD.Itcurr.pval <- adf.NLD.Itcurr$p.value
adf.NLD.Yf.pval <- adf.NLD.Yf$p.value
adf.NLD.W.pval <- adf.NLD.W$p.value

adf.NLD_non <- rbind(adf.NLD.WS.pval,adf.NLD.PS.pval,adf.NLD.Y.pval,adf.NLD.Yrw.pval,adf.NLD.r.pval,adf.NLD.R.pval,adf.NLD.Tau.pval,adf.NLD.rulc.pval,adf.NLD.ulc.pval,adf.NLD.P.pval,adf.NLD.Pm.pval,adf.NLD.Px.pval,adf.NLD.X.pval,adf.NLD.M.pval,adf.NLD.I.pval,adf.NLD.C.pval,adf.NLD.Ipr.pval,adf.NLD.Ips.pval,adf.NLD.It.pval,adf.NLD.Itcurr.pval,adf.NLD.Yf.pval,adf.NLD.W.pval)


colnames(adf.NLD_non) <- c("NLD")
rownames(adf.NLD_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.NLD_non
##               NLD
## WS     0.40353010
## PS     0.40353010
## Y      0.49313925
## Yrw    0.24998779
## r      0.43100905
## R      0.37943212
## Tau    0.84741324
## rulc   0.48193572
## ulc    0.01588127
## P      0.03764604
## Pm     0.04792070
## Px     0.07364182
## X      0.93415077
## M      0.88747325
## I      0.09016174
## C      0.37332516
## Ipr    0.13239125
## Ips    0.54303099
## It     0.16824469
## Itcurr 0.25177920
## Yf     0.53532651
## W      0.37347420

Adjusted Dickey-fuller testet I(1)

adf.NLD.WS_dl <- adf.test((NLD$WS_dl), alternative = c("stationary"), k = 2)
adf.NLD.PS_dl <- adf.test((NLD$PS_dl), alternative = c("stationary"), k = 2)
adf.NLD.Y_dl <- adf.test((NLD$Y_dl), alternative = c("stationary"), k = 2)
adf.NLD.Yrw_dl <- adf.test((NLD$Yrw_dl), alternative = c("stationary"), k = 2)
adf.NLD.r_dl <- adf.test((NLD$r_dl), alternative = c("stationary"), k = 2)
adf.NLD.R_dl <- adf.test((NLD$R_dl), alternative = c("stationary"), k = 2)
adf.NLD.Tau_dl <- adf.test((NLD$Tau_dl), alternative = c("stationary"), k = 2)
adf.NLD.rulc_dl <- adf.test((NLD$rulc_dl), alternative = c("stationary"), k = 2)
adf.NLD.ulc_dl <- adf.test((NLD$ulc_dl), alternative = c("stationary"), k = 2)
adf.NLD.P_dl <- adf.test((NLD$P_dl), alternative = c("stationary"), k = 2)
adf.NLD.Pm_dl <- adf.test((NLD$Pm_dl), alternative = c("stationary"), k = 2)
adf.NLD.Px_dl <- adf.test((NLD$Px_dl), alternative = c("stationary"), k = 2)
adf.NLD.X_dl <- adf.test((NLD$X_dl), alternative = c("stationary"), k = 2)
adf.NLD.M_dl <- adf.test((NLD$M_dl), alternative = c("stationary"), k = 2)
adf.NLD.I_dl <- adf.test((NLD$I_dl), alternative = c("stationary"), k = 2)
adf.NLD.C_dl <- adf.test((NLD$C_dl), alternative = c("stationary"), k = 2)
adf.NLD.Ipr_dl <- adf.test((NLD$Ipr_dl), alternative = c("stationary"), k = 2)
adf.NLD.Ips_dl <- adf.test((NLD$Ips_dl), alternative = c("stationary"), k = 2)
adf.NLD.It_dl <- adf.test((NLD$It_dl), alternative = c("stationary"), k = 2)
adf.NLD.Itcurr_dl <- adf.test((NLD$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.NLD.Yf_dl <- adf.test((NLD$Yf_dl), alternative = c("stationary"), k = 2)
adf.NLD.W_dl <- adf.test((NLD$W_dl), alternative = c("stationary"), k = 2)

adf.NLD.WS_dl.pval <- adf.NLD.WS_dl$p.value
adf.NLD.PS_dl.pval <- adf.NLD.PS_dl$p.value
adf.NLD.Y_dl.pval <- adf.NLD.Y_dl$p.value
adf.NLD.Yrw_dl.pval <- adf.NLD.Yrw_dl$p.value
adf.NLD.r_dl.pval <- adf.NLD.r_dl$p.value
adf.NLD.R_dl.pval <- adf.NLD.R_dl$p.value
adf.NLD.Tau_dl.pval <- adf.NLD.Tau_dl$p.value
adf.NLD.rulc_dl.pval <- adf.NLD.rulc_dl$p.value
adf.NLD.ulc_dl.pval <- adf.NLD.ulc_dl$p.value
adf.NLD.P_dl.pval <- adf.NLD.P_dl$p.value
adf.NLD.Pm_dl.pval <- adf.NLD.Pm_dl$p.value
adf.NLD.Px_dl.pval <- adf.NLD.Px_dl$p.value
adf.NLD.X_dl.pval <- adf.NLD.X_dl$p.value
adf.NLD.M_dl.pval <- adf.NLD.M_dl$p.value
adf.NLD.I_dl.pval <- adf.NLD.I_dl$p.value
adf.NLD.C_dl.pval <- adf.NLD.C_dl$p.value
adf.NLD.Ipr_dl.pval <- adf.NLD.Ipr_dl$p.value
adf.NLD.Ips_dl.pval <- adf.NLD.Ips_dl$p.value
adf.NLD.It_dl.pval <- adf.NLD.It_dl$p.value
adf.NLD.Itcurr_dl.pval <- adf.NLD.Itcurr_dl$p.value
adf.NLD.Yf_dl.pval <- adf.NLD.Yf_dl$p.value
adf.NLD.W_dl.pval <- adf.NLD.W_dl$p.value

adf.NLD_dl <- rbind(adf.NLD.WS_dl.pval,adf.NLD.PS_dl.pval,adf.NLD.Y_dl.pval,adf.NLD.Yrw_dl.pval,adf.NLD.r_dl.pval,adf.NLD.R_dl.pval,adf.NLD.Tau_dl.pval,adf.NLD.rulc_dl.pval,adf.NLD.ulc_dl.pval,adf.NLD.P_dl.pval,adf.NLD.Pm_dl.pval,adf.NLD.Px_dl.pval,adf.NLD.X_dl.pval,adf.NLD.M_dl.pval,adf.NLD.I_dl.pval,adf.NLD.C_dl.pval,adf.NLD.Ipr_dl.pval,adf.NLD.Ips_dl.pval,adf.NLD.It_dl.pval,adf.NLD.Itcurr_dl.pval,adf.NLD.Yf_dl.pval,adf.NLD.W_dl.pval)
colnames(adf.NLD_dl) <- c("NLD")
rownames(adf.NLD_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.NLD_dl
##                     NLD
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.09487517
## dlog(Yrw)    0.01000000
## dlog(r)      0.02385848
## dlog(R)      0.01000000
## dlog(Tau)    0.01711845
## dlog(rulc)   0.01000000
## dlog(ulc)    0.39051141
## dlog(P)      0.53520134
## dlog(Pm)     0.04715945
## dlog(Px)     0.07516683
## dlog(X)      0.01000000
## dlog(M)      0.02201279
## dlog(I)      0.01000000
## dlog(C)      0.30924397
## dlog(Ipr)    0.01000000
## dlog(Ips)    0.01000000
## dlog(It)     0.01000000
## dlog(Itcurr) 0.01000000
## dlog(Yf)     0.07408409
## dlog(W)      0.06382843
adf.NLD <- NULL
adf.NLD <- rbind(adf.NLD_non,adf.NLD_dl)

Økonometriske test

#Consumption (C)
NLD_consumption <- dynlm(NLD$C_dl~NLD$R_dl+NLD$W_dl)
NLD_CR <- summary(NLD_consumption)$coefficients["NLD$R_dl","Estimate"]
NLD_CW <- summary(NLD_consumption)$coefficients["NLD$W_dl","Estimate"]
NLD_Ceffekt <- (NLD_CR*mean(NLD$C/NLD$R))-(NLD_CW*mean(NLD$C/NLD$W))
summary(NLD_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$C_dl ~ NLD$R_dl + NLD$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.020017 -0.006577 -0.001319  0.005159  0.024334 
## 
## Coefficients:
##              Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) -0.001298   0.002526  -0.514             0.61    
## NLD$R_dl     0.192583   0.033147   5.810 0.00000059739981 ***
## NLD$W_dl     0.825662   0.084361   9.787 0.00000000000102 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01104 on 45 degrees of freedom
## Multiple R-squared:  0.6976, Adjusted R-squared:  0.6841 
## F-statistic: 51.89 on 2 and 45 DF,  p-value: 0.000000000002063
#Investments (I)
NLD_investment <- dynlm(NLD$I_dl~NLD$PS_l+NLD$Y_l)
NLD_iPS <- summary(NLD_investment)$coefficients["NLD$PS_l","Estimate"]
NLD_Ieffekt <- NLD_iPS*mean(NLD$I/NLD$R)
summary(NLD_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$I_dl ~ NLD$PS_l + NLD$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12975 -0.02652 -0.00109  0.03412  0.28220 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept)  1.14691    0.64143   1.788   0.0805 .
## NLD$PS_l     0.36922    0.18629   1.982   0.0536 .
## NLD$Y_l     -0.11453    0.07209  -1.589   0.1191  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07171 on 45 degrees of freedom
## Multiple R-squared:  0.08352,    Adjusted R-squared:  0.04278 
## F-statistic:  2.05 on 2 and 45 DF,  p-value: 0.1405
#Price deflator (P)
NLD_deflator <- dynlm(NLD$P_dl~L(NLD$ulc_dl)+NLD$Pm_dl)
NLD_ePULC <- summary(NLD_deflator)$coefficients["L(NLD$ulc_dl)","Estimate"]
summary(NLD_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$P_dl ~ L(NLD$ulc_dl) + NLD$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.028044 -0.005224 -0.000732  0.007861  0.031705 
## 
## Coefficients:
##               Estimate Std. Error t value        Pr(>|t|)    
## (Intercept)   0.011668   0.002257   5.170 0.0000052075850 ***
## L(NLD$ulc_dl) 0.583037   0.059897   9.734 0.0000000000012 ***
## NLD$Pm_dl     0.178209   0.032417   5.497 0.0000017289440 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0123 on 45 degrees of freedom
## Multiple R-squared:  0.8115, Adjusted R-squared:  0.8031 
## F-statistic: 96.88 on 2 and 45 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
NLD_exportdeflator <- dynlm(NLD$Px_dl~NLD$ulc_dl+NLD$Pm_l)
NLD_ePX <- summary(NLD_exportdeflator)$coefficients["NLD$ulc_dl","Estimate"]
summary(NLD_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$Px_dl ~ NLD$ulc_dl + NLD$Pm_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.167775 -0.026063  0.003188  0.023836  0.160499 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept) -0.06150    0.24554  -0.250   0.8034  
## NLD$ulc_dl   0.70960    0.35966   1.973   0.0547 .
## NLD$Pm_l     0.01390    0.05365   0.259   0.7968  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05023 on 45 degrees of freedom
## Multiple R-squared:  0.151,  Adjusted R-squared:  0.1133 
## F-statistic: 4.002 on 2 and 45 DF,  p-value: 0.02514
#Exports (X)
NLD_exports <- dynlm(NLD$X_dl~L(NLD$dPxdPm)+NLD$Yrw_dl)
NLD_eXP <- summary(NLD_exports)$coefficients["L(NLD$dPxdPm)","Estimate"]
NLD_eXP <- 0
NLD_Xeffekt <- -(NLD_eXP*NLD_ePX*(1/(1-NLD_ePULC))*mean(NLD$Yf/NLD$Y)*(mean(NLD$X/NLD$Y)/mean(NLD$rulc)))
summary(NLD_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$X_dl ~ L(NLD$dPxdPm) + NLD$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.085052 -0.010273 -0.003301  0.017130  0.042476 
## 
## Coefficients:
##                Estimate Std. Error t value        Pr(>|t|)    
## (Intercept)   -0.002684   0.006806  -0.394           0.695    
## L(NLD$dPxdPm) -0.165941   0.289928  -0.572           0.570    
## NLD$Yrw_dl     1.965651   0.225100   8.732 0.0000000000304 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02448 on 45 degrees of freedom
## Multiple R-squared:  0.6303, Adjusted R-squared:  0.6139 
## F-statistic: 38.36 on 2 and 45 DF,  p-value: 0.000000000189
#Imports (M)
NLD_imports <- dynlm(NLD$M_dl~NLD$dPdPm+L(NLD$Y_dl)+L(NLD$M_l))
NLD_eMP <- summary(NLD_imports)$coefficients["NLD$dPdPm","Estimate"]
NLD_eMP <- 0
NLD_Meffekt <- -(NLD_eMP*NLD_ePULC*(1/(1-NLD_ePULC))*mean(NLD$Yf/NLD$Y)*(mean(NLD$M/NLD$Y)/mean(NLD$rulc)))
summary(NLD_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$M_dl ~ NLD$dPdPm + L(NLD$Y_dl) + L(NLD$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075738 -0.010693 -0.001232  0.017270  0.083876 
## 
## Coefficients:
##              Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) -0.065992   0.035669  -1.850        0.071 .  
## NLD$dPdPm    0.031245   0.088588   0.353        0.726    
## L(NLD$Y_dl)  1.842630   0.239392   7.697 0.0000000011 ***
## L(NLD$M_l)   0.012933   0.006418   2.015        0.050 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02852 on 44 degrees of freedom
## Multiple R-squared:  0.5746, Adjusted R-squared:  0.5456 
## F-statistic: 19.81 on 3 and 44 DF,  p-value: 0.0000000282
names(NLD_consumption$coefficients) <- sub("NLD$","",names(NLD_consumption$coefficients),fixed=TRUE)
names(NLD_investment$coefficients) <- sub("NLD$","",names(NLD_investment$coefficients),fixed=TRUE)
names(NLD_deflator$coefficients) <- sub("NLD$","",names(NLD_deflator$coefficients),fixed=TRUE)
names(NLD_exportdeflator$coefficients) <- sub("NLD$","",names(NLD_exportdeflator$coefficients),fixed=TRUE)
names(NLD_exports$coefficients) <- sub("NLD$","",names(NLD_exports$coefficients),fixed=TRUE)
names(NLD_imports$coefficients) <- sub("NLD$","",names(NLD_imports$coefficients),fixed=TRUE)

NLD_Xeffekt
## [1] 0
NLD_Meffekt
## [1] 0
#Nettoeksport (NX)
NLD_NXeffekt <- NLD_Xeffekt - NLD_Meffekt

NLD_NXeffekt
## [1] 0
#Nettoeffekten
NLD_Neteffekt = NLD_Ceffekt + NLD_Ieffekt + NLD_NXeffekt

NLD_Neteffekt
## [1] -0.1220165
NLD_Lukket <- NLD_Ceffekt + NLD_Ieffekt
NLD_Lukket_Konklusion <- ifelse(NLD_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
NLD_Lukket_Konklusion
## [1] "Wage-led domestic"
NLD_Def <- ifelse(NLD_Neteffekt > 0, "Profit-led", "Wage-led")
NLD_Def
## [1] "Wage-led"

Kointegrations-test

summary(ur.df(y=NLD_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0148947 -0.0038761  0.0005409  0.0040152  0.0126858 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.00899    0.57301  -1.761   0.0922 .
## z.diff.lag1   0.18691    0.52635   0.355   0.7259  
## z.diff.lag2   0.28320    0.44932   0.630   0.5350  
## z.diff.lag3   0.47678    0.34762   1.372   0.1840  
## z.diff.lag4   0.24488    0.34095   0.718   0.4802  
## z.diff.lag5   0.57802    0.32960   1.754   0.0934 .
## z.diff.lag6   0.43404    0.34633   1.253   0.2233  
## z.diff.lag7   0.45231    0.33835   1.337   0.1949  
## z.diff.lag8   0.43607    0.31402   1.389   0.1788  
## z.diff.lag9   0.35486    0.27831   1.275   0.2156  
## z.diff.lag10 -0.03887    0.28459  -0.137   0.8926  
## z.diff.lag11  0.01951    0.26482   0.074   0.9419  
## z.diff.lag12  0.04193    0.21097   0.199   0.8443  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.008356 on 22 degrees of freedom
## Multiple R-squared:  0.5938, Adjusted R-squared:  0.3538 
## F-statistic: 2.474 on 13 and 22 DF,  p-value: 0.02953
## 
## 
## Value of test-statistic is: -1.7609 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=NLD_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.101547 -0.031880  0.007131  0.033467  0.070539 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.49826    0.89973  -1.665    0.110
## z.diff.lag1   0.75385    0.87585   0.861    0.399
## z.diff.lag2   0.70337    0.85564   0.822    0.420
## z.diff.lag3   0.51260    0.81475   0.629    0.536
## z.diff.lag4   0.88037    0.80531   1.093    0.286
## z.diff.lag5   0.08630    0.77138   0.112    0.912
## z.diff.lag6   0.16549    0.71571   0.231    0.819
## z.diff.lag7  -0.05744    0.63796  -0.090    0.929
## z.diff.lag8   0.64461    0.56384   1.143    0.265
## z.diff.lag9   0.05817    0.48113   0.121    0.905
## z.diff.lag10 -0.08377    0.39838  -0.210    0.835
## z.diff.lag11  0.24478    0.33222   0.737    0.469
## z.diff.lag12  0.31779    0.24171   1.315    0.202
## 
## Residual standard error: 0.05618 on 22 degrees of freedom
## Multiple R-squared:  0.8214, Adjusted R-squared:  0.7159 
## F-statistic: 7.783 on 13 and 22 DF,  p-value: 0.0000165
## 
## 
## Value of test-statistic is: -1.6652 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=NLD_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.029823 -0.006037  0.004097  0.016833  0.034089 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.47858    0.32494  -1.473    0.155
## z.diff.lag1  -0.33344    0.31651  -1.053    0.304
## z.diff.lag2   0.02375    0.31950   0.074    0.941
## z.diff.lag3   0.01385    0.32392   0.043    0.966
## z.diff.lag4  -0.01502    0.31709  -0.047    0.963
## z.diff.lag5  -0.04564    0.28544  -0.160    0.874
## z.diff.lag6   0.17049    0.26951   0.633    0.534
## z.diff.lag7   0.17107    0.26254   0.652    0.521
## z.diff.lag8  -0.06932    0.25067  -0.277    0.785
## z.diff.lag9   0.12340    0.23067   0.535    0.598
## z.diff.lag10  0.30148    0.22118   1.363    0.187
## z.diff.lag11  0.26894    0.22068   1.219    0.236
## z.diff.lag12 -0.11350    0.18283  -0.621    0.541
## 
## Residual standard error: 0.02142 on 22 degrees of freedom
## Multiple R-squared:  0.6082, Adjusted R-squared:  0.3767 
## F-statistic: 2.627 on 13 and 22 DF,  p-value: 0.02217
## 
## 
## Value of test-statistic is: -1.4728 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=NLD_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042992 -0.002878  0.006385  0.016149  0.060338 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1       -3.2555     1.6287  -1.999   0.0581 .
## z.diff.lag1    2.0888     1.5745   1.327   0.1982  
## z.diff.lag2    1.7765     1.4919   1.191   0.2464  
## z.diff.lag3    1.7701     1.4204   1.246   0.2258  
## z.diff.lag4    1.0956     1.3138   0.834   0.4133  
## z.diff.lag5    1.1450     1.2004   0.954   0.3505  
## z.diff.lag6    0.6607     1.0809   0.611   0.5473  
## z.diff.lag7    0.5201     0.9574   0.543   0.5924  
## z.diff.lag8    0.3417     0.7992   0.428   0.6731  
## z.diff.lag9    0.1483     0.6443   0.230   0.8200  
## z.diff.lag10   0.4764     0.5619   0.848   0.4057  
## z.diff.lag11   0.1369     0.4125   0.332   0.7432  
## z.diff.lag12   0.3523     0.3055   1.153   0.2612  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02896 on 22 degrees of freedom
## Multiple R-squared:  0.7412, Adjusted R-squared:  0.5882 
## F-statistic: 4.846 on 13 and 22 DF,  p-value: 0.0005922
## 
## 
## Value of test-statistic is: -1.9989 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(NLD_consumption)

plot(NLD_investment)

plot(NLD_deflator)

plot(NLD_exportdeflator)

plot(NLD_exports)

plot(NLD_imports)

bptest(NLD_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  NLD_consumption
## BP = 3.4459, df = 2, p-value = 0.1785
bptest(NLD_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  NLD_investment
## BP = 2.8104, df = 2, p-value = 0.2453
bptest(NLD_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  NLD_deflator
## BP = 1.2976, df = 2, p-value = 0.5227
bptest(NLD_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  NLD_exportdeflator
## BP = 3.336, df = 2, p-value = 0.1886
bptest(NLD_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  NLD_exports
## BP = 1.1065, df = 2, p-value = 0.5751
bptest(NLD_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  NLD_imports
## BP = 4.7615, df = 3, p-value = 0.1901
resettest(NLD_consumption)
## 
##  RESET test
## 
## data:  NLD_consumption
## RESET = 0.074004, df1 = 2, df2 = 43, p-value = 0.9288
resettest(NLD_investment)
## 
##  RESET test
## 
## data:  NLD_investment
## RESET = 1.8023, df1 = 2, df2 = 43, p-value = 0.1772
resettest(NLD_deflator)
## 
##  RESET test
## 
## data:  NLD_deflator
## RESET = 2.6332, df1 = 2, df2 = 43, p-value = 0.08341
resettest(NLD_exportdeflator)
## 
##  RESET test
## 
## data:  NLD_exportdeflator
## RESET = 4.3724, df1 = 2, df2 = 43, p-value = 0.01868
resettest(NLD_exports)
## 
##  RESET test
## 
## data:  NLD_exports
## RESET = 0.96104, df1 = 2, df2 = 43, p-value = 0.3906
resettest(NLD_imports)
## 
##  RESET test
## 
## data:  NLD_imports
## RESET = 0.53327, df1 = 2, df2 = 42, p-value = 0.5906

Resultater

NLD_regtab <- matrix(c(NLD_Ceffekt, NLD_Ieffekt, NLD_Lukket, NLD_Xeffekt, NLD_Meffekt, NLD_NXeffekt, NLD_Neteffekt,NLD_Lukket_Konklusion, NLD_Def),ncol=9,byrow=TRUE)
colnames(NLD_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(NLD_regtab) <- c("NLD")
NLD_regtab <- as.table(NLD_regtab)
NLD_regtab
##     consumption        investment        Lukket neteffekt   exports
## NLD -0.328292807643207 0.206276261116581 -0.122016546526626 0      
##     imports netexports neteffect          Lukket konklusion Konklusion
## NLD 0       0          -0.122016546526626 Wage-led domestic Wage-led
NLD_smoke <- matrix(c(mean(NLD$C/NLD$R), mean(NLD$C/NLD$W), mean(NLD$I/NLD$R), NLD_CR, NLD_CW, NLD_iPS, NLD_ePULC, (1/(1-NLD_ePULC)), NLD_eXP, NLD_ePX, NLD_eMP, mean(NLD$Yf/NLD$Y), mean(NLD$X/NLD$Y), mean(NLD$rulc), (mean(NLD$X/NLD$Y)/mean(NLD$rulc))),ncol=15,byrow=TRUE)
colnames(NLD_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(NLD_smoke) <- c("NLD")
NLD_smoke <- as.table(NLD_smoke)
NLD_smoke
##           C/R       C/W       I/R        CR        CW       iPS     ePULC
## NLD 1.7450832 0.8046459 0.5586767 0.1925828 0.8256623 0.3692230 0.5830374
##     1/1-epulc       eXP       ePX       eMP      Yf/Y       X/Y      RULC
## NLD 2.3982968 0.0000000 0.7095967 0.0000000 0.9206594 0.4985315 0.6274543
##     (X/Y)/rulc
## NLD  0.7945304

Summary af regressioner

summary(NLD_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$C_dl ~ NLD$R_dl + NLD$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.020017 -0.006577 -0.001319  0.005159  0.024334 
## 
## Coefficients:
##              Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) -0.001298   0.002526  -0.514             0.61    
## R_dl         0.192583   0.033147   5.810 0.00000059739981 ***
## W_dl         0.825662   0.084361   9.787 0.00000000000102 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01104 on 45 degrees of freedom
## Multiple R-squared:  0.6976, Adjusted R-squared:  0.6841 
## F-statistic: 51.89 on 2 and 45 DF,  p-value: 0.000000000002063
summary(NLD_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$I_dl ~ NLD$PS_l + NLD$Y_l)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12975 -0.02652 -0.00109  0.03412  0.28220 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept)  1.14691    0.64143   1.788   0.0805 .
## PS_l         0.36922    0.18629   1.982   0.0536 .
## Y_l         -0.11453    0.07209  -1.589   0.1191  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07171 on 45 degrees of freedom
## Multiple R-squared:  0.08352,    Adjusted R-squared:  0.04278 
## F-statistic:  2.05 on 2 and 45 DF,  p-value: 0.1405
summary(NLD_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$P_dl ~ L(NLD$ulc_dl) + NLD$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.028044 -0.005224 -0.000732  0.007861  0.031705 
## 
## Coefficients:
##             Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) 0.011668   0.002257   5.170 0.0000052075850 ***
## L(ulc_dl)   0.583037   0.059897   9.734 0.0000000000012 ***
## Pm_dl       0.178209   0.032417   5.497 0.0000017289440 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0123 on 45 degrees of freedom
## Multiple R-squared:  0.8115, Adjusted R-squared:  0.8031 
## F-statistic: 96.88 on 2 and 45 DF,  p-value: < 0.00000000000000022
summary(NLD_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$Px_dl ~ NLD$ulc_dl + NLD$Pm_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.167775 -0.026063  0.003188  0.023836  0.160499 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept) -0.06150    0.24554  -0.250   0.8034  
## ulc_dl       0.70960    0.35966   1.973   0.0547 .
## Pm_l         0.01390    0.05365   0.259   0.7968  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05023 on 45 degrees of freedom
## Multiple R-squared:  0.151,  Adjusted R-squared:  0.1133 
## F-statistic: 4.002 on 2 and 45 DF,  p-value: 0.02514
summary(NLD_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$X_dl ~ L(NLD$dPxdPm) + NLD$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.085052 -0.010273 -0.003301  0.017130  0.042476 
## 
## Coefficients:
##              Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) -0.002684   0.006806  -0.394           0.695    
## L(dPxdPm)   -0.165941   0.289928  -0.572           0.570    
## Yrw_dl       1.965651   0.225100   8.732 0.0000000000304 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02448 on 45 degrees of freedom
## Multiple R-squared:  0.6303, Adjusted R-squared:  0.6139 
## F-statistic: 38.36 on 2 and 45 DF,  p-value: 0.000000000189
summary(NLD_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = NLD$M_dl ~ NLD$dPdPm + L(NLD$Y_dl) + L(NLD$M_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075738 -0.010693 -0.001232  0.017270  0.083876 
## 
## Coefficients:
##              Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) -0.065992   0.035669  -1.850        0.071 .  
## dPdPm        0.031245   0.088588   0.353        0.726    
## L(Y_dl)      1.842630   0.239392   7.697 0.0000000011 ***
## L(M_l)       0.012933   0.006418   2.015        0.050 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02852 on 44 degrees of freedom
## Multiple R-squared:  0.5746, Adjusted R-squared:  0.5456 
## F-statistic: 19.81 on 3 and 44 DF,  p-value: 0.0000000282

Portugal analyse

Test for NA værdier

PRT_df[!complete.cases(PRT_df),]
##             WS        WS_l        WS_dl         PS       PS_l        PS_dl
## 1960 0.6724782 -0.39678554           NA 0.32752177 -1.1162008           NA
## 1961 0.7052518 -0.34920037  0.047585169 0.29474819 -1.2216339 -0.105433108
## 1962 0.6632485 -0.41060560 -0.061405235 0.33675154 -1.0884099  0.133223967
## 1963 0.7032633 -0.35202388  0.058581724 0.29673667 -1.2149102 -0.126500260
## 1964 0.7126318 -0.33879041  0.013233476 0.28736820 -1.2469909 -0.032080792
## 1965 0.6840850 -0.37967306 -0.040882655 0.31591497 -1.1522822  0.094708774
## 1966 0.7132323 -0.33794811  0.041724950 0.28676770 -1.2490828 -0.096800610
## 1967 0.7395210 -0.30175263  0.036195484 0.26047902 -1.3452330 -0.096150174
## 1968 0.7413201 -0.29932276  0.002429869 0.25867990 -1.3521639 -0.006930946
## 1969 0.7724867 -0.25814048  0.041182280 0.22751329 -1.4805466 -0.128382707
## 1970 0.7888944 -0.23712282  0.021017658 0.21110561 -1.5553967 -0.074850138
## 1971 0.7702652 -0.26102035 -0.023897527 0.22973475 -1.4708299  0.084566866
## 1972 0.7628420 -0.27070430 -0.009683949 0.23715796 -1.4390289  0.031801026
## 1973 0.7609457 -0.27319321 -0.002488919 0.23905425 -1.4310648  0.007964101
## 1974 0.8332972 -0.18236487  0.090828340 0.16670276 -1.7915429 -0.360478152
## 1975 0.9383954 -0.06358389  0.118780987 0.06160460 -2.7870187 -0.995475762
## 1976 0.9278648 -0.07486926 -0.011285375 0.07213521 -2.6292129  0.157805736
## 1977 0.8671001 -0.14260086 -0.067731594 0.13289990 -2.0181590  0.611053892
## 1978 0.7952647 -0.22908029 -0.086479435 0.20473532 -1.5860372  0.432121797
## 1979 0.7376890 -0.30423292 -0.075152630 0.26231098 -1.3382245  0.247812702
## 1980 0.7059547 -0.34820422 -0.043971295 0.29404531 -1.2240214  0.114203122
## 1981 0.7098594 -0.34268833  0.005515885 0.29014058 -1.2373897 -0.013368286
## 1982 0.7357476 -0.30686814  0.035820187 0.26425239 -1.3308506 -0.093460891
## 1983 0.6777412 -0.38898975 -0.082121607 0.32225878 -1.1324004  0.198450219
## 1984 0.6042436 -0.50377792 -0.114788173 0.39575644 -0.9269563  0.205444082
## 1985 0.6160102 -0.48449172  0.019286202 0.38398978 -0.9571393 -0.030183049
## 2019 0.5992491 -0.51207791 -0.003924482 0.40075090 -0.9144152  0.005897224
## 2020 0.6023634 -0.50689441  0.005183501 0.39763663 -0.9222167 -0.007801446
## 2021 0.5962770 -0.51704996 -0.010155557 0.40372301 -0.9070263  0.015190421
## 2022        NA          NA           NA         NA         NA           NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1960  32.0900 3.468544           NA  8478987488619 29.76861            NA
## 1961  33.2388 3.503718  0.035173413  8860258182199 29.81260  0.0439848616
## 1962  36.7383 3.603820  0.100101939  9379237386071 29.86952  0.0569225532
## 1963  38.1489 3.641497  0.037677116  9891329794829 29.92268  0.0531601375
## 1964  40.4582 3.700269  0.058772419 10562831558643 29.98836  0.0656827872
## 1965  44.2657 3.790210  0.089940768 11159968865143 30.04335  0.0549917847
## 1966  46.2815 3.834742  0.044532202 11835570163916 30.10213  0.0587762508
## 1967  48.2037 3.875436  0.040693468 12365912083035 30.14596  0.0438342437
## 1968  50.6490 3.924919  0.049483706 13136925128664 30.20645  0.0604833157
## 1969  51.8823 3.948978  0.024058204 13896212050820 30.26264  0.0561893115
## 1970  56.2792 4.030325  0.081347326 14236997678385 30.28687  0.0242277579
## 1971  62.1822 4.130069  0.099743768 14821011015781 30.32707  0.0402017907
## 1972  68.6357 4.228813  0.098744022 15669311788602 30.38273  0.0556582991
## 1973  72.0132 4.276849  0.048036628 16653366518980 30.44363  0.0609082530
## 1974  74.1121 4.305579  0.028729376 16808158238841 30.45289  0.0092519887
## 1975  70.3361 4.253285 -0.052293631 16814407611785 30.45326  0.0003717368
## 1976  71.9468 4.275927  0.022641776 17626125898850 30.50040  0.0471461126
## 1977  76.2755 4.334352  0.058424829 18324959025266 30.53929  0.0388817843
## 1978  80.9782 4.394180  0.059828197 19089479321840 30.58016  0.0408733507
## 1979  86.7285 4.462783  0.068602567 19856349483031 30.61954  0.0393864667
## 1980  90.8604 4.509324  0.046541713 20127109972021 30.63309  0.0135438320
## 1981  92.8365 4.530840  0.021515619 20540754427572 30.65343  0.0203432724
## 1982  94.8448 4.552242  0.021401990 20522367047250 30.65254 -0.0008955667
## 1983  95.7664 4.561912  0.009670021 21098531494544 30.68022  0.0276880738
## 1984  94.7686 4.551438 -0.010473762 22076081679865 30.72552  0.0452913049
## 1985  96.3194 4.567670  0.016231622 22878130648022 30.76120  0.0356867152
## 2019 198.9762 5.293185  0.021336066             NA       NA            NA
## 2020 185.5151 5.223136 -0.070048939             NA       NA            NA
## 2021 196.3082 5.279686  0.056549593             NA       NA            NA
## 2022       NA       NA           NA             NA       NA            NA
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1960  0.02874  32.06126 3.467648           NA  19.6412 2.977629
## 1961  0.03357  33.20523 3.502707  0.035058946  20.7031 3.030283
## 1962  0.03770  36.70060 3.602793  0.100085710  21.7768 3.080845
## 1963  0.03894  38.10996 3.640476  0.037682562  23.2407 3.145905
## 1964  0.04332  40.41488 3.699198  0.058722369  24.1956 3.186171
## 1965  0.05160  44.21410 3.789044  0.089845709  26.4421 3.274957
## 1966  0.05773  46.22377 3.833494  0.044450425  27.4412 3.312046
## 1967  0.06922  48.13448 3.873999  0.040504592  28.7974 3.360285
## 1968  0.07893  50.57007 3.923360  0.049361139  30.7576 3.426137
## 1969  0.08754  51.79476 3.947289  0.023929087  29.9731 3.400300
## 1970  0.10612  56.17308 4.028438  0.081148653  32.7741 3.489639
## 1971  0.11300  62.06920 4.128250  0.099812253  36.0664 3.585362
## 1972  0.12747  68.50823 4.226954  0.098703992  37.6378 3.628009
## 1973  0.15318  71.86002 4.274720  0.047766176  40.1731 3.693198
## 1974  0.18666  73.92544 4.303057  0.028336958  43.6589 3.776407
## 1975  0.21056  70.12554 4.250287 -0.052769953  41.3185 3.721310
## 1976  0.31115  71.63565 4.271593  0.021305791  41.7955 3.732789
## 1977  0.40003  75.87547 4.329093  0.057500589  42.8834 3.758485
## 1978  0.47399  80.50421 4.388309  0.059216037  45.6072 3.820066
## 1979  0.58710  86.14140 4.455990  0.067680651  48.8533 3.888822
## 1980  0.86787  89.99253 4.499727  0.043736535  52.9964 3.970224
## 1981  1.05506  91.78144 4.519410  0.019683432  54.3172 3.994841
## 1982  1.35099  93.49381 4.537895  0.018485132  55.4023 4.014621
## 1983  1.75869  94.00771 4.543377  0.005481569  55.2098 4.011140
## 1984  2.14257  92.62603 4.528570 -0.014806597  55.2071 4.011092
## 1985  2.62037  93.69903 4.540088  0.011517633  55.9226 4.023969
## 2019 32.50151 166.47469 5.114843  0.018251666 129.7675 4.865744
## 2020 30.27231 155.24279 5.044990 -0.069853007 122.2410 4.805995
## 2021 32.41118 163.89702 5.099238  0.054248025 128.7198 4.857638
## 2022       NA        NA       NA           NA       NA       NA
##                C_dl        W      W_l          W_dl         R      R_l
## 1960             NA 21.56050 3.070863            NA 10.500761 2.351448
## 1961  0.05265404666 23.41805 3.153507  0.0826441145  9.787182 2.281074
## 1962  0.05056173541 24.34162 3.192187  0.0386804749 12.358983 2.514383
## 1963  0.06505986908 26.80134 3.288452  0.0962642852 11.308623 2.425566
## 1964  0.04026574644 28.80093 3.360408  0.0719558442 11.613951 2.452207
## 1965  0.08878663849 30.24620 3.409371  0.0489630538 13.967896 2.636762
## 1966  0.03708809674 32.96829 3.495546  0.0861753750 13.255484 2.584411
## 1967  0.04823957161 35.59646 3.572246  0.0767000764 12.538022 2.528766
## 1968  0.06585201290 37.48861 3.624037  0.0517910080 13.081460 2.571196
## 1969 -0.02583680544 40.01076 3.689149  0.0651113662 11.783996 2.466742
## 1970  0.08933825657 44.31463 3.791315  0.1021663108 11.858452 2.473041
## 1971  0.09572311468 47.80975 3.867230  0.0759147263 14.259452 2.657420
## 1972  0.04264718055 52.26096 3.956250  0.0890200439 16.247272 2.787925
## 1973  0.06518875286 54.68158 4.001527  0.0452772572 17.178443 2.843655
## 1974  0.08320953871 61.60186 4.120692  0.1191652972 12.323575 2.511514
## 1975 -0.05509681456 65.80548 4.186703  0.0660110333  4.320056 1.463268
## 1976  0.01147833667 66.46820 4.196724  0.0100204160  5.167453 1.642380
## 1977  0.02569612643 65.79163 4.186493 -0.0102310054 10.083843 2.310934
## 1978  0.06158079413 64.02215 4.159229 -0.0272633973 16.482055 2.802272
## 1979  0.06875633115 63.54557 4.151757 -0.0074719789 22.595835 3.117766
## 1980  0.08140205677 63.53065 4.151522 -0.0002347603 26.461881 3.275705
## 1981  0.02461694881 65.15192 4.176722  0.0251993166 26.629520 3.282020
## 1982  0.01978017361 68.78785 4.231027  0.0543053194 24.705963 3.207045
## 1983 -0.00348063538 63.71290 4.154387 -0.0766400376 30.294810 3.410976
## 1984 -0.00004890556 55.96868 4.024792 -0.1295947692 36.657348 3.601614
## 1985  0.01287702364 57.71956 4.055596  0.0308038358 35.979470 3.582948
## 2019  0.02210705864 99.75981 4.602765  0.0143271836 66.714882 4.200428
## 2020 -0.05974988170 93.51257 4.538096 -0.0646695059 61.730220 4.122774
## 2021  0.05164344291 97.72802 4.582188  0.0440924682 66.168998 4.192212
## 2022             NA       NA       NA            NA        NA       NA
##              R_dl       It     It_l        It_dl   Itcurr   Itcurr_l
## 1960           NA  5.54009 1.712011           NA  0.10354 -2.2677973
## 1961 -0.070374162  6.39898 1.856139  0.144127857  0.12588 -2.0724262
## 1962  0.233309677  6.38199 1.853480 -0.002658642  0.13198 -2.0251049
## 1963 -0.088817698  5.68120 1.737162 -0.116317483  0.12662 -2.0665648
## 1964  0.026641577  6.24993 1.832570  0.095407786  0.14197 -1.9521395
## 1965  0.184554483  7.17206 1.970193  0.137622658  0.16307 -1.8135757
## 1966 -0.052350185  8.63635 2.155980  0.185787118  0.20131 -1.6029093
## 1967 -0.055645581  8.57533 2.148889 -0.007090564  0.21867 -1.5201915
## 1968  0.042430193  9.11491 2.209912  0.061022058  0.23043 -1.4678082
## 1969 -0.104453621 10.31252 2.333359  0.123447157  0.26394 -1.3320335
## 1970  0.006298515 10.76649 2.376439  0.043079842  0.29210 -1.2306591
## 1971  0.184379119 12.96923 2.562580  0.186141096  0.37458 -0.9819499
## 1972  0.130505018 15.72750 2.755411  0.192831144  0.47117 -0.7525363
## 1973  0.055730277 17.13105 2.840893  0.085481834  0.57635 -0.5510402
## 1974 -0.332141194 18.20272 2.901571  0.060678427  0.75859 -0.2762938
## 1975 -1.048245716 14.36332 2.664678 -0.236893299  0.72613 -0.3200262
## 1976  0.179111527 13.44757 2.598798 -0.065879314  0.80855 -0.2125128
## 1977  0.668554481 16.13440 2.780954  0.182155218  1.24134  0.2161914
## 1978  0.491337834 15.53210 2.742909 -0.038044788  1.43544  0.3614714
## 1979  0.315493353 17.63096 2.869656  0.126747597  2.05359  0.7195895
## 1980  0.157939657 16.66890 2.813545 -0.056111740  2.40276  0.8766181
## 1981  0.006315145 19.13550 2.951545  0.138000541  3.29332  1.1918962
## 1982 -0.074975758 19.51990 2.971434  0.019889209  3.92550  1.3674937
## 1983  0.203931789 18.99461 2.944155 -0.027279203  4.75156  1.5584730
## 1984  0.190637485 16.73223 2.817337 -0.126818455  5.13198  1.6354915
## 1985 -0.018665416 16.58550 2.808529 -0.008807980  5.91447  1.7774019
## 2019  0.024148890 35.85562 3.579500  0.060864554 38.82011  3.6589384
## 2020 -0.077654454 32.77204 3.489576 -0.089924606 35.62351  3.5730058
## 2021  0.069438446 35.68875 3.574836  0.085259800 39.41470  3.6741388
## 2022           NA       NA       NA           NA       NA         NA
##        Itcurr_dl      Ipr       Ipr_l      Ipr_dl       Ips       Ips_l
## 1960          NA  0.09001 -2.40783450          NA 0.8693259 -0.14003724
## 1961  0.19537106  0.11153 -2.19346167  0.21437284 0.8860025 -0.12103546
## 1962  0.04732132  0.11503 -2.16256232  0.03089935 0.8715715 -0.13745743
## 1963 -0.04145992  0.10606 -2.24375031 -0.08118799 0.8376244 -0.17718550
## 1964  0.11442529  0.12129 -2.10957091  0.13417940 0.8543354 -0.15743140
## 1965  0.13856379  0.14218 -1.95066142  0.15890949 0.8718955 -0.13708570
## 1966  0.21066645  0.17780 -1.72709596  0.22356546 0.8832149 -0.12418669
## 1967  0.08271774  0.19363 -1.64180616  0.08528980 0.8854896 -0.12161462
## 1968  0.05238338  0.20344 -1.59238416  0.04942200 0.8828712 -0.12457601
## 1969  0.13577468  0.23247 -1.45899409  0.13339006 0.8807684 -0.12696062
## 1970  0.10137440  0.25992 -1.34738139  0.11161271 0.8898322 -0.11672232
## 1971  0.24870919  0.33756 -1.08601201  0.26136938 0.9011693 -0.10406213
## 1972  0.22941356  0.42848 -0.84751122  0.23850079 0.9093958 -0.09497490
## 1973  0.20149615  0.52552 -0.64336703  0.20414419 0.9118071 -0.09232687
## 1974  0.27474633  0.69826 -0.35916375  0.28420328 0.9204709 -0.08286992
## 1975 -0.04373238  0.65125 -0.42886169 -0.06969793 0.8968780 -0.10883547
## 1976  0.10751346  0.70743 -0.34611659  0.08274509 0.8749366 -0.13360384
## 1977  0.42870420  1.10157  0.09673643  0.44285303 0.8874039 -0.11945501
## 1978  0.14527998  1.18218  0.16736019  0.07062376 0.8235663 -0.19411123
## 1979  0.35811806  1.73184  0.54918443  0.38182424 0.8433232 -0.17040505
## 1980  0.15702860  2.01453  0.70038592  0.15120149 0.8384233 -0.17623216
## 1981  0.31527810  2.73850  1.00741033  0.30702441 0.8315317 -0.18448585
## 1982  0.17559756  3.30461  1.19531846  0.18790814 0.8418316 -0.17217527
## 1983  0.19097925  4.05288  1.39942774  0.20410928 0.8529578 -0.15904525
## 1984  0.07701856  4.40072  1.48176816  0.08234042 0.8575092 -0.15372339
## 1985  0.14191034  5.04878  1.61914663  0.13737847 0.8536319 -0.15825526
## 2019  0.07984564 34.84021  3.55077218  0.08359107 0.8974784 -0.10816623
## 2020 -0.08593260 31.06675  3.43613812 -0.11463406 0.8720856 -0.13686770
## 2021  0.10113303 34.40241  3.53812662  0.10198850 0.8728320 -0.13601222
## 2022          NA       NA          NA          NA        NA          NA
##             Ips_dl         I      I_l         I_dl          r       r_l
## 1960            NA  4.816144 1.571974           NA         NA        NA
## 1961  0.0190017770  5.669513 1.735103  0.163129634         NA        NA
## 1962 -0.0164219729  5.562360 1.716023 -0.019080615         NA        NA
## 1963 -0.0397280714  4.758712 1.559977 -0.156045554         NA        NA
## 1964  0.0197541081  5.339537 1.675139  0.115161894         NA        NA
## 1965  0.0203456994  6.253287 1.833107  0.157968357         NA        NA
## 1966  0.0128990105  7.627753 2.031793  0.198686129         NA        NA
## 1967  0.0025720629  7.593365 2.027275 -0.004518501         NA        NA
## 1968 -0.0029613850  8.047291 2.085336  0.058060673         NA        NA
## 1969 -0.0023846126  9.082941 2.206398  0.121062544         NA        NA
## 1970  0.0102383021  9.580370 2.259716  0.053318144         NA        NA
## 1971  0.0126601920 11.687472 2.458518  0.198801288         NA        NA
## 1972  0.0090872254 14.302522 2.660436  0.201918369         NA        NA
## 1973  0.0026480341 15.620212 2.748566  0.088129868         NA        NA
## 1974  0.0094569457 16.755074 2.818701  0.070135373         NA        NA
## 1975 -0.0259655483 12.882145 2.555842 -0.262858847         NA        NA
## 1976 -0.0247683662 11.765771 2.465195 -0.090647680         NA        NA
## 1977  0.0141488290 14.317730 2.661499  0.196304047         NA        NA
## 1978 -0.0746562244 12.791714 2.548798 -0.112701013         NA        NA
## 1979  0.0237061768 14.868597 2.699251  0.150453774         NA        NA
## 1980 -0.0058271051 13.975594 2.637313 -0.061938845         NA        NA
## 1981 -0.0082536902 15.911775 2.767059  0.129746851         NA        NA
## 1982  0.0123105809 16.432469 2.799259  0.032199790         NA        NA
## 1983  0.0131300227 16.201600 2.785110 -0.014149181         NA        NA
## 1984  0.0053218599 14.348041 2.663613 -0.121496595         NA        NA
## 1985 -0.0045318750 14.157911 2.650274 -0.013339855  5.7590106 2.1851435
## 2019  0.0037454287 32.179644 3.471334  0.064609982 -0.9448307 0.7830259
## 2020 -0.0287014659 28.580024 3.352708 -0.118626072         NA        NA
## 2021  0.0008554746 31.150282 3.438823  0.086115275         NA        NA
## 2022            NA        NA       NA           NA         NA        NA
##            r_dl          P       P_l         P_dl         Pm     Pm_l
## 1960         NA   1.551567 0.4392657           NA   5.402471 1.686856
## 1961         NA   1.559447 0.4443310  0.005065304   5.254883 1.659158
## 1962         NA   1.583580 0.4596879  0.015356839   5.244678 1.657214
## 1963         NA   1.575633 0.4546569 -0.005030948   5.321812 1.671814
## 1964         NA   1.612759 0.4779466  0.023289657   5.529789 1.710150
## 1965         NA   1.714880 0.5393429  0.061396311   5.555577 1.714802
## 1966         NA   1.750566 0.5599394  0.020596576   5.625097 1.727238
## 1967         NA   1.882769 0.6327437  0.072804222   5.523424 1.708998
## 1968         NA   1.937839 0.6615734  0.028829763   5.258790 1.659901
## 1969         NA   2.029772 0.7079236  0.046350185   5.302536 1.668185
## 1970         NA   2.111065 0.7471927  0.039269082   5.645302 1.730824
## 1971         NA   2.211261 0.7935630  0.046370330   5.862544 1.768584
## 1972         NA   2.363526 0.8601546  0.066591583   5.978884 1.788234
## 1973         NA   2.663364 0.9795901  0.119435446   6.639915 1.893099
## 1974         NA   3.062979 1.1193879  0.139797879   9.297783 2.229776
## 1975         NA   3.736749 1.3182159  0.198827989  10.301745 2.332313
## 1976         NA   4.369834 1.4747249  0.156509002  11.626240 2.453265
## 1977         NA   5.297696 1.6672719  0.192547003  14.752467 2.691410
## 1978         NA   6.172219 1.8200584  0.152786435  17.784593 2.878333
## 1979         NA   7.327585 1.9916460  0.171587667  23.681052 3.164675
## 1980         NA   9.090450 2.2072244  0.215578333  29.391867 3.380718
## 1981         NA  10.689283 2.3692416  0.162017273  35.879367 3.580162
## 1982         NA  12.651973 2.5378132  0.168571538  41.159621 3.717458
## 1983         NA  16.009284 2.7731688  0.235355637  52.082947 3.952838
## 1984         NA  19.866163 2.9890179  0.215849131  68.277746 4.223584
## 1985         NA  23.995154 3.1778519  0.188833929  75.184926 4.319951
## 2019 -0.4356827 106.697575 4.6699984  0.017064490 102.685494 4.631671
## 2020         NA 108.002367 4.6821531  0.012154718 101.143954 4.616545
## 2021         NA 109.486086 4.6957975  0.013644330 102.379620 4.628688
## 2022         NA         NA        NA           NA         NA       NA
##             Pm_dl         Px     Px_l          Px_dl        X       X_l
## 1960           NA   4.113080 1.414172             NA  1.86167 0.6214739
## 1961 -0.027698607   4.126361 1.417396  0.00322374063  1.88798 0.6355075
## 1962 -0.001943891   4.017734 1.390718 -0.02667794024  2.31116 0.8377496
## 1963  0.014599941   4.122084 1.416359  0.02564092053  2.38477 0.8691027
## 1964  0.038335794   4.281545 1.454314  0.03795492130  2.81450 1.0347846
## 1965  0.004652647   4.421460 1.486470  0.03215605662  3.06680 1.1206347
## 1966  0.012435833   4.468426 1.497036  0.01056637518  3.20556 1.1648868
## 1967 -0.018240254   4.542076 1.513384  0.01634795347  3.54846 1.2665137
## 1968 -0.049096904   4.542243 1.513421  0.00003663456  3.83285 1.3436087
## 1969  0.008284215   4.630412 1.532646  0.01922484216  4.30766 1.4603948
## 1970  0.062638516   4.774879 1.563369  0.03072280849  4.59815 1.5256540
## 1971  0.037759909   5.043727 1.618145  0.05477664427  4.94697 1.5987753
## 1972  0.019650290   5.317502 1.671004  0.05285850683  5.49487 1.7038149
## 1973  0.104865235   5.875873 1.770855  0.09985091007  6.18017 1.8213458
## 1974  0.336676827   7.797988 2.053866  0.28301116665  5.87099 1.7700233
## 1975  0.102537344   7.920796 2.069492  0.01562587798  5.02530 1.6144852
## 1976  0.120951320   8.475099 2.137132  0.06764072648  5.01450 1.6123337
## 1977  0.238145658  11.206111 2.416459  0.27932685484  5.27458 1.6628991
## 1978  0.186922253  13.603255 2.610309  0.19384988774  5.80973 1.7595341
## 1979  0.286342682  17.335700 2.852768  0.24245882312  7.42646 2.0050493
## 1980  0.216042766  21.158644 3.052049  0.19928058842  8.25330 2.1106131
## 1981  0.199444409  24.165247 3.184916  0.13286698656  8.20444 2.1046755
## 1982  0.137295290  28.314493 3.343374  0.15845827826  8.60095 2.1518727
## 1983  0.235379894  35.225486 3.561770  0.21839604543 10.38957 2.3408024
## 1984  0.270746290  44.914227 3.804755  0.24298476473 11.87940 2.4748058
## 1985  0.096366877  52.376211 3.958453  0.15369789068 12.86764 2.5547156
## 2019 -0.001381291 103.939759 4.643811  0.00516939802 89.57350 4.4950595
## 2020 -0.015126069 104.052222 4.644893  0.00108141488 76.97389 4.3434663
## 2021  0.012142876 105.289363 4.656712  0.01181949114 87.09891 4.4670444
## 2022           NA         NA       NA             NA       NA        NA
##              X_dl        M       M_l         M_dl      rulc      rulc_l
## 1960           NA  1.80919 0.5928792           NA 0.6718760 -0.39768155
## 1961  0.014033540  2.43354 0.8893470  0.296467756 0.7045395 -0.35021084
## 1962  0.202242089  2.19247 0.7850288 -0.104318225 0.6625679 -0.41163231
## 1963  0.031353121  2.36971 0.8627676  0.077738823 0.7025455 -0.35304514
## 1964  0.165681942  2.70168 0.9938738  0.131106217 0.7118688 -0.33986171
## 1965  0.085850047  3.14846 1.1469134  0.153039643 0.6832876 -0.38083943
## 1966  0.044252129  3.41003 1.2267211  0.079807645 0.7123426 -0.33919626
## 1967  0.101626904  3.76862 1.3267089  0.099987798 0.7384590 -0.30318965
## 1968  0.077094945  4.47376 1.4982292  0.171520332 0.7401649 -0.30088235
## 1969  0.116786181  4.66472 1.5400278  0.041798593 0.7711833 -0.25982918
## 1970  0.065259215  5.24580 1.6574278  0.117399945 0.7874069 -0.23901020
## 1971  0.073121219  5.87931 1.7714394  0.114011652 0.7688655 -0.26283924
## 1972  0.105039662  6.52723 1.8759827  0.104543249 0.7614253 -0.27256322
## 1973  0.117530849  7.34906 1.9945724  0.118589757 0.7593271 -0.27532259
## 1974 -0.051322505  7.87766 2.0640309  0.069458492 0.8311985 -0.18488667
## 1975 -0.155538120  6.11357 1.8105109 -0.253520015 0.9355862 -0.06658200
## 1976 -0.002151438  6.51929 1.8747655  0.064254584 0.9238520 -0.07920336
## 1977  0.050565340  7.36853 1.9972182  0.122452755 0.8625526 -0.14785920
## 1978  0.096635043  7.41642 2.0036965  0.006478232 0.7906098 -0.23495079
## 1979  0.245515200  8.04333 2.0848432  0.081146716 0.7326953 -0.31102534
## 1980  0.105563822  9.64492 2.2664314  0.181588175 0.6992116 -0.35780181
## 1981 -0.005937649 10.28005 2.3302051  0.063773772 0.7017921 -0.35411811
## 1982  0.047197191 10.88371 2.3872672  0.057062052 0.7252675 -0.32121478
## 1983  0.188929756 10.17793 2.3202217 -0.067045525 0.6652949 -0.40752484
## 1984  0.134003389  9.96696 2.2992756 -0.020946028 0.5905826 -0.52664585
## 1985  0.079909825 10.42887 2.3445779  0.045302299 0.5992517 -0.51207364
## 2019  0.036611686 90.49024 4.5052420  0.050738553 0.5013655 -0.69041984
## 2020 -0.151593244 81.14376 4.3962224 -0.109019603 0.5040699 -0.68504041
## 2021  0.123578096 89.51869 4.4944474  0.098225034 0.4978295 -0.69749753
## 2022           NA       NA        NA           NA        NA          NA
##           rulc_dl       ulc      ulc_l       ulc_dl       Tau    Tau_l
## 1960           NA  1.042461 0.04158416           NA  34.94191 3.553687
## 1961  0.047470701  1.098692 0.09412017  0.052536006  35.79733 3.577873
## 1962 -0.061421464  1.049229 0.04805555 -0.046064625  39.17472 3.668032
## 1963  0.058587169  1.106954 0.10161177  0.053556221  40.48988 3.701052
## 1964  0.013183426  1.148073 0.13808485  0.036473083  42.77944 3.756058
## 1965 -0.040977715  1.171756 0.15850345  0.020418597  46.46949 3.838796
## 1966  0.041643173  1.247003 0.22074319  0.062239748  48.12456 3.873793
## 1967  0.036006608  1.390348 0.32955402  0.108810830  49.83344 3.908686
## 1968  0.002307302  1.434320 0.36069109  0.031137065  52.13218 3.953782
## 1969  0.041053162  1.565327 0.44809444  0.087403346  53.07453 3.971697
## 1970  0.020818985  1.662267 0.50818250  0.060088067  56.19065 4.028750
## 1971 -0.023829041  1.700162 0.53072379  0.022541289  60.11802 4.096310
## 1972 -0.009723979  1.799649 0.58759140  0.056867604  65.03633 4.174946
## 1973 -0.002759371  2.022365 0.70426747  0.116676076  66.86245 4.202638
## 1974  0.090435921  2.545943 0.93450127  0.230233800  67.30982 4.209306
## 1975  0.118304665  3.496051 1.25163392  0.317132654  63.30702 4.147996
## 1976 -0.012621361  4.037080 1.39552157  0.143887642  63.97082 4.158427
## 1977 -0.068655834  4.569541 1.51941273  0.123891169  66.39795 4.195666
## 1978 -0.087091594  4.879816 1.58510758  0.065694840  70.15304 4.250679
## 1979 -0.076074546  5.368887 1.68062070  0.095513121  72.71607 4.286562
## 1980 -0.046776474  6.356148 1.84942256  0.168801860  75.12962 4.319215
## 1981  0.003683698  7.501654 2.01512353  0.165700971  74.68688 4.313304
## 1982  0.032903329  9.176064 2.21659839  0.201474867  75.76264 4.327605
## 1983 -0.086310059 10.650895 2.36564397  0.149045578  75.73017 4.327177
## 1984 -0.119121007 11.732609 2.46237210  0.096728124  74.70186 4.313505
## 1985  0.014572214 14.379136 2.66577824  0.203406143  75.08911 4.318676
## 2019 -0.007008882 53.494486 3.97957858  0.010055608 105.55208 4.659205
## 2020  0.005379433 54.440738 3.99711273  0.017534152 100.67390 4.611887
## 2021 -0.012457125 54.505409 3.99829994  0.001187205 104.66626 4.650777
## 2022           NA        NA         NA           NA        NA       NA
##             Tau_dl        dPxdPm          dPdPm     Trade
## 1960            NA            NA             NA 0.1143926
## 1961  0.0241861775  0.0309223479  0.03276391179 0.1300143
## 1962  0.0901583825 -0.0247340490  0.01730073065 0.1225868
## 1963  0.0330204046  0.0110409793 -0.01963088945 0.1246295
## 1964  0.0550056789 -0.0003808723 -0.01504613657 0.1363427
## 1965  0.0827383601  0.0275034098  0.05674366432 0.1404080
## 1966  0.0349965792 -0.0018694578  0.00816074280 0.1429424
## 1967  0.0348935356  0.0345882071  0.09104447559 0.1517950
## 1968  0.0450962005  0.0491335387  0.07792666703 0.1640034
## 1969  0.0179148460  0.0109406268  0.03806596919 0.1729372
## 1970  0.0570531004 -0.0319157074 -0.02336943355 0.1749128
## 1971  0.0675593598  0.0170167348  0.00861042043 0.1741058
## 1972  0.0786363194  0.0332082171  0.04694129292 0.1751581
## 1973  0.0276915530 -0.0050143253  0.01457021100 0.1878715
## 1974  0.0066686276 -0.0536656601 -0.19687894812 0.1855115
## 1975 -0.0613099084 -0.0869114659  0.09629064551 0.1583663
## 1976  0.0104308446 -0.0533105940  0.03555768155 0.1603100
## 1977  0.0372390541  0.0411811972 -0.04559865469 0.1657558
## 1978  0.0550129902  0.0069276349 -0.03413581834 0.1633298
## 1979  0.0358832118 -0.0438838586 -0.11475501516 0.1783703
## 1980  0.0326525218 -0.0167621777 -0.00046443284 0.1969859
## 1981 -0.0059104196 -0.0665774229 -0.03742713594 0.1991080
## 1982  0.0143008554  0.0211629886  0.03127624827 0.2054373
## 1983 -0.0004286395 -0.0169838489 -0.00002425718 0.2147674
## 1984 -0.0136717015 -0.0277615257 -0.05489715901 0.2305232
## 1985  0.0051705449  0.0573310137  0.09246705178 0.2418673
## 2019  0.0153249760  0.0065506895  0.01844578158 0.9049511
## 2020 -0.0473178956  0.0162074843  0.02728078781 0.8523169
## 2021  0.0388902053 -0.0003233851  0.00150145382 0.8996955
## 2022            NA            NA             NA        NA
PRT <- PRT_df[27:59,]
PRT[!complete.cases(PRT),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
PRT %>% head()
##             WS       WS_l        WS_dl        PS       PS_l       PS_dl
## 1986 0.6271932 -0.4665006  0.017991116 0.3728068 -0.9866950 -0.02955569
## 1987 0.6296429 -0.4626024  0.003898184 0.3703571 -0.9932876 -0.00659261
## 1988 0.6164334 -0.4838050 -0.021202621 0.3835666 -0.9582419  0.03504572
## 1989 0.6281430 -0.4649874  0.018817598 0.3718570 -0.9892459 -0.03100396
## 1990 0.6211951 -0.4761100 -0.011122582 0.3788049 -0.9707341  0.01851182
## 1991 0.6499058 -0.4309279  0.045182168 0.3500942 -1.0495530 -0.07881894
##             Y      Y_l       Y_dl            Yrw    Yrw_l     Yrw_dl
## 1986  99.5171 4.600329 0.03265974 23624083194071 30.79329 0.03208521
## 1987 107.1125 4.673880 0.07355020 24454179122639 30.82782 0.03453446
## 1988 112.8323 4.725903 0.05202296 25642559603207 30.87527 0.04745233
## 1989 120.3341 4.790272 0.06436940 26650369509487 30.91382 0.03854956
## 1990 129.7917 4.865931 0.07565882 27509928411453 30.94557 0.03174396
## 1991 134.1655 4.899074 0.03314325 27928836767214 30.96068 0.01511276
##          Tax        Yf     Yf_l      Yf_dl       C      C_l       C_dl
## 1986 3.81748  95.69962 4.561214 0.02112649 59.4709 4.085487 0.06151853
## 1987 4.35842 102.75408 4.632339 0.07112423 64.3688 4.164629 0.07914193
## 1988 5.43071 107.40159 4.676575 0.04423643 69.9737 4.248119 0.08349041
## 1989 6.08138 114.25272 4.738413 0.06183785 73.0129 4.290636 0.04251668
## 1990 7.13680 122.65490 4.809375 0.07096188 78.7328 4.366060 0.07542370
## 1991 8.18908 125.97642 4.836095 0.02672003 85.2952 4.446118 0.08005834
##             W      W_l       W_dl        R      R_l         R_dl       It
## 1986 60.02215 4.094714 0.03911761 35.67747 3.574519 -0.008429197 17.57460
## 1987 64.69838 4.169736 0.07502242 38.05570 3.639051  0.064531623 21.43875
## 1988 66.20592 4.192770 0.02303380 41.19567 3.718333  0.079282144 24.72119
## 1989 71.76705 4.273425 0.08065545 42.48567 3.749167  0.030833894 25.56387
## 1990 76.19263 4.333265 0.05983930 46.46227 3.838641  0.089473706 27.35361
## 1991 81.87281 4.405167 0.07190219 44.10361 3.786542 -0.052098914 28.64788
##          It_l      It_dl   Itcurr Itcurr_l Itcurr_dl      Ipr    Ipr_l
## 1986 2.866455 0.05792586  6.98533 1.943812 0.1664103  5.93503 1.780872
## 1987 3.065200 0.19874535  9.25839 2.225530 0.2817179  7.95046 2.073230
## 1988 3.207661 0.14246074 11.81936 2.469739 0.2442087 10.14721 2.317199
## 1989 3.241180 0.03351926 13.58043 2.608630 0.1388909 11.71996 2.461293
## 1990 3.308849 0.06766849 15.65607 2.750859 0.1422289 13.48111 2.601289
## 1991 3.355079 0.04623093 17.52999 2.863913 0.1130544 14.94035 2.704066
##         Ipr_dl       Ips      Ips_l        Ips_dl        I      I_l
## 1986 0.1617255 0.8496420 -0.1629402 -0.0046848921 14.93212 2.703515
## 1987 0.2923577 0.8587303 -0.1523004  0.0106397741 18.41010 2.912900
## 1988 0.2439690 0.8585245 -0.1525401 -0.0002396953 21.22375 3.055121
## 1989 0.1440946 0.8630036 -0.1473364  0.0052036595 22.06171 3.093844
## 1990 0.1399961 0.8610788 -0.1495693 -0.0022328402 23.55361 3.159279
## 1991 0.1027762 0.8522737 -0.1598475 -0.0102782671 24.41584 3.195232
##            I_dl          r      r_l        r_dl        P      P_l
## 1986 0.05324097 -2.1329139 0.000000 -2.18514351 28.38216 3.345761
## 1987 0.20938513  5.1605898 2.115473  2.11547252 31.07014 3.436247
## 1988 0.14222104  0.7375816 1.353383 -0.76208999 35.20688 3.561242
## 1989 0.03872292  3.7590534 1.930357  0.57697404 39.00073 3.663580
## 1990 0.06543565  3.6635757 1.916406 -0.01395033 43.41626 3.770834
## 1991 0.03595266  3.2549391 1.854398 -0.06200803 48.16136 3.874557
##            P_dl       Pm     Pm_l       Pm_dl       Px     Px_l      Px_dl
## 1986 0.16790879 68.36295 4.224831 -0.09511978 54.49796 3.998163 0.03971083
## 1987 0.09048645 72.41301 4.282386  0.05755501 59.51848 4.086287 0.08812357
## 1988 0.12499444 77.47278 4.349927  0.06754072 65.28951 4.178831 0.09254448
## 1989 0.10233884 83.75031 4.427840  0.07791320 69.72157 4.244510 0.06567843
## 1990 0.10725355 85.81515 4.452196  0.02435563 72.50025 4.283590 0.03908016
## 1991 0.10372304 85.55934 4.449210 -0.00298535 73.32883 4.294954 0.01136388
##             X      X_l        X_dl        M      M_l       M_dl      rulc
## 1986 13.89431 2.631479 0.076763771 12.39448 2.517251 0.17267329 0.6031341
## 1987 15.30250 2.728016 0.096536810 15.79084 2.759430 0.24217881 0.6040227
## 1988 16.62347 2.810816 0.082799338 19.20824 2.955339 0.19590933 0.5867639
## 1989 19.73157 2.982220 0.171404339 20.84014 3.036881 0.08154158 0.5963982
## 1990 22.29202 3.104229 0.122008876 24.19977 3.186343 0.14946219 0.5870377
## 1991 22.39257 3.108729 0.004500441 26.22355 3.266658 0.08031473 0.6102374
##          rulc_l      rulc_dl      ulc    ulc_l     ulc_dl      Tau
## 1986 -0.5056158  0.006457870 17.11825 2.840145 0.17436666 78.10826
## 1987 -0.5041435  0.001472221 18.76707 2.932104 0.09195868 81.68908
## 1988 -0.5331327 -0.028989157 20.65813 3.028109 0.09600528 83.42547
## 1989 -0.5168466  0.016286053 23.25997 3.146734 0.11862489 86.43287
## 1990 -0.5326662 -0.015819514 25.48698 3.238168 0.09143403 90.63955
## 1991 -0.4939072  0.038758939 29.38986 3.380650 0.14248198 90.49236
##         Tau_l       Tau_dl      dPxdPm      dPdPm     Trade
## 1986 4.358096  0.039420266  0.13483061 0.26302857 0.2641635
## 1987 4.402920  0.044824493  0.03056856 0.03293145 0.2902868
## 1988 4.423954  0.021033415  0.02500376 0.05745372 0.3175661
## 1989 4.459368  0.035414296 -0.01223477 0.02442564 0.3371589
## 1990 4.506891  0.047522688  0.01472452 0.08289791 0.3582031
## 1991 4.505265 -0.001625204  0.01434923 0.10670839 0.3623593

DATA

PRT %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1986 0.6271932 -0.4665006  0.0179911158 0.3728068 -0.9866950 -0.0295556872
## 1987 0.6296429 -0.4626024  0.0038981837 0.3703571 -0.9932876 -0.0065926104
## 1988 0.6164334 -0.4838050 -0.0212026214 0.3835666 -0.9582419  0.0350457180
## 1989 0.6281430 -0.4649874  0.0188175976 0.3718570 -0.9892459 -0.0310039568
## 1990 0.6211951 -0.4761100 -0.0111225816 0.3788049 -0.9707341  0.0185118216
## 1991 0.6499058 -0.4309279  0.0451821685 0.3500942 -1.0495530 -0.0788189394
## 1992 0.6822369 -0.3823783  0.0485495162 0.3177631 -1.1464491 -0.0968960945
## 1993 0.6793541 -0.3866128 -0.0042344807 0.3206459 -1.1374178  0.0090312963
## 1994 0.6568704 -0.4202685 -0.0336557016 0.3431296 -1.0696471  0.0677707092
## 1995 0.6652631 -0.4075727  0.0126958626 0.3347369 -1.0944105 -0.0247633690
## 1996 0.6767678 -0.3904271  0.0171455576 0.3232322 -1.1293842 -0.0349737523
## 1997 0.6766205 -0.3906447 -0.0002176227 0.3233795 -1.1289287  0.0004554944
## 1998 0.6800022 -0.3856592  0.0049854776 0.3199978 -1.1394411 -0.0105124322
## 1999 0.6765340 -0.3907726 -0.0051133329 0.3234660 -1.1286613  0.0107798964
## 2000 0.6824396 -0.3820813  0.0086913317 0.3175604 -1.1470872 -0.0184259963
## 2001 0.6830525 -0.3811835  0.0008977262 0.3169475 -1.1490192 -0.0019319514
## 2002 0.6798595 -0.3858692 -0.0046856405 0.3201405 -1.1389952  0.0100239800
## 2003 0.6770505 -0.3900094 -0.0041402024 0.3229495 -1.1302594  0.0087358064
## 2004 0.6673790 -0.4043971 -0.0143877688 0.3326210 -1.1007517  0.0295077543
## 2005 0.6732692 -0.3956100  0.0087871340 0.3267308 -1.1186187 -0.0178670843
## 2006 0.6603351 -0.4150078 -0.0193977733 0.3396649 -1.0797959  0.0388228728
## 2007 0.6449137 -0.4386388 -0.0236310387 0.3550863 -1.0353943  0.0444015323
## 2008 0.6484139 -0.4332261  0.0054127487 0.3515861 -1.0453006 -0.0099062831
## 2009 0.6473374 -0.4348876 -0.0016615538 0.3526626 -1.0422435  0.0030571042
## 2010 0.6398506 -0.4465206 -0.0116329821 0.3601494 -1.0212363  0.0210072451
## 2011 0.6314910 -0.4596716 -0.0131509984 0.3685090 -0.9982901  0.0229461472
## 2012 0.6146048 -0.4867758 -0.0271042176 0.3853952 -0.9534860  0.0448041451
## 2013 0.6098064 -0.4946138 -0.0078379545 0.3901936 -0.9411122  0.0123737634
## 2014 0.6022511 -0.5070808 -0.0124669840 0.3977489 -0.9219345  0.0191777566
## 2015 0.5940705 -0.5207572 -0.0136764579 0.4059295 -0.9015759  0.0203585844
## 2016 0.5895286 -0.5284320 -0.0076747812 0.4104714 -0.8904491  0.0111267816
## 2017 0.5958927 -0.5176946  0.0107374041 0.4041073 -0.9060749 -0.0156258519
## 2018 0.6016055 -0.5081534  0.0095411639 0.3983945 -0.9203125 -0.0142375170
##             Y      Y_l         Y_dl            Yrw    Yrw_l       Yrw_dl
## 1986  99.5171 4.600329  0.032659736 23624083194071 30.79329  0.032085205
## 1987 107.1125 4.673880  0.073550195 24454179122639 30.82782  0.034534461
## 1988 112.8323 4.725903  0.052022962 25642559603207 30.87527  0.047452329
## 1989 120.3341 4.790272  0.064369395 26650369509487 30.91382  0.038549560
## 1990 129.7917 4.865931  0.075658817 27509928411453 30.94557  0.031743957
## 1991 134.1655 4.899074  0.033143255 27928836767214 30.96068  0.015112758
## 1992 138.3650 4.929895  0.030821009 28529667872867 30.98197  0.021284793
## 1993 137.4140 4.922998 -0.006896854 28909028907293 30.99518  0.013209441
## 1994 139.4603 4.937780  0.014781706 29848212047259 31.02715  0.031970975
## 1995 142.6780 4.960590  0.022810370 30719734758139 31.05593  0.028780334
## 1996 147.6778 4.995033  0.034442531 31661091646051 31.08611  0.030183260
## 1997 154.1769 5.038101  0.043067771 32749184501605 31.11990  0.033789527
## 1998 161.5897 5.085060  0.046959762 33659011027078 31.14730  0.027402746
## 1999 167.9023 5.123382  0.038321856 34788388491677 31.18030  0.033002860
## 2000 174.3098 5.160834  0.037451913 36195342081813 31.21995  0.039646772
## 2001 177.6978 5.180084  0.019250179 36729616847822 31.23460  0.014652989
## 2002 179.0677 5.187764  0.007679592 37313726854050 31.25038  0.015777843
## 2003 177.4015 5.178416 -0.009348421 38173568100956 31.27316  0.022782070
## 2004 180.5747 5.196145  0.017729017 39478890447414 31.30679  0.033622768
## 2005 181.9865 5.203933  0.007787966 40652016743473 31.33607  0.029282337
## 2006 184.9439 5.220053  0.016120027 41954129731257 31.36760  0.031528425
## 2007 189.5796 5.244809  0.024756453 43153140482357 31.39578  0.028178323
## 2008 190.1849 5.247997  0.003187768 43348647495202 31.40030  0.004520308
## 2009 184.2471 5.216278 -0.031718965 41953351144208 31.36758 -0.032717189
## 2010 187.4487 5.233505  0.017227417 43222634517500 31.39739  0.029805991
## 2011 184.2692 5.216398 -0.017107476 44050574023489 31.41636  0.018974078
## 2012 176.7929 5.174979 -0.041418741 44706810112916 31.43115  0.014787458
## 2013 175.1617 5.165710 -0.009269444 45418921323386 31.44695  0.015802946
## 2014 176.5493 5.173600  0.007890610 46380715499582 31.46790  0.020954971
## 2015 179.7132 5.191362  0.017762089 47493314960046 31.49161  0.023705205
## 2016 183.3424 5.211355  0.019993196 48316048857195 31.50878  0.017174816
## 2017 189.7711 5.245819  0.034463166 49440913416599 31.53180  0.023014508
## 2018 194.7758 5.271849  0.026030544 50578433663437 31.55455  0.022746985
##           Tax        Yf     Yf_l         Yf_dl        C      C_l
## 1986  3.81748  95.69962 4.561214  0.0211264907  59.4709 4.085487
## 1987  4.35842 102.75408 4.632339  0.0711242329  64.3688 4.164629
## 1988  5.43071 107.40159 4.676575  0.0442364258  69.9737 4.248119
## 1989  6.08138 114.25272 4.738413  0.0618378505  73.0129 4.290636
## 1990  7.13680 122.65490 4.809375  0.0709618841  78.7328 4.366060
## 1991  8.18908 125.97642 4.836095  0.0267200256  85.2952 4.446118
## 1992  9.78728 128.57772 4.856534  0.0204387998  88.4031 4.481907
## 1993  9.75894 127.65506 4.849332 -0.0072017639  88.9505 4.488080
## 1994 11.12618 128.33412 4.854637  0.0053053929  89.6962 4.496428
## 1995 11.92270 130.75530 4.873328  0.0186904620  91.1823 4.512861
## 1996 12.79976 134.87804 4.904371  0.0310433252  94.3893 4.547428
## 1997 13.59422 140.58268 4.945796  0.0414248227  97.5999 4.580876
## 1998 15.38856 146.20114 4.984983  0.0391875594 102.2698 4.627614
## 1999 16.84636 151.05594 5.017650  0.0326668870 107.6547 4.678929
## 2000 17.43525 156.87455 5.055446  0.0377962096 111.6243 4.715139
## 2001 18.37486 159.32294 5.070933  0.0154867702 112.6177 4.723999
## 2002 19.96457 159.10313 5.069553 -0.0013806033 114.0624 4.736746
## 2003 20.39563 157.00587 5.056283 -0.0132694151 113.6986 4.733551
## 2004 21.21472 159.35998 5.071166  0.0148824751 116.6051 4.758793
## 2005 23.24563 158.74087 5.067273 -0.0038925440 118.4436 4.774437
## 2006 24.84860 160.09530 5.075769  0.0084961386 120.2401 4.789491
## 2007 25.50782 164.07178 5.100304  0.0245347521 123.2573 4.814274
## 2008 25.20729 164.97761 5.105810  0.0055057527 124.9479 4.827897
## 2009 22.11213 162.13497 5.088429 -0.0173806312 122.0591 4.804505
## 2010 23.89531 163.55339 5.097139  0.0087103449 124.9343 4.827788
## 2011 24.48768 159.78152 5.073807 -0.0233320993 120.3622 4.790506
## 2012 23.41349 153.37941 5.032915 -0.0408927264 113.9607 4.735854
## 2013 23.50911 151.65259 5.021592 -0.0113223429 112.7724 4.725372
## 2014 24.78170 151.76760 5.022350  0.0007580907 115.4572 4.748900
## 2015 26.33146 153.38174 5.032930  0.0105794432 117.8104 4.769077
## 2016 27.79053 155.55187 5.046979  0.0140493985 120.8259 4.794351
## 2017 29.47174 160.29936 5.077043  0.0300638220 123.3643 4.815142
## 2018 31.31199 163.46381 5.096592  0.0195485532 126.9302 4.843637
##              C_dl         W      W_l          W_dl        R      R_l
## 1986  0.061518525  60.02215 4.094714  0.0391176065 35.67747 3.574519
## 1987  0.079141926  64.69838 4.169736  0.0750224166 38.05570 3.639051
## 1988  0.083490413  66.20592 4.192770  0.0230338044 41.19567 3.718333
## 1989  0.042516681  71.76705 4.273425  0.0806554481 42.48567 3.749167
## 1990  0.075423703  76.19263 4.333265  0.0598393024 46.46227 3.838641
## 1991  0.080058340  81.87281 4.405167  0.0719021941 44.10361 3.786542
## 1992  0.035788856  87.72046 4.474155  0.0689883160 40.85726 3.710084
## 1993  0.006172998  86.72299 4.462719 -0.0114362445 40.93207 3.711914
## 1994  0.008348370  84.29889 4.434369 -0.0283503087 44.03523 3.784990
## 1995  0.016432395  86.98668 4.465755  0.0313863246 43.76862 3.778917
## 1996  0.034566920  91.28111 4.513944  0.0481888829 43.59693 3.774987
## 1997  0.033448750  95.12112 4.555151  0.0412072000 45.46156 3.816867
## 1998  0.046737950  99.41710 4.599324  0.0441730369 46.78404 3.845542
## 1999  0.051314464 102.19448 4.626878  0.0275535541 48.86146 3.888989
## 2000  0.036209885 107.05741 4.673365  0.0464875413 49.81714 3.908359
## 2001  0.008860129 108.82594 4.689750  0.0163844964 50.49700 3.921914
## 2002  0.012746770 108.16777 4.683683 -0.0060662438 50.93536 3.930557
## 2003 -0.003194579 106.30091 4.666274 -0.0174096175 50.70496 3.926024
## 2004  0.025241925 106.35351 4.666769  0.0004947063 53.00647 3.970414
## 2005  0.015643886 106.87534 4.671663  0.0048945900 51.86553 3.948654
## 2006  0.015053679 105.71655 4.660761 -0.0109016347 54.37875 3.995973
## 2007  0.024783463 105.81213 4.661665  0.0009037134 58.25965 4.064910
## 2008  0.013622810 106.97377 4.672584  0.0109185014 58.00384 4.060509
## 2009 -0.023391497 104.95603 4.653542 -0.0190421850 57.17894 4.046186
## 2010  0.023282645 104.64973 4.650619 -0.0029226372 58.90366 4.075903
## 2011 -0.037282469 100.90059 4.614136 -0.0364830977 58.88093 4.075517
## 2012 -0.054651878  94.26772 4.546139 -0.0679969440 59.11169 4.079429
## 2013 -0.010482024  92.47872 4.526979 -0.0191602974 59.17387 4.080480
## 2014  0.023528270  91.40221 4.515270 -0.0117088934 60.36539 4.100416
## 2015  0.020176654  91.11957 4.512173 -0.0030970147 62.26217 4.131354
## 2016  0.025274114  91.70228 4.518547  0.0063746173 63.84959 4.156530
## 2017  0.020791100  95.52123 4.559348  0.0408012261 64.77813 4.170968
## 2018  0.028495563  98.34072 4.588438  0.0290897171 65.12309 4.176279
##               R_dl       It     It_l        It_dl   Itcurr Itcurr_l
## 1986 -0.0084291965 17.57460 2.866455  0.057925858  6.98533 1.943812
## 1987  0.0645316225 21.43875 3.065200  0.198745354  9.25839 2.225530
## 1988  0.0792821438 24.72119 3.207661  0.142460738 11.81936 2.469739
## 1989  0.0308338937 25.56387 3.241180  0.033519256 13.58043 2.608630
## 1990  0.0894737057 27.35361 3.308849  0.067668486 15.65607 2.750859
## 1991 -0.0520989138 28.64788 3.355079  0.046230931 17.52999 2.863913
## 1992 -0.0764572946 30.88957 3.430419  0.075339143 19.59172 2.975107
## 1993  0.0018295324 28.09673 3.335653 -0.094765387 18.49150 2.917311
## 1994  0.0730761021 28.25059 3.341114  0.005461143 19.25347 2.957691
## 1995 -0.0060729069 29.44446 3.382506  0.041391435 20.72721 3.031447
## 1996 -0.0039304271 30.97178 3.433076  0.050570690 22.47812 3.112542
## 1997  0.0418803171 35.35809 3.565527  0.132450753 26.60335 3.281037
## 1998  0.0286751272 39.50716 3.676482  0.110954701 30.45317 3.416190
## 1999  0.0434467833 41.90504 3.735406  0.058924185 32.99991 3.496505
## 2000  0.0193702132 43.60529 3.775178  0.039772367 35.95996 3.582406
## 2001  0.0135548188 44.02935 3.784856  0.009677984 37.17736 3.615700
## 2002  0.0086433767 42.53593 3.750349 -0.034507326 36.86041 3.607138
## 2003 -0.0045336087 39.42490 3.674398 -0.075951534 34.70637 3.546923
## 2004  0.0443902295 39.49935 3.676284  0.001886620 35.66277 3.574107
## 2005 -0.0217596284 39.54286 3.677385  0.001100931 36.66781 3.601899
## 2006  0.0473190114 39.24361 3.669789 -0.007596519 37.46323 3.623360
## 2007  0.0689362843 40.45475 3.700184  0.030395437 39.50065 3.676317
## 2008 -0.0044005304 40.62606 3.704410  0.004225667 40.92899 3.711839
## 2009 -0.0143235270 37.56356 3.626034 -0.078375301 37.19108 3.616069
## 2010  0.0297175900 37.14077 3.614715 -0.011319143 36.95280 3.609641
## 2011 -0.0003859521 32.46392 3.480129 -0.134585969 32.43736 3.479311
## 2012  0.0039114186 27.03838 3.297257 -0.182871981 26.63146 3.282093
## 2013  0.0010514205 25.73905 3.248009 -0.049248044 25.15031 3.224870
## 2014  0.0199358473 26.32809 3.270636  0.022627136 26.01273 3.258586
## 2015  0.0309380276 27.88649 3.328142  0.057505912 27.88649 3.328142
## 2016  0.0251761800 28.59682 3.353296  0.025153181 28.89336 3.363612
## 2017  0.0144379701 31.88231 3.462051  0.108755788 32.88773 3.493100
## 2018  0.0053110361 33.73837 3.518636  0.056584455 35.84101 3.579093
##         Itcurr_dl      Ipr    Ipr_l       Ipr_dl       Ips      Ips_l
## 1986  0.166410345  5.93503 1.780872  0.161725453 0.8496420 -0.1629402
## 1987  0.281717932  7.95046 2.073230  0.292357706 0.8587303 -0.1523004
## 1988  0.244208698 10.14721 2.317199  0.243969002 0.8585245 -0.1525401
## 1989  0.138890921 11.71996 2.461293  0.144094580 0.8630036 -0.1473364
## 1990  0.142228915 13.48111 2.601289  0.139996075 0.8610788 -0.1495693
## 1991  0.113054427 14.94035 2.704066  0.102776160 0.8522737 -0.1598475
## 1992  0.111193900 16.40855 2.797803  0.093736934 0.8375247 -0.1773045
## 1993 -0.057795861 15.07874 2.713286 -0.084516736 0.8154417 -0.2040254
## 1994  0.040380137 15.85153 2.763266  0.049980221 0.8233077 -0.1944253
## 1995  0.073756026 16.80234 2.821518  0.058252137 0.8106417 -0.2099292
## 1996  0.081095062 17.88417 2.883916  0.062397802 0.7956257 -0.2286264
## 1997  0.168494756 20.90383 3.039932  0.156016432 0.7857593 -0.2411048
## 1998  0.135152946 24.77206 3.209716  0.169784009 0.8134477 -0.2064737
## 1999  0.080314740 27.09619 3.299393  0.089676722 0.8210989 -0.1971117
## 2000  0.085901263 30.04326 3.402638  0.103245215 0.8354642 -0.1797678
## 2001  0.033293877 30.34364 3.412587  0.009948597 0.8161860 -0.2031130
## 2002 -0.008561899 30.29181 3.410877 -0.001709561 0.8217980 -0.1962607
## 2003 -0.060214832 28.31384 3.343351 -0.067526648 0.8158110 -0.2035725
## 2004  0.027184044 28.90766 3.364107  0.020755881 0.8105837 -0.2100007
## 2005  0.027791971 30.19976 3.407834  0.043727365 0.8236041 -0.1940653
## 2006  0.021460660 31.88356 3.462091  0.054256539 0.8510628 -0.1612694
## 2007  0.052957209 33.85598 3.522116  0.060025129 0.8570993 -0.1542015
## 2008  0.035521486 34.27825 3.534511  0.012395397 0.8375054 -0.1773276
## 2009 -0.095769666 29.98560 3.400717 -0.133793776 0.8062578 -0.2153517
## 2010 -0.006427525 27.47407 3.313243 -0.087474616 0.7434909 -0.2963988
## 2011 -0.130330578 26.29793 3.269490 -0.043752422 0.8107297 -0.2098206
## 2012 -0.197217621 22.47316 3.112322 -0.157168521 0.8438576 -0.1697715
## 2013 -0.057223001 21.44917 3.065686 -0.046635758 0.8528392 -0.1591843
## 2014  0.033715811 22.56640 3.116462  0.050776124 0.8675137 -0.1421240
## 2015  0.069556309 23.84104 3.171408  0.054946391 0.8549315 -0.1567339
## 2016  0.035469469 26.01819 3.258796  0.087387443 0.9004903 -0.1048159
## 2017  0.129487829 29.39127 3.380698  0.121901783 0.8936850 -0.1124019
## 2018  0.085993129 32.04628 3.467181  0.086483417 0.8941232 -0.1119117
##             Ips_dl        I      I_l         I_dl          r      r_l
## 1986 -0.0046848921 14.93212 2.703515  0.053240966 -2.1329139 0.000000
## 1987  0.0106397741 18.41010 2.912900  0.209385128  5.1605898 2.115473
## 1988 -0.0002396953 21.22375 3.055121  0.142221043  0.7375816 1.353383
## 1989  0.0052036595 22.06171 3.093844  0.038722915  3.7590534 1.930357
## 1990 -0.0022328402 23.55361 3.159279  0.065435646  3.6635757 1.916406
## 1991 -0.0102782671 24.41584 3.195232  0.035952664  3.2549391 1.854398
## 1992 -0.0174569655 25.87078 3.253114  0.057882177  4.4189533 2.021795
## 1993 -0.0267208748 22.91124 3.131628 -0.121486262  4.1825243 1.989987
## 1994  0.0096000837 23.25893 3.146689  0.015061227  3.4154941 1.879222
## 1995 -0.0155038888 23.86891 3.172577  0.025887546  5.5142940 2.157236
## 1996 -0.0186972602 24.64194 3.204450  0.031873430  6.0249626 2.214614
## 1997 -0.0124783243 27.78295 3.324422  0.119972429  2.3822391 1.707499
## 1998  0.0346310633 32.13701 3.470008  0.145585764  1.0161012 1.422871
## 1999  0.0093619821 34.40818 3.538294  0.068286167  1.3635053 1.503281
## 2000  0.0173439523 36.43066 3.595411  0.057116319  2.0979741 1.654581
## 2001 -0.0233452792 35.93614 3.581743 -0.013667295  1.3922887 1.509662
## 2002  0.0068523371 34.95594 3.554088 -0.027654989  0.7872349 1.366130
## 2003 -0.0073118162 32.16327 3.470825 -0.083263350  0.7278982 1.350878
## 2004 -0.0064281630 32.01753 3.466284 -0.004541543  1.6995998 1.575367
## 2005  0.0159353945 32.56766 3.483320  0.017036325  0.1036463 1.174511
## 2006  0.0327958790 33.39878 3.508519  0.025199360  0.7030631 1.344424
## 2007  0.0070679202 34.67374 3.545983  0.037463357  1.4117803 1.513960
## 2008 -0.0231260897 34.02454 3.527082 -0.018900423  2.7347538 1.769457
## 2009 -0.0380241095 30.28591 3.410683 -0.116399411  3.0780616 1.826318
## 2010 -0.0810470907 27.61382 3.318317 -0.092366234  4.7273442 2.061819
## 2011  0.0865781558 26.31946 3.270309 -0.048007813 10.5330490 2.614908
## 2012  0.0400491006 22.81654 3.127486 -0.142822880 10.9808240 2.647149
## 2013  0.0105872429 21.95127 3.088825 -0.038660801  3.9524678 1.958034
## 2014  0.0170603133 22.83998 3.128512  0.039687449  3.0240948 1.817591
## 2015 -0.0146099175 23.84104 3.171408  0.042895995  0.3921167 1.259889
## 2016  0.0519179746 25.75116 3.248480  0.077071155  1.4288102 1.517701
## 2017 -0.0075860463 28.49274 3.349649  0.101169741  1.5151814 1.536458
## 2018  0.0004902879 30.16626 3.406724  0.057074743  0.2499024 1.218709
##             r_dl         P      P_l         P_dl        Pm     Pm_l
## 1986 -2.18514351  28.38216 3.345761  0.167908786  68.36295 4.224831
## 1987  2.11547252  31.07014 3.436247  0.090486454  72.41301 4.282386
## 1988 -0.76208999  35.20688 3.561242  0.124994438  77.47278 4.349927
## 1989  0.57697404  39.00073 3.663580  0.102338837  83.75031 4.427840
## 1990 -0.01395033  43.41626 3.770834  0.107253548  85.81515 4.452196
## 1991 -0.06200803  48.16136 3.874557  0.103723039  85.55934 4.449210
## 1992  0.16739663  52.50203 3.960852  0.086294904  81.04045 4.394948
## 1993 -0.03180791  55.28756 4.012548  0.051696119  81.34504 4.398700
## 1994 -0.11076497  59.06436 4.078628  0.066079713  83.77931 4.428186
## 1995  0.27801452  62.39822 4.133537  0.054909064  85.09283 4.443743
## 1996  0.05737785  63.89015 4.157165  0.023628454  86.47017 4.459800
## 1997 -0.50711493  66.37242 4.195282  0.038116315  88.80889 4.486487
## 1998 -0.28462841  68.91118 4.232818  0.037536917  87.53459 4.472034
## 1999  0.08041037  71.23386 4.265968  0.033149796  87.02972 4.466250
## 2000  0.15129971  73.67025 4.299599  0.033630787  94.34585 4.546967
## 2001 -0.14491870  76.40782 4.336085  0.036485960  94.74599 4.551200
## 2002 -0.14353274  79.60914 4.377129  0.041043874  93.34972 4.536353
## 2003 -0.01525206  82.33747 4.410826  0.033697368  91.87750 4.520456
## 2004  0.22448922  84.31325 4.434539  0.023712780  93.81187 4.541291
## 2005 -0.40085567  87.12333 4.467325  0.032785622  96.47577 4.569292
## 2006  0.16991306  89.89781 4.498674  0.031348922 100.16514 4.606820
## 2007  0.16953628  92.56449 4.527906  0.029231968 101.59064 4.620951
## 2008  0.25549679  94.17300 4.545134  0.017227979 106.82168 4.671161
## 2009  0.05686074  95.20715 4.556055  0.010921513  96.86197 4.573287
## 2010  0.23550147  95.81866 4.562457  0.006402385 101.45695 4.619635
## 2011  0.55308884  95.56462 4.559803 -0.002654755 108.64128 4.688051
## 2012  0.03224036  95.19364 4.555913 -0.003889522 109.71593 4.697895
## 2013 -0.68911490  97.33422 4.578151  0.022237454 106.83047 4.671243
## 2014 -0.14044269  98.02003 4.585172  0.007021267 104.54321 4.649601
## 2015 -0.55770194 100.00000 4.605170  0.019998321 100.00000 4.605170
## 2016  0.25781153 101.71666 4.622191  0.017020938  96.80468 4.572695
## 2017  0.01875688 103.25453 4.637197  0.015005950 100.47698 4.609929
## 2018 -0.31774894 104.89228 4.652934  0.015736862 102.82743 4.633052
##             Pm_dl        Px     Px_l        Px_dl        X      X_l
## 1986 -0.095119781  54.49796 3.998163  0.039710829 13.89431 2.631479
## 1987  0.057555009  59.51848 4.086287  0.088123569 15.30250 2.728016
## 1988  0.067540721  65.28951 4.178831  0.092544478 16.62347 2.810816
## 1989  0.077913199  69.72157 4.244510  0.065678425 19.73157 2.982220
## 1990  0.024355634  72.50025 4.283590  0.039080157 22.29202 3.104229
## 1991 -0.002985350  73.32883 4.294954  0.011363882 22.39257 3.108729
## 1992 -0.054261732  71.93455 4.275757 -0.019197148 23.61190 3.161751
## 1993  0.003751357  73.15634 4.292599  0.016842114 23.91971 3.174703
## 1994  0.029486322  76.57540 4.338276  0.045677107 26.42283 3.274228
## 1995  0.015556681  79.40724 4.374590  0.036313661 30.01327 3.401640
## 1996  0.016056707  78.95851 4.368923 -0.005667065 31.72413 3.457078
## 1997  0.026687285  81.62636 4.402152  0.033229791 34.04182 3.527590
## 1998 -0.014452730  82.69090 4.415110  0.012957202 36.80537 3.605644
## 1999 -0.005784464  83.12483 4.420343  0.005233951 38.10332 3.640301
## 2000  0.080717653  87.58670 4.472629  0.052285749 41.35195 3.722120
## 2001  0.004232243  88.06338 4.478057  0.005427606 42.30252 3.744847
## 2002 -0.014846679  88.31048 4.480859  0.002801926 43.70289 3.777414
## 2003 -0.015896707  87.15449 4.467682 -0.013176461 45.86645 3.825734
## 2004  0.020835280  88.68714 4.485115  0.017432618 47.49577 3.860641
## 2005  0.028000449  90.18127 4.501822  0.016706873 47.61818 3.863215
## 2006  0.037528344  94.26179 4.546076  0.044254097 53.54488 3.980520
## 2007  0.014131207  96.04438 4.564810  0.018734525 56.99513 4.042966
## 2008  0.050209478  98.64689 4.591547  0.026736330 56.75745 4.038787
## 2009 -0.097873903  93.77532 4.540902 -0.050645046 51.05577 3.932919
## 2010  0.046347558  96.86180 4.573285  0.032383581 55.75750 4.021012
## 2011  0.068416886 101.80962 4.623105  0.049819387 59.59524 4.087576
## 2012  0.009843166 103.49598 4.639533  0.016428140 61.43111 4.117916
## 2013 -0.026651395 102.53655 4.630219 -0.009313454 65.85557 4.187464
## 2014 -0.021642672 101.31831 4.618267 -0.011952225 68.68968 4.229599
## 2015 -0.044430339 100.00000 4.605170 -0.013096917 72.99071 4.290332
## 2016 -0.032474819  98.37903 4.588828 -0.016342528 76.22467 4.333685
## 2017  0.037233298 101.31327 4.618217  0.029389753 82.63183 4.414395
## 2018  0.023123487 103.40384 4.638642  0.020424681 86.35337 4.458448
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1986  0.076763771 12.39448 2.517251  0.172673290 0.6031341 -0.5056158
## 1987  0.096536810 15.79084 2.759430  0.242178813 0.6040227 -0.5041435
## 1988  0.082799338 19.20824 2.955339  0.195909329 0.5867639 -0.5331327
## 1989  0.171404339 20.84014 3.036881  0.081541581 0.5963982 -0.5168466
## 1990  0.122008876 24.19977 3.186343  0.149462194 0.5870377 -0.5326662
## 1991  0.004500441 26.22355 3.266658  0.080314733 0.6102374 -0.4939072
## 1992  0.053021615 29.10638 3.370957  0.104299532 0.6339787 -0.4557399
## 1993  0.012951983 28.65985 3.355497 -0.015460206 0.6311073 -0.4602793
## 1994  0.099525604 31.68765 3.455927  0.100429826 0.6044651 -0.5034113
## 1995  0.127411208 34.67775 3.546098  0.090171256 0.6096713 -0.4948354
## 1996  0.055437973 36.72944 3.603579  0.057480342 0.6181099 -0.4810890
## 1997  0.070512179 40.50288 3.701373  0.097794469 0.6169609 -0.4829496
## 1998  0.078053990 46.43098 3.837967  0.136593826 0.6152440 -0.4857363
## 1999  0.034657659 50.61801 3.924307  0.086340533 0.6086544 -0.4965046
## 2000  0.081818161 53.42110 3.978206  0.053898357 0.6141789 -0.4874690
## 2001  0.022727080 53.96068 3.988256  0.010049834 0.6124214 -0.4903347
## 2002  0.032567574 53.80718 3.985407 -0.002848718 0.6040608 -0.5040805
## 2003  0.048319680 53.69071 3.983240 -0.002166927 0.5992109 -0.5121417
## 2004  0.034906741 57.67430 4.054812  0.071571679 0.5889724 -0.5293760
## 2005  0.002573967 58.93452 4.076427  0.021615330 0.5872707 -0.5322694
## 2006  0.117305560 63.38961 4.149300  0.072872971 0.5716142 -0.5592910
## 2007  0.062445645 66.93846 4.203774  0.054473722 0.5581409 -0.5831438
## 2008 -0.004178900 68.43199 4.225840  0.022066716 0.5624725 -0.5754131
## 2009 -0.105868361 61.93409 4.126071 -0.099769650 0.5696482 -0.5627363
## 2010  0.088093366 66.76565 4.201189  0.075117972 0.5582846 -0.5828863
## 2011  0.066563775 62.63900 4.137388 -0.063800639 0.5475717 -0.6022619
## 2012  0.030340679 58.70749 4.072567 -0.064820771 0.5332099 -0.6288402
## 2013  0.069547626 61.45535 4.118311  0.045743578 0.5279620 -0.6387310
## 2014  0.042134959 66.32308 4.194538  0.076227056 0.5177149 -0.6583305
## 2015  0.060733203 71.66202 4.271961  0.077422949 0.5070277 -0.6791896
## 2016  0.043352991 75.25387 4.320867  0.048906431 0.5001695 -0.6928082
## 2017  0.080709794 81.35110 4.398774  0.077907025 0.5033497 -0.6864701
## 2018  0.044052874 86.01343 4.454503  0.055729091 0.5048919 -0.6834110
##           rulc_dl      ulc    ulc_l       ulc_dl       Tau    Tau_l
## 1986  0.006457870 17.11825 2.840145  0.174366656  78.10826 4.358096
## 1987  0.001472221 18.76707 2.932104  0.091958676  81.68908 4.402920
## 1988 -0.028989157 20.65813 3.028109  0.096005281  83.42547 4.423954
## 1989  0.016286053 23.25997 3.146734  0.118624890  86.43287 4.459368
## 1990 -0.015819514 25.48698 3.238168  0.091434034  90.63955 4.506891
## 1991  0.038758939 29.38986 3.380650  0.142481979  90.49236 4.505265
## 1992  0.038167307 33.28517 3.505112  0.124462211  92.54678 4.527714
## 1993 -0.004539390 34.89239 3.552269  0.047156729  91.80990 4.519720
## 1994 -0.043132015 35.70235 3.575216  0.022947698  92.60535 4.528347
## 1995  0.008575955 38.04240 3.638701  0.063485019  94.15523 4.544945
## 1996  0.013746352 39.49114 3.676076  0.037374806  95.32857 4.557330
## 1997 -0.001860571 40.94919 3.712332  0.036255744  96.45821 4.569110
## 1998 -0.002786725 42.39719 3.747082  0.034750192  97.62255 4.581108
## 1999 -0.010768302 43.35680 3.769464  0.022381494  98.66917 4.591773
## 2000  0.009035628 45.24671 3.812130  0.042666415  99.28133 4.597958
## 2001 -0.002865682 46.79378 3.845750  0.033620278  98.50386 4.590096
## 2002 -0.013745836 48.08876 3.873048  0.027298038  97.67767 4.581673
## 2003 -0.008061196 49.33751 3.898685  0.025636172  96.35626 4.568052
## 2004 -0.017234311 49.65817 3.905163  0.006478469  97.56618 4.580531
## 2005 -0.002893376 51.16498 3.935055  0.029892246  97.72529 4.582160
## 2006 -0.027021662 51.38686 3.939383  0.004327260  98.25422 4.587558
## 2007 -0.023852740 51.66403 3.944762  0.005379228  99.85144 4.603683
## 2008  0.007730734 52.96972 3.969720  0.024958713  99.15634 4.596698
## 2009  0.012676780 54.23458 3.993319  0.023598293  97.22282 4.577005
## 2010 -0.020150054 53.49409 3.979571 -0.013747669  99.36168 4.598767
## 2011 -0.019375622 52.32848 3.957541 -0.022030377  98.77955 4.592891
## 2012 -0.026578203 50.75819 3.927073 -0.030467726  97.50188 4.579872
## 2013 -0.009890854 51.38877 3.939420  0.012346600  98.67276 4.591809
## 2014 -0.019599504 50.74643 3.926841 -0.012578236  98.87750 4.593882
## 2015 -0.020859104 50.70277 3.925981 -0.000860783 100.00000 4.605170
## 2016 -0.013618579 50.87557 3.929383  0.003402360 101.22996 4.617395
## 2017  0.006338060 51.97313 3.950727  0.021344009 102.75933 4.632390
## 2018  0.003059173 52.95926 3.969523  0.018796035 103.94683 4.643880
##            Tau_dl       dPxdPm        dPdPm     Trade
## 1986  0.039420266  0.134830610  0.263028567 0.2641635
## 1987  0.044824493  0.030568560  0.032931445 0.2902868
## 1988  0.021033415  0.025003757  0.057453718 0.3175661
## 1989  0.035414296 -0.012234774  0.024425638 0.3371589
## 1990  0.047522688  0.014724523  0.082897914 0.3582031
## 1991 -0.001625204  0.014349232  0.106708389 0.3623593
## 1992  0.022448764  0.035064584  0.140556635 0.3810088
## 1993 -0.007994089  0.013090757  0.047944763 0.3826361
## 1994  0.008626744  0.016190785  0.036593391 0.4166812
## 1995  0.016597879  0.020756980  0.039352383 0.4534057
## 1996  0.012384804 -0.021723772  0.007571747 0.4635332
## 1997  0.011780293  0.006542506  0.011429030 0.4835011
## 1998  0.011998619  0.027409932  0.051989646 0.5151093
## 1999  0.010664058  0.011018415  0.038934261 0.5284105
## 2000  0.006184980 -0.028431904 -0.047086866 0.5437047
## 2001 -0.007861785  0.001195364  0.032253717 0.5417242
## 2002 -0.008422800  0.017648605  0.055890552 0.5445430
## 2003 -0.013620604  0.002720246  0.049594075 0.5611968
## 2004  0.012478588 -0.003402661  0.002877500 0.5824186
## 2005  0.001629405 -0.011293576  0.004785173 0.5854978
## 2006  0.005397840  0.006725752 -0.006179422 0.6322701
## 2007  0.016125264  0.004603318  0.015100761 0.6537285
## 2008 -0.006985610 -0.023473148 -0.032981498 0.6582512
## 2009 -0.019692365  0.047228857  0.108795416 0.6132518
## 2010  0.021761081 -0.013963977 -0.039945173 0.6536356
## 2011 -0.005875973 -0.018597499 -0.071071641 0.6633460
## 2012 -0.013018896  0.006584974 -0.013732689 0.6795443
## 2013  0.011937280  0.017337941  0.048888849 0.7268194
## 2014  0.002072712  0.009690447  0.028663939 0.7647312
## 2015  0.011288523  0.031333422  0.064428660 0.8049088
## 2016  0.012224591  0.016132291  0.049495757 0.8262057
## 2017  0.014994878 -0.007843545 -0.022227349 0.8641091
## 2018  0.011489879 -0.002698805 -0.007386625 0.8849498

Adjusted Dickey-fuller testet I(0)

adf.PRT.WS <- adf.test((PRT$WS), alternative = c("stationary"), k = 2)
adf.PRT.PS <- adf.test((PRT$PS), alternative = c("stationary"), k = 2)
adf.PRT.Y <- adf.test((PRT$Y), alternative = c("stationary"), k = 2)
adf.PRT.Yrw <- adf.test((PRT$Yrw), alternative = c("stationary"), k = 2)
adf.PRT.r <- adf.test((PRT$r), alternative = c("stationary"), k = 2)
adf.PRT.R <- adf.test((PRT$R), alternative = c("stationary"), k = 2)
adf.PRT.Tau <- adf.test((PRT$Tau), alternative = c("stationary"), k = 2)
adf.PRT.rulc <- adf.test((PRT$rulc), alternative = c("stationary"), k = 2)
adf.PRT.ulc <- adf.test((PRT$ulc), alternative = c("stationary"), k = 2)
adf.PRT.P <- adf.test((PRT$P), alternative = c("stationary"), k = 2)
adf.PRT.Pm <- adf.test((PRT$Pm), alternative = c("stationary"), k = 2)
adf.PRT.Px <- adf.test((PRT$Px), alternative = c("stationary"), k = 2)
adf.PRT.X <- adf.test((PRT$X), alternative = c("stationary"), k = 2)
adf.PRT.M <- adf.test((PRT$M), alternative = c("stationary"), k = 2)
adf.PRT.I <- adf.test((PRT$I), alternative = c("stationary"), k = 2)
adf.PRT.C <- adf.test((PRT$C), alternative = c("stationary"), k = 2)
adf.PRT.Ipr <- adf.test((PRT$Ipr), alternative = c("stationary"), k = 2)
adf.PRT.Ips <- adf.test((PRT$Ips), alternative = c("stationary"), k = 2)
adf.PRT.It <- adf.test((PRT$It), alternative = c("stationary"), k = 2)
adf.PRT.Itcurr <- adf.test((PRT$Itcurr), alternative = c("stationary"), k = 2)
adf.PRT.Yf <- adf.test((PRT$Yf), alternative = c("stationary"), k = 2)
adf.PRT.W <- adf.test((PRT$W), alternative = c("stationary"), k = 2)

adf.PRT.WS.pval <- adf.PRT.WS$p.value
adf.PRT.PS.pval <- adf.PRT.PS$p.value
adf.PRT.Y.pval <- adf.PRT.Y$p.value
adf.PRT.Yrw.pval <- adf.PRT.Yrw$p.value
adf.PRT.r.pval <- adf.PRT.r$p.value
adf.PRT.R.pval <- adf.PRT.R$p.value
adf.PRT.Tau.pval <- adf.PRT.Tau$p.value
adf.PRT.rulc.pval <- adf.PRT.rulc$p.value
adf.PRT.ulc.pval <- adf.PRT.ulc$p.value
adf.PRT.P.pval <- adf.PRT.P$p.value
adf.PRT.Pm.pval <- adf.PRT.Pm$p.value
adf.PRT.Px.pval <- adf.PRT.Px$p.value
adf.PRT.X.pval <- adf.PRT.X$p.value
adf.PRT.M.pval <- adf.PRT.M$p.value
adf.PRT.I.pval <- adf.PRT.I$p.value
adf.PRT.C.pval <- adf.PRT.C$p.value
adf.PRT.Ipr.pval <- adf.PRT.Ipr$p.value
adf.PRT.Ips.pval <- adf.PRT.Ips$p.value
adf.PRT.It.pval <- adf.PRT.It$p.value
adf.PRT.Itcurr.pval <- adf.PRT.Itcurr$p.value
adf.PRT.Yf.pval <- adf.PRT.Yf$p.value
adf.PRT.W.pval <- adf.PRT.W$p.value

adf.PRT_non <- rbind(adf.PRT.WS.pval,adf.PRT.PS.pval,adf.PRT.Y.pval,adf.PRT.Yrw.pval,adf.PRT.r.pval,adf.PRT.R.pval,adf.PRT.Tau.pval,adf.PRT.rulc.pval,adf.PRT.ulc.pval,adf.PRT.P.pval,adf.PRT.Pm.pval,adf.PRT.Px.pval,adf.PRT.X.pval,adf.PRT.M.pval,adf.PRT.I.pval,adf.PRT.C.pval,adf.PRT.Ipr.pval,adf.PRT.Ips.pval,adf.PRT.It.pval,adf.PRT.Itcurr.pval,adf.PRT.Yf.pval,adf.PRT.W.pval)


colnames(adf.PRT_non) <- c("PRT")
rownames(adf.PRT_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.PRT_non
##               PRT
## WS     0.50971813
## PS     0.50971813
## Y      0.52845778
## Yrw    0.48090271
## r      0.32791071
## R      0.24365182
## Tau    0.07881049
## rulc   0.46599332
## ulc    0.59499074
## P      0.59757098
## Pm     0.29905806
## Px     0.30749404
## X      0.97445453
## M      0.47280397
## I      0.53869343
## C      0.62907486
## Ipr    0.49489428
## Ips    0.56250103
## It     0.61690375
## Itcurr 0.52601405
## Yf     0.49952653
## W      0.46407123

Adjusted Dickey-fuller testet I(1)

adf.PRT.WS_dl <- adf.test((PRT$WS_dl), alternative = c("stationary"), k = 2)
adf.PRT.PS_dl <- adf.test((PRT$PS_dl), alternative = c("stationary"), k = 2)
adf.PRT.Y_dl <- adf.test((PRT$Y_dl), alternative = c("stationary"), k = 2)
adf.PRT.Yrw_dl <- adf.test((PRT$Yrw_dl), alternative = c("stationary"), k = 2)
adf.PRT.r_dl <- adf.test((PRT$r_dl), alternative = c("stationary"), k = 2)
adf.PRT.R_dl <- adf.test((PRT$R_dl), alternative = c("stationary"), k = 2)
adf.PRT.Tau_dl <- adf.test((PRT$Tau_dl), alternative = c("stationary"), k = 2)
adf.PRT.rulc_dl <- adf.test((PRT$rulc_dl), alternative = c("stationary"), k = 2)
adf.PRT.ulc_dl <- adf.test((PRT$ulc_dl), alternative = c("stationary"), k = 2)
adf.PRT.P_dl <- adf.test((PRT$P_dl), alternative = c("stationary"), k = 2)
adf.PRT.Pm_dl <- adf.test((PRT$Pm_dl), alternative = c("stationary"), k = 2)
adf.PRT.Px_dl <- adf.test((PRT$Px_dl), alternative = c("stationary"), k = 2)
adf.PRT.X_dl <- adf.test((PRT$X_dl), alternative = c("stationary"), k = 2)
adf.PRT.M_dl <- adf.test((PRT$M_dl), alternative = c("stationary"), k = 2)
adf.PRT.I_dl <- adf.test((PRT$I_dl), alternative = c("stationary"), k = 2)
adf.PRT.C_dl <- adf.test((PRT$C_dl), alternative = c("stationary"), k = 2)
adf.PRT.Ipr_dl <- adf.test((PRT$Ipr_dl), alternative = c("stationary"), k = 2)
adf.PRT.Ips_dl <- adf.test((PRT$Ips_dl), alternative = c("stationary"), k = 2)
adf.PRT.It_dl <- adf.test((PRT$It_dl), alternative = c("stationary"), k = 2)
adf.PRT.Itcurr_dl <- adf.test((PRT$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.PRT.Yf_dl <- adf.test((PRT$Yf_dl), alternative = c("stationary"), k = 2)
adf.PRT.W_dl <- adf.test((PRT$W_dl), alternative = c("stationary"), k = 2)

adf.PRT.WS_dl.pval <- adf.PRT.WS_dl$p.value
adf.PRT.PS_dl.pval <- adf.PRT.PS_dl$p.value
adf.PRT.Y_dl.pval <- adf.PRT.Y_dl$p.value
adf.PRT.Yrw_dl.pval <- adf.PRT.Yrw_dl$p.value
adf.PRT.r_dl.pval <- adf.PRT.r_dl$p.value
adf.PRT.R_dl.pval <- adf.PRT.R_dl$p.value
adf.PRT.Tau_dl.pval <- adf.PRT.Tau_dl$p.value
adf.PRT.rulc_dl.pval <- adf.PRT.rulc_dl$p.value
adf.PRT.ulc_dl.pval <- adf.PRT.ulc_dl$p.value
adf.PRT.P_dl.pval <- adf.PRT.P_dl$p.value
adf.PRT.Pm_dl.pval <- adf.PRT.Pm_dl$p.value
adf.PRT.Px_dl.pval <- adf.PRT.Px_dl$p.value
adf.PRT.X_dl.pval <- adf.PRT.X_dl$p.value
adf.PRT.M_dl.pval <- adf.PRT.M_dl$p.value
adf.PRT.I_dl.pval <- adf.PRT.I_dl$p.value
adf.PRT.C_dl.pval <- adf.PRT.C_dl$p.value
adf.PRT.Ipr_dl.pval <- adf.PRT.Ipr_dl$p.value
adf.PRT.Ips_dl.pval <- adf.PRT.Ips_dl$p.value
adf.PRT.It_dl.pval <- adf.PRT.It_dl$p.value
adf.PRT.Itcurr_dl.pval <- adf.PRT.Itcurr_dl$p.value
adf.PRT.Yf_dl.pval <- adf.PRT.Yf_dl$p.value
adf.PRT.W_dl.pval <- adf.PRT.W_dl$p.value

adf.PRT_dl <- rbind(adf.PRT.WS_dl.pval,adf.PRT.PS_dl.pval,adf.PRT.Y_dl.pval,adf.PRT.Yrw_dl.pval,adf.PRT.r_dl.pval,adf.PRT.R_dl.pval,adf.PRT.Tau_dl.pval,adf.PRT.rulc_dl.pval,adf.PRT.ulc_dl.pval,adf.PRT.P_dl.pval,adf.PRT.Pm_dl.pval,adf.PRT.Px_dl.pval,adf.PRT.X_dl.pval,adf.PRT.M_dl.pval,adf.PRT.I_dl.pval,adf.PRT.C_dl.pval,adf.PRT.Ipr_dl.pval,adf.PRT.Ips_dl.pval,adf.PRT.It_dl.pval,adf.PRT.Itcurr_dl.pval,adf.PRT.Yf_dl.pval,adf.PRT.W_dl.pval)
colnames(adf.PRT_dl) <- c("PRT")
rownames(adf.PRT_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.PRT_dl
##                     PRT
## dlog(WS)     0.02068038
## dlog(PS)     0.02303049
## dlog(Y)      0.53302850
## dlog(Yrw)    0.07806157
## dlog(r)      0.07551683
## dlog(R)      0.03848169
## dlog(Tau)    0.70194486
## dlog(rulc)   0.01000000
## dlog(ulc)    0.75505073
## dlog(P)      0.73357655
## dlog(Pm)     0.01000000
## dlog(Px)     0.01000000
## dlog(X)      0.04321573
## dlog(M)      0.30445631
## dlog(I)      0.42290877
## dlog(C)      0.48184499
## dlog(Ipr)    0.47293246
## dlog(Ips)    0.01000000
## dlog(It)     0.46009203
## dlog(Itcurr) 0.51302956
## dlog(Yf)     0.40548087
## dlog(W)      0.38307142
adf.PRT <- NULL
adf.PRT <- rbind(adf.PRT_non,adf.PRT_dl)

Økonometriske test

#Consumption (C)
PRT_consumption <- dynlm(PRT$C_dl~PRT$R_dl+PRT$W_dl)
PRT_CR <- summary(PRT_consumption)$coefficients["PRT$R_dl","Estimate"]
PRT_CW <- summary(PRT_consumption)$coefficients["PRT$W_dl","Estimate"]
PRT_Ceffekt <- (PRT_CR*mean(PRT$C/PRT$R))-(PRT_CW*mean(PRT$C/PRT$W))
summary(PRT_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$C_dl ~ PRT$R_dl + PRT$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.033169 -0.011253 -0.001263  0.006030  0.036607 
## 
## Coefficients:
##             Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) 0.008018   0.003301   2.429       0.02134 *  
## PRT$R_dl    0.277266   0.076923   3.604       0.00112 ** 
## PRT$W_dl    0.732978   0.077393   9.471 0.00000000016 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0155 on 30 degrees of freedom
## Multiple R-squared:  0.7693, Adjusted R-squared:  0.754 
## F-statistic: 50.03 on 2 and 30 DF,  p-value: 0.0000000002783
#Investments (I)
PRT_investment <- dynlm(PRT$I_dl~PRT$PS_dl+PRT$Y_dl+PRT$r_dl)
PRT_iPS <- summary(PRT_investment)$coefficients["PRT$PS_dl","Estimate"]
PRT_iPS <- 0
PRT_Ieffekt <- PRT_iPS*mean(PRT$I/PRT$R)
summary(PRT_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$I_dl ~ PRT$PS_dl + PRT$Y_dl + PRT$r_dl)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10480 -0.01702  0.00474  0.02719  0.06366 
## 
## Coefficients:
##              Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) -0.030992   0.010405  -2.978        0.0058 ** 
## PRT$PS_dl    0.045434   0.249678   0.182        0.8569    
## PRT$Y_dl     2.518881   0.314782   8.002 0.00000000797 ***
## PRT$r_dl    -0.003897   0.012920  -0.302        0.7651    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04488 on 29 degrees of freedom
## Multiple R-squared:  0.7078, Adjusted R-squared:  0.6776 
## F-statistic: 23.41 on 3 and 29 DF,  p-value: 0.00000006722
#Price deflator (P)
PRT_deflator <- dynlm(PRT$P_dl~L(PRT$ulc_dl)+PRT$Pm_dl)
PRT_ePULC <- summary(PRT_deflator)$coefficients["L(PRT$ulc_dl)","Estimate"]
summary(PRT_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$P_dl ~ L(PRT$ulc_dl) + PRT$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.021558 -0.008767  0.001024  0.005927  0.033484 
## 
## Coefficients:
##               Estimate Std. Error t value           Pr(>|t|)    
## (Intercept)   0.013456   0.003447   3.904           0.000497 ***
## L(PRT$ulc_dl) 0.779323   0.054358  14.337 0.0000000000000058 ***
## PRT$Pm_dl     0.047901   0.060425   0.793           0.434158    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01479 on 30 degrees of freedom
## Multiple R-squared:  0.8732, Adjusted R-squared:  0.8647 
## F-statistic: 103.3 on 2 and 30 DF,  p-value: 0.00000000000003523
#Export price deflator (Px)
PRT_exportdeflator <- dynlm(PRT$Px_dl~PRT$ulc_dl+PRT$Pm_dl)
PRT_ePX <- summary(PRT_exportdeflator)$coefficients["PRT$ulc_dl","Estimate"]
summary(PRT_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$Px_dl ~ PRT$ulc_dl + PRT$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.029462 -0.009716 -0.002200  0.007224  0.043386 
## 
## Coefficients:
##             Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) 0.004872   0.003747   1.300      0.203370    
## PRT$ulc_dl  0.261634   0.059086   4.428      0.000116 ***
## PRT$Pm_dl   0.569470   0.065681   8.670 0.00000000114 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01608 on 30 degrees of freedom
## Multiple R-squared:  0.7424, Adjusted R-squared:  0.7253 
## F-statistic: 43.24 on 2 and 30 DF,  p-value: 0.000000001456
#Exports (X)
PRT_exports <- dynlm(PRT$X_dl~L(PRT$dPxdPm)+PRT$Yrw_l)
PRT_eXP <- summary(PRT_exports)$coefficients["L(PRT$dPxdPm)","Estimate"]
PRT_eXP <- 0
PRT_Xeffekt <- -(PRT_eXP*PRT_ePX*(1/(1-PRT_ePULC))*mean(PRT$Yf/PRT$Y)*(mean(PRT$X/PRT$Y)/mean(PRT$rulc)))
summary(PRT_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$X_dl ~ L(PRT$dPxdPm) + PRT$Yrw_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.135753 -0.020592  0.008386  0.028111  0.075938 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)    2.96084    1.24308   2.382   0.0238 *
## L(PRT$dPxdPm) -0.39441    0.31350  -1.258   0.2181  
## PRT$Yrw_l     -0.09285    0.03977  -2.335   0.0264 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04607 on 30 degrees of freedom
## Multiple R-squared:  0.1561, Adjusted R-squared:  0.09987 
## F-statistic: 2.775 on 2 and 30 DF,  p-value: 0.07837
#Imports (M)
PRT_imports <- dynlm(PRT$M_dl~PRT$dPdPm+L(PRT$Y_dl))
PRT_eMP <- summary(PRT_imports)$coefficients["PRT$dPdPm","Estimate"]
PRT_Meffekt <- -(PRT_eMP*PRT_ePULC*(1/(1-PRT_ePULC))*mean(PRT$Yf/PRT$Y)*(mean(PRT$M/PRT$Y)/mean(PRT$rulc)))
summary(PRT_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$M_dl ~ PRT$dPdPm + L(PRT$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074171 -0.020440 -0.003927  0.022759  0.064471 
## 
## Coefficients:
##             Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) 0.009364   0.008586   1.091        0.2841    
## PRT$dPdPm   0.223409   0.105420   2.119        0.0425 *  
## L(PRT$Y_dl) 2.188797   0.242017   9.044 0.00000000045 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03606 on 30 degrees of freedom
## Multiple R-squared:  0.7597, Adjusted R-squared:  0.7437 
## F-statistic: 47.43 on 2 and 30 DF,  p-value: 0.0000000005129
names(PRT_consumption$coefficients) <- sub("PRT$","",names(PRT_consumption$coefficients),fixed=TRUE)
names(PRT_investment$coefficients) <- sub("PRT$","",names(PRT_investment$coefficients),fixed=TRUE)
names(PRT_deflator$coefficients) <- sub("PRT$","",names(PRT_deflator$coefficients),fixed=TRUE)
names(PRT_exportdeflator$coefficients) <- sub("PRT$","",names(PRT_exportdeflator$coefficients),fixed=TRUE)
names(PRT_exports$coefficients) <- sub("PRT$","",names(PRT_exports$coefficients),fixed=TRUE)
names(PRT_imports$coefficients) <- sub("PRT$","",names(PRT_imports$coefficients),fixed=TRUE)

PRT_Xeffekt
## [1] 0
PRT_Meffekt
## [1] -0.3577985
#Nettoeksport (NX)
PRT_NXeffekt <- PRT_Xeffekt - PRT_Meffekt

PRT_NXeffekt
## [1] 0.3577985
#Nettoeffekten
PRT_Neteffekt = PRT_Ceffekt + PRT_Ieffekt + PRT_NXeffekt

PRT_Neteffekt
## [1] 0.1061998
PRT_Lukket <- PRT_Ceffekt + PRT_Ieffekt
PRT_Lukket_Konklusion <- ifelse(PRT_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
PRT_Lukket_Konklusion
## [1] "Wage-led domestic"
PRT_Def <- ifelse(PRT_Neteffekt > 0, "Profit-led", "Wage-led")
PRT_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=PRT_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0169377 -0.0048232 -0.0015165  0.0003436  0.0090948 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.60644    1.58582  -1.013    0.345
## z.diff.lag1   0.91555    1.53360   0.597    0.569
## z.diff.lag2   0.94252    1.41953   0.664    0.528
## z.diff.lag3   0.45961    1.23966   0.371    0.722
## z.diff.lag4   0.53117    1.12618   0.472    0.652
## z.diff.lag5   0.41236    1.02799   0.401    0.700
## z.diff.lag6   0.60060    0.91459   0.657    0.532
## z.diff.lag7   0.20981    0.83888   0.250    0.810
## z.diff.lag8   0.41110    0.75397   0.545    0.603
## z.diff.lag9   0.07654    0.63781   0.120    0.908
## z.diff.lag10  0.08317    0.48917   0.170    0.870
## z.diff.lag11  0.32676    0.37265   0.877    0.410
## z.diff.lag12  0.31015    0.23688   1.309    0.232
## 
## Residual standard error: 0.01067 on 7 degrees of freedom
## Multiple R-squared:  0.8263, Adjusted R-squared:  0.5038 
## F-statistic: 2.562 on 13 and 7 DF,  p-value: 0.1083
## 
## 
## Value of test-statistic is: -1.013 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=PRT_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.065976 -0.005997 -0.000649  0.012141  0.044429 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.29871    2.27079  -0.572    0.585
## z.diff.lag1   0.45094    2.16414   0.208    0.841
## z.diff.lag2   0.80071    1.98869   0.403    0.699
## z.diff.lag3   0.82871    1.71643   0.483    0.644
## z.diff.lag4   0.33308    1.46445   0.227    0.827
## z.diff.lag5   0.06986    1.27921   0.055    0.958
## z.diff.lag6   0.23715    1.12719   0.210    0.839
## z.diff.lag7   0.27402    0.86224   0.318    0.760
## z.diff.lag8   0.14878    0.60274   0.247    0.812
## z.diff.lag9   0.19023    0.49866   0.381    0.714
## z.diff.lag10  0.04858    0.44994   0.108    0.917
## z.diff.lag11  0.42398    0.34803   1.218    0.263
## z.diff.lag12  0.03368    0.33225   0.101    0.922
## 
## Residual standard error: 0.04348 on 7 degrees of freedom
## Multiple R-squared:  0.6659, Adjusted R-squared:  0.04544 
## F-statistic: 1.073 on 13 and 7 DF,  p-value: 0.4855
## 
## 
## Value of test-statistic is: -0.5719 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=PRT_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.119399 -0.028599 -0.004743  0.021497  0.062522 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -1.2737     1.6780  -0.759    0.473
## z.diff.lag1    0.3663     1.6262   0.225    0.828
## z.diff.lag2    0.1850     1.5847   0.117    0.910
## z.diff.lag3    0.1187     1.5390   0.077    0.941
## z.diff.lag4    0.2900     1.5242   0.190    0.855
## z.diff.lag5    0.2476     1.5089   0.164    0.874
## z.diff.lag6    0.2626     1.4575   0.180    0.862
## z.diff.lag7    0.2558     1.4047   0.182    0.861
## z.diff.lag8    0.2770     1.2535   0.221    0.831
## z.diff.lag9    0.2107     1.1099   0.190    0.855
## z.diff.lag10   0.1858     0.9300   0.200    0.847
## z.diff.lag11   0.2372     0.6710   0.354    0.734
## z.diff.lag12   0.1857     0.4681   0.397    0.703
## 
## Residual standard error: 0.07106 on 7 degrees of freedom
## Multiple R-squared:  0.5255, Adjusted R-squared:  -0.3556 
## F-statistic: 0.5964 on 13 and 7 DF,  p-value: 0.8003
## 
## 
## Value of test-statistic is: -0.759 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=PRT_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.043091 -0.012405 -0.002683  0.014392  0.046725 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.73912    1.13713  -0.650    0.536
## z.diff.lag1  -0.07105    1.12382  -0.063    0.951
## z.diff.lag2   0.22568    1.09320   0.206    0.842
## z.diff.lag3  -0.07884    1.06905  -0.074    0.943
## z.diff.lag4   0.01180    1.03415   0.011    0.991
## z.diff.lag5  -0.14130    0.95911  -0.147    0.887
## z.diff.lag6  -0.19074    0.90776  -0.210    0.840
## z.diff.lag7   0.13795    0.83543   0.165    0.874
## z.diff.lag8  -0.08574    0.66955  -0.128    0.902
## z.diff.lag9   0.11838    0.60666   0.195    0.851
## z.diff.lag10  0.28641    0.46789   0.612    0.560
## z.diff.lag11  0.02145    0.36347   0.059    0.955
## z.diff.lag12  0.35519    0.32412   1.096    0.309
## 
## Residual standard error: 0.03798 on 7 degrees of freedom
## Multiple R-squared:  0.6813, Adjusted R-squared:  0.08951 
## F-statistic: 1.151 on 13 and 7 DF,  p-value: 0.445
## 
## 
## Value of test-statistic is: -0.65 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(PRT_consumption)

plot(PRT_investment)

plot(PRT_deflator)

plot(PRT_exportdeflator)

plot(PRT_exports)

plot(PRT_imports)

bptest(PRT_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  PRT_consumption
## BP = 3.5747, df = 2, p-value = 0.1674
bptest(PRT_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  PRT_investment
## BP = 7.2728, df = 3, p-value = 0.06369
bptest(PRT_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  PRT_deflator
## BP = 6.6354, df = 2, p-value = 0.03624
bptest(PRT_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  PRT_exportdeflator
## BP = 17.632, df = 2, p-value = 0.0001483
bptest(PRT_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  PRT_exports
## BP = 0.72708, df = 2, p-value = 0.6952
bptest(PRT_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  PRT_imports
## BP = 2.5753, df = 2, p-value = 0.2759
resettest(PRT_consumption)
## 
##  RESET test
## 
## data:  PRT_consumption
## RESET = 2.0791, df1 = 2, df2 = 28, p-value = 0.1439
resettest(PRT_investment)
## 
##  RESET test
## 
## data:  PRT_investment
## RESET = 1.846, df1 = 2, df2 = 27, p-value = 0.1772
resettest(PRT_deflator)
## 
##  RESET test
## 
## data:  PRT_deflator
## RESET = 0.68259, df1 = 2, df2 = 28, p-value = 0.5135
resettest(PRT_exportdeflator)
## 
##  RESET test
## 
## data:  PRT_exportdeflator
## RESET = 0.094798, df1 = 2, df2 = 28, p-value = 0.9098
resettest(PRT_exports)
## 
##  RESET test
## 
## data:  PRT_exports
## RESET = 1.7097, df1 = 2, df2 = 28, p-value = 0.1993
resettest(PRT_imports)
## 
##  RESET test
## 
## data:  PRT_imports
## RESET = 0.059965, df1 = 2, df2 = 28, p-value = 0.9419

Resultater

PRT_regtab <- matrix(c(PRT_Ceffekt, PRT_Ieffekt, PRT_Lukket, PRT_Xeffekt, PRT_Meffekt, PRT_NXeffekt, PRT_Neteffekt,PRT_Lukket_Konklusion, PRT_Def),ncol=9,byrow=TRUE)
colnames(PRT_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(PRT_regtab) <- c("PRT")
PRT_regtab <- as.table(PRT_regtab)
PRT_regtab
##     consumption        investment Lukket neteffekt   exports
## PRT -0.251598745040635 0          -0.251598745040635 0      
##     imports            netexports        neteffect        
## PRT -0.357798545960897 0.357798545960897 0.106199800920262
##     Lukket konklusion Konklusion
## PRT Wage-led domestic Profit-led
PRT_smoke <- matrix(c(mean(PRT$C/PRT$R), mean(PRT$C/PRT$W), mean(PRT$I/PRT$R), PRT_CR, PRT_CW, PRT_iPS, PRT_ePULC, (1/(1-PRT_ePULC)), PRT_eXP, PRT_ePX, PRT_eMP, mean(PRT$Yf/PRT$Y), mean(PRT$X/PRT$Y), mean(PRT$rulc), (mean(PRT$X/PRT$Y)/mean(PRT$rulc))),ncol=15,byrow=TRUE)
colnames(PRT_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(PRT_smoke) <- c("PRT")
PRT_smoke <- as.table(PRT_smoke)
PRT_smoke
##           C/R       C/W       I/R        CR        CW       iPS     ePULC
## PRT 2.0352530 1.1131361 0.5422046 0.2772657 0.7329783 0.0000000 0.7793232
##     1/1-epulc       eXP       ePX       eMP      Yf/Y       X/Y      RULC
## PRT 4.5315145 0.0000000 0.2616339 0.2234085 0.8955345 0.2627164 0.5786048
##     (X/Y)/rulc
## PRT  0.4540515

Summary af regressioner

summary(PRT_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$C_dl ~ PRT$R_dl + PRT$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.033169 -0.011253 -0.001263  0.006030  0.036607 
## 
## Coefficients:
##             Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) 0.008018   0.003301   2.429       0.02134 *  
## R_dl        0.277266   0.076923   3.604       0.00112 ** 
## W_dl        0.732978   0.077393   9.471 0.00000000016 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0155 on 30 degrees of freedom
## Multiple R-squared:  0.7693, Adjusted R-squared:  0.754 
## F-statistic: 50.03 on 2 and 30 DF,  p-value: 0.0000000002783
summary(PRT_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$I_dl ~ PRT$PS_dl + PRT$Y_dl + PRT$r_dl)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10480 -0.01702  0.00474  0.02719  0.06366 
## 
## Coefficients:
##              Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) -0.030992   0.010405  -2.978        0.0058 ** 
## PS_dl        0.045434   0.249678   0.182        0.8569    
## Y_dl         2.518881   0.314782   8.002 0.00000000797 ***
## r_dl        -0.003897   0.012920  -0.302        0.7651    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04488 on 29 degrees of freedom
## Multiple R-squared:  0.7078, Adjusted R-squared:  0.6776 
## F-statistic: 23.41 on 3 and 29 DF,  p-value: 0.00000006722
summary(PRT_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$P_dl ~ L(PRT$ulc_dl) + PRT$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.021558 -0.008767  0.001024  0.005927  0.033484 
## 
## Coefficients:
##             Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) 0.013456   0.003447   3.904           0.000497 ***
## L(ulc_dl)   0.779323   0.054358  14.337 0.0000000000000058 ***
## Pm_dl       0.047901   0.060425   0.793           0.434158    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01479 on 30 degrees of freedom
## Multiple R-squared:  0.8732, Adjusted R-squared:  0.8647 
## F-statistic: 103.3 on 2 and 30 DF,  p-value: 0.00000000000003523
summary(PRT_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$Px_dl ~ PRT$ulc_dl + PRT$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.029462 -0.009716 -0.002200  0.007224  0.043386 
## 
## Coefficients:
##             Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) 0.004872   0.003747   1.300      0.203370    
## ulc_dl      0.261634   0.059086   4.428      0.000116 ***
## Pm_dl       0.569470   0.065681   8.670 0.00000000114 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01608 on 30 degrees of freedom
## Multiple R-squared:  0.7424, Adjusted R-squared:  0.7253 
## F-statistic: 43.24 on 2 and 30 DF,  p-value: 0.000000001456
summary(PRT_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$X_dl ~ L(PRT$dPxdPm) + PRT$Yrw_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.135753 -0.020592  0.008386  0.028111  0.075938 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept)  2.96084    1.24308   2.382   0.0238 *
## L(dPxdPm)   -0.39441    0.31350  -1.258   0.2181  
## Yrw_l       -0.09285    0.03977  -2.335   0.0264 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04607 on 30 degrees of freedom
## Multiple R-squared:  0.1561, Adjusted R-squared:  0.09987 
## F-statistic: 2.775 on 2 and 30 DF,  p-value: 0.07837
summary(PRT_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 33
## 
## Call:
## dynlm(formula = PRT$M_dl ~ PRT$dPdPm + L(PRT$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074171 -0.020440 -0.003927  0.022759  0.064471 
## 
## Coefficients:
##             Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) 0.009364   0.008586   1.091        0.2841    
## dPdPm       0.223409   0.105420   2.119        0.0425 *  
## L(Y_dl)     2.188797   0.242017   9.044 0.00000000045 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03606 on 30 degrees of freedom
## Multiple R-squared:  0.7597, Adjusted R-squared:  0.7437 
## F-statistic: 47.43 on 2 and 30 DF,  p-value: 0.0000000005129

Spanien analyse

Test for NA værdier

ESP_df[!complete.cases(ESP_df),]
##             WS       WS_l         WS_dl        PS       PS_l        PS_dl
## 1960 0.6717477 -0.3978724            NA 0.3282523 -1.1139728           NA
## 1961 0.6658382 -0.4067086 -0.0088361777 0.3341618 -1.0961300  0.017842893
## 1962 0.6673198 -0.4044859  0.0022226887 0.3326802 -1.1005736 -0.004443630
## 1963 0.6884415 -0.3733249  0.0311610406 0.3115585 -1.1661683 -0.065594731
## 1964 0.6979412 -0.3596205  0.0137044057 0.3020588 -1.1971335 -0.030965184
## 1965 0.7006723 -0.3557150  0.0039054557 0.2993277 -1.2062163 -0.009082767
## 1966 0.7190446 -0.3298319  0.0258830898 0.2809554 -1.2695593 -0.063343033
## 1967 0.7331358 -0.3104243  0.0194075729 0.2668642 -1.3210153 -0.051456043
## 1968 0.7087531 -0.3442480 -0.0338236727 0.2912469 -1.2335840  0.087431324
## 1969 0.7016937 -0.3542583 -0.0100102701 0.2983063 -1.2096345  0.023949513
## 1970 0.6991849 -0.3578401 -0.0035818089 0.3008151 -1.2012594  0.008375103
## 1971 0.7040055 -0.3509691  0.0068709721 0.2959945 -1.2174144 -0.016154990
## 1972 0.7095527 -0.3431205  0.0078485846 0.2904473 -1.2363331 -0.018918680
## 1973 0.7132502 -0.3379230  0.0051975608 0.2867498 -1.2491453 -0.012812243
## 1974 0.7035358 -0.3516365 -0.0137135660 0.2964642 -1.2158288  0.033316555
## 1975 0.7190342 -0.3298464  0.0217901803 0.2809658 -1.2695223 -0.053693566
## 1976 0.7274291 -0.3182387  0.0116076283 0.2725709 -1.2998566 -0.030334227
## 1977 0.7211266 -0.3269405 -0.0087017911 0.2788734 -1.2769975  0.022859063
## 1978 0.7149758 -0.3355066 -0.0085660639 0.2850242 -1.2551812  0.021816299
## 2019 0.5910583 -0.5258405  0.0037676684 0.4089417 -0.8941828 -0.005420586
## 2020 0.5889009 -0.5294973 -0.0036567659 0.4110991 -0.8889210  0.005261739
## 2021 0.5893824 -0.5286800  0.0008173009 0.4106176 -0.8900930 -0.001171952
## 2022        NA         NA            NA        NA         NA           NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1960  173.115 5.153956           NA  9016605110162 29.83009            NA
## 1961  193.608 5.265835  0.111879383  9442371649204 29.87623  0.0461392930
## 1962  211.622 5.354802  0.088966168  9997890937655 29.93340  0.0571669819
## 1963  230.157 5.438762  0.083960020 10544882392477 29.98666  0.0532664964
## 1964  244.398 5.498798  0.060036359 11234199429060 30.04998  0.0633219853
## 1965  259.681 5.559454  0.060655911 11853676920422 30.10366  0.0536754619
## 1966  278.497 5.629407  0.069953333 12571278829990 30.16244  0.0587766460
## 1967  290.585 5.671896  0.042488845 13155132138723 30.20783  0.0453972051
## 1968  309.754 5.735778  0.063882302 13978033221153 30.26851  0.0606750825
## 1969  337.346 5.821109  0.085330676 14788205965421 30.32485  0.0563429271
## 1970  351.668 5.862688  0.041578439 15176075660154 30.35074  0.0258902493
## 1971  368.018 5.908132  0.045444301 15777060332611 30.38958  0.0388367892
## 1972  398.008 5.986472  0.078340256 16660284959581 30.44405  0.0544707337
## 1973  429.008 6.061476  0.075003461 17714798870869 30.50542  0.0613726436
## 1974  453.112 6.116139  0.054663769 17928154433421 30.51739  0.0119719659
## 1975  455.568 6.121545  0.005405657 17911659793114 30.51647 -0.0009204647
## 1976  470.619 6.154049  0.032503857 18802198754711 30.56499  0.0485219322
## 1977  483.980 6.182044  0.027994734 19531286231937 30.60304  0.0380437840
## 1978  491.058 6.196562  0.014518664 20334772541434 30.64335  0.0403147517
## 2019 1192.358 7.083688  0.019597710             NA       NA            NA
## 2020 1080.463 6.985145 -0.098543206             NA       NA            NA
## 2021 1155.838 7.052581  0.067435969             NA       NA            NA
## 2022       NA       NA           NA             NA       NA            NA
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1960   0.3304  172.7846 5.152046           NA 112.6766 4.724522
## 1961   0.3639  193.2441 5.263954  0.111908425 125.0607 4.828799
## 1962   0.4231  211.1989 5.352800  0.088846187 136.0493 4.913017
## 1963   0.4727  229.6843 5.436706  0.083905414 151.4597 5.020320
## 1964   0.5584  243.8396 5.496511  0.059804875 157.9676 5.062390
## 1965   0.6729  259.0081 5.556859  0.060348703 168.7049 5.128151
## 1966   0.7989  277.6981 5.626535  0.069675217 180.8832 5.197852
## 1967   0.9019  289.6831 5.668788  0.042253014 191.7737 5.256316
## 1968   0.9558  308.7982 5.732688  0.063900422 203.2352 5.314364
## 1969   1.1475  336.1985 5.817702  0.085013770 217.7806 5.383488
## 1970   1.2862  350.3818 5.859023  0.041321658 227.9390 5.429078
## 1971   1.3955  366.6225 5.904333  0.045309291 239.5639 5.478820
## 1972   1.6662  396.3418 5.982277  0.077944262 259.4477 5.558555
## 1973   2.0830  426.9250 6.056608  0.074331383 279.6846 5.633663
## 1974   2.2245  450.8875 6.111218  0.054609509 293.9485 5.683405
## 1975   2.5395  453.0285 6.115955  0.004737175 299.2396 5.701245
## 1976   3.0204  467.5986 6.147610  0.031655198 315.9970 5.755733
## 1977   3.8554  480.1246 6.174046  0.026435418 320.7370 5.770621
## 1978   4.3592  486.6988 6.187645  0.013599798 323.6236 5.779581
## 2019 145.3390 1047.0190 6.953702  0.020635146 686.2780 6.531283
## 2020 128.4797  951.9833 6.858547 -0.095154865 612.6404 6.417778
## 2021 142.9979 1012.8401 6.920514  0.061966151 667.1654 6.503038
## 2022       NA        NA       NA           NA       NA       NA
##              C_dl        W      W_l         W_dl         R      R_l
## 1960           NA 116.0677 4.754173           NA  56.71694 4.038073
## 1961  0.104277451 128.6693 4.857246  0.103072247  64.57480 4.167824
## 1962  0.084218101 140.9372 4.948314  0.091068876  70.26169 4.252227
## 1963  0.107302263 158.1242 5.063381  0.115066454  71.56008 4.270537
## 1964  0.042070366 170.1857 5.136890  0.073509280  73.65390 4.299377
## 1965  0.065761086 181.4798 5.201144  0.064254159  77.52830 4.350643
## 1966  0.069700484 199.6773 5.296703  0.095558307  78.02078 4.356975
## 1967  0.058464512 212.3770 5.358363  0.061660587  77.30605 4.347772
## 1968  0.058047898 218.8617 5.388440  0.030076750  89.93651 4.499104
## 1969  0.069124205 235.9084 5.463443  0.075003500 100.29013 4.608067
## 1970  0.045589915 244.9817 5.501183  0.037739849 105.40015 4.657764
## 1971  0.049742138 258.1043 5.553364  0.052180263 108.51825 4.686918
## 1972  0.079734954 281.2254 5.639156  0.085792847 115.11641 4.745944
## 1973  0.075107399 304.5044 5.718685  0.079528944 122.42065 4.807463
## 1974  0.049742042 317.2155 5.759581  0.040895943 133.67201 4.895389
## 1975  0.017840008 325.7430 5.786109  0.026527355 127.28551 4.846433
## 1976  0.054488130 340.1448 5.829372  0.043262827 127.45377 4.847754
## 1977  0.014888753 346.2306 5.847105  0.017733627 133.89396 4.897048
## 1978  0.008959639 347.9779 5.852139  0.005033734 138.72094 4.932464
## 2019  0.010972465 618.8493 6.427862  0.024402814 428.16968 6.059520
## 2020 -0.113504653 560.6239 6.329050 -0.098811631 391.35945 5.969626
## 2021  0.085259851 596.9502 6.391834  0.062783452 415.88993 6.030421
## 2022           NA       NA       NA           NA        NA       NA
##              R_dl       It     It_l        It_dl   Itcurr    Itcurr_l
## 1960           NA  25.3830 3.234080           NA   0.9546 -0.04646287
## 1961  0.129751318  29.9286 3.398815  0.164734886   1.1399  0.13094054
## 1962  0.084402557  33.3343 3.506587  0.107772352   1.3457  0.29691432
## 1963  0.018310683  37.1431 3.614778  0.108191124   1.6069  0.47430686
## 1964  0.028839690  42.7174 3.754606  0.139828311   1.9385  0.66191448
## 1965  0.051265937  49.7383 3.906775  0.152168929   2.3670  0.86162333
## 1966  0.006332184  56.2439 4.029698  0.122922331   2.7670  1.01776370
## 1967 -0.009203029  59.6435 4.088385  0.058687583   3.1488  1.14702143
## 1968  0.151331746  65.2854 4.178768  0.090383254   3.6148  1.28503653
## 1969  0.108963283  71.8110 4.274038  0.095269240   4.1896  1.43260526
## 1970  0.049696760  74.2724 4.307739  0.033701748   4.6379  1.53426168
## 1971  0.029154301  72.0442 4.277280 -0.030459596   4.7863  1.56575767
## 1972  0.059025582  82.2745 4.410061  0.132781398   5.8824  1.77196484
## 1973  0.061519141  92.9702 4.532279  0.122217794   7.5118  2.01647512
## 1974  0.087926064  98.7343 4.592432  0.060153392   9.7353  2.27575845
## 1975 -0.048956391  94.2913 4.546389 -0.046043477  10.7964  2.37921275
## 1976  0.001320971  93.5369 4.538356 -0.008032916  12.2539  2.50584425
## 1977  0.049294481  92.6951 4.529316 -0.009040398  14.9253  2.70305776
## 1978  0.035416097  90.1924 4.501945 -0.027370446  17.2984  2.85061401
## 2019  0.015214560 225.5290 5.418449  0.017741780 249.2590  5.51849252
## 2020 -0.089893127 178.8909 5.186776 -0.231672631 193.6569  5.26608804
## 2021  0.060794200 197.3425 5.284941  0.098164675 215.5849  5.37335480
## 2022           NA       NA       NA           NA       NA          NA
##        Itcurr_dl      Ipr    Ipr_l       Ipr_dl       Ips      Ips_l
## 1960          NA       NA       NA           NA        NA         NA
## 1961  0.17740341       NA       NA           NA        NA         NA
## 1962  0.16597378       NA       NA           NA        NA         NA
## 1963  0.17739253       NA       NA           NA        NA         NA
## 1964  0.18760762       NA       NA           NA        NA         NA
## 1965  0.19970885       NA       NA           NA        NA         NA
## 1966  0.15614037       NA       NA           NA        NA         NA
## 1967  0.12925773       NA       NA           NA        NA         NA
## 1968  0.13801510       NA       NA           NA        NA         NA
## 1969  0.14756873       NA       NA           NA        NA         NA
## 1970  0.10165641   4.0249 1.392500           NA 0.8678281 -0.1417616
## 1971  0.03149599   4.0280 1.393270  0.000769909 0.8415686 -0.1724877
## 1972  0.20620717   5.0553 1.620437  0.227167223 0.8593941 -0.1515276
## 1973  0.24451028   6.5482 1.879190  0.258753005 0.8717218 -0.1372849
## 1974  0.25928334   8.5511 2.146060  0.266869727 0.8783602 -0.1296985
## 1975  0.10345429   9.3461 2.234959  0.088899214 0.8656682 -0.1442536
## 1976  0.12663151  10.7094 2.371122  0.136162716 0.8739585 -0.1347224
## 1977  0.19721351  12.7965 2.549172  0.178049836 0.8573697 -0.1538861
## 1978  0.14755625  15.0997 2.714675  0.165503180 0.8728958 -0.1359391
## 2019  0.06495076 223.8870 5.411141  0.074233387 0.8982103 -0.1073511
## 2020 -0.25240448 167.4223 5.120519 -0.290622097 0.8645305 -0.1455687
## 2021  0.10726676 188.5894 5.239572  0.119052802 0.8747802 -0.1337826
## 2022          NA       NA       NA           NA        NA         NA
##            Ips_dl         I      I_l         I_dl          r      r_l
## 1960           NA        NA       NA           NA         NA       NA
## 1961           NA        NA       NA           NA         NA       NA
## 1962           NA        NA       NA           NA         NA       NA
## 1963           NA        NA       NA           NA         NA       NA
## 1964           NA        NA       NA           NA         NA       NA
## 1965           NA        NA       NA           NA         NA       NA
## 1966           NA        NA       NA           NA         NA       NA
## 1967           NA        NA       NA           NA         NA       NA
## 1968           NA        NA       NA           NA         NA       NA
## 1969           NA        NA       NA           NA         NA       NA
## 1970           NA  64.45568 4.165978           NA         NA       NA
## 1971 -0.030726084  60.63014 4.104792 -0.061185680         NA       NA
## 1972  0.020960051  70.70622 4.258534  0.153741450         NA       NA
## 1973  0.014242729  81.04415 4.394994  0.136460523         NA       NA
## 1974  0.007586389  86.72428 4.462734  0.067739782         NA       NA
## 1975 -0.014555076  81.62498 4.402135 -0.060598553         NA       NA
## 1976  0.009531208  81.74737 4.403634  0.001498292         NA       NA
## 1977 -0.019163670  79.47397 4.375430 -0.028204069         NA       NA
## 1978  0.017946928  78.72856 4.366006 -0.009423518 -7.1321438 0.000000
## 2019  0.009282626 202.57247 5.311098  0.027024406 -0.9036864 1.978026
## 2020 -0.038217617 154.65664 5.041207 -0.269890248         NA       NA
## 2021  0.011786039 172.63131 5.151158  0.109950714         NA       NA
## 2022           NA        NA       NA           NA         NA       NA
##            r_dl          P       P_l        P_dl         Pm     Pm_l
## 1960         NA   2.632800 0.9680479          NA   7.336537 1.992867
## 1961         NA   2.681436 0.9863525 0.018304591   7.486655 2.013122
## 1962         NA   2.834865 1.0419944 0.055641843   7.636019 2.032876
## 1963         NA   3.076196 1.1236936 0.081699286   7.792479 2.053159
## 1964         NA   3.270711 1.1850073 0.061313662   7.976290 2.076473
## 1965         NA   3.570701 1.2727620 0.087754690   8.040066 2.084437
## 1966         NA   3.862427 1.3512956 0.078533648   8.055159 2.086313
## 1967         NA   4.191855 1.4331434 0.081847766   8.267778 2.112366
## 1968         NA   4.439621 1.4905691 0.057425698   9.153906 2.214181
## 1969         NA   4.667614 1.5406480 0.050078896   9.415334 2.242340
## 1970         NA   4.945115 1.5984002 0.057752201   9.838823 2.286336
## 1971         NA   5.332994 1.6739128 0.075512587  10.376214 2.339516
## 1972         NA   5.787499 1.7557003 0.081787528  10.526460 2.353892
## 1973         NA   6.472928 1.8676285 0.111928225  11.617909 2.452548
## 1974         NA   7.505420 2.0156255 0.147996939  16.490961 2.802812
## 1975         NA   8.764583 2.1707189 0.155093451  17.639178 2.870122
## 1976         NA  10.210007 2.3233683 0.152649378  20.257750 3.008537
## 1977         NA  12.597268 2.5334799 0.210111633  24.716597 3.207475
## 1978         NA  15.196559 2.7210691 0.187589112  26.589052 3.280500
## 2019 -0.1567918 104.442709 4.6486387 0.015656259 105.795169 4.661505
## 2020         NA 104.678675 4.6508954 0.002256735 102.833525 4.633111
## 2021         NA 105.767392 4.6612423 0.010346847 104.124807 4.645590
## 2022         NA         NA        NA          NA         NA       NA
##             Pm_dl         Px     Px_l        Px_dl        X      X_l
## 1960           NA   4.161636 1.425908           NA   8.8244 2.177521
## 1961  0.020255142   4.245383 1.445832  0.019923655   9.5241 2.253825
## 1962  0.019754305   4.449607 1.492816  0.046983900  10.7424 2.374199
## 1963  0.020282695   4.732011 1.554350  0.061534320  11.1540 2.411798
## 1964  0.023314239   4.863226 1.581702  0.027351880  14.0021 2.639207
## 1965  0.007964001   4.915147 1.592322  0.010619596  14.9487 2.704624
## 1966  0.001875451   5.357191 1.678440  0.086118092  17.2675 2.848826
## 1967  0.026053022   6.116385 1.810971  0.132531470  16.4703 2.801559
## 1968  0.101814816   7.205735 1.974877  0.163906075  19.5025 2.970543
## 1969  0.028159007   7.643839 2.033900  0.059022633  22.5765 3.116910
## 1970  0.043996423   7.852245 2.060799  0.026899554  26.6364 3.282279
## 1971  0.053179993   8.326690 2.119466  0.058666601  30.4188 3.415061
## 1972  0.014376073   8.833338 2.178533  0.059066895  34.4949 3.540811
## 1973  0.098655662   9.668492 2.268872  0.090339421  37.9444 3.636122
## 1974  0.350264646  11.836574 2.471194  0.202321881  37.5649 3.626070
## 1975  0.067310026  13.096286 2.572329  0.101134431  37.4147 3.622064
## 1976  0.138414971  15.241585 2.724028  0.151698880  39.2854 3.670853
## 1977  0.198937519  18.192012 2.900983  0.176955034  44.0389 3.785073
## 1978  0.073024604  21.067895 3.047750  0.146767686  48.7511 3.886728
## 2019  0.012000521 102.744588 4.632246  0.002924247 422.6500 6.046544
## 2020 -0.028393436 101.584544 4.620891 -0.011354781 338.8810 5.825649
## 2021  0.012478829 102.644238 4.631269  0.010377609 379.2166 5.938108
## 2022           NA         NA       NA           NA       NA       NA
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1960           NA   4.4091 1.483671           NA 0.6704657 -0.3997828
## 1961  0.076304817   6.1785 1.821076  0.337404937 0.6645867 -0.4085899
## 1962  0.120373099   8.3052 2.116882  0.295806301 0.6659856 -0.4064872
## 1963  0.037599650  10.2591 2.328165  0.211283292 0.6870276 -0.3753808
## 1964  0.227409140  11.5905 2.450186  0.122020680 0.6963465 -0.3619079
## 1965  0.065417021  15.4080 2.734887  0.284701058 0.6988567 -0.3583096
## 1966  0.144201782  18.3935 2.911997  0.177110486 0.7169819 -0.3327046
## 1967 -0.047267363  17.7950 2.878918 -0.033079822 0.7308603 -0.3135329
## 1968  0.168983904  19.2386 2.956919  0.078001159 0.7065661 -0.3473385
## 1969  0.146366880  22.3144 3.105232  0.148313532 0.6993069 -0.3576656
## 1970  0.165369159  23.9804 3.177237  0.072004620 0.6966277 -0.3615042
## 1971  0.132782137  24.1483 3.184214  0.006977154 0.7013360 -0.3547683
## 1972  0.125750649  30.0163 3.401741  0.217526583 0.7065822 -0.3473157
## 1973  0.095310443  35.0290 3.556176  0.154435722 0.7097871 -0.3427902
## 1974 -0.010051827  37.8314 3.633139  0.076963156 0.7000819 -0.3565580
## 1975 -0.004006428  37.4909 3.624098 -0.009041209 0.7150260 -0.3354363
## 1976  0.048789273  41.1650 3.717588  0.093490144 0.7227605 -0.3246773
## 1977  0.114220386  38.9009 3.661017 -0.056570994 0.7153821 -0.3349384
## 1978  0.101654427  38.5119 3.650967 -0.010050102 0.7086288 -0.3444234
## 2019  0.025288081 377.2280 5.932850  0.012199404 0.5190130 -0.6558263
## 2020 -0.220895400 297.5937 5.695729 -0.237120646 0.5188737 -0.6560947
## 2021  0.112458532 334.3942 5.812321  0.116591403 0.5164653 -0.6607473
## 2022           NA       NA       NA           NA        NA         NA
##            rulc_dl       ulc     ulc_l      ulc_dl       Tau    Tau_l
## 1960            NA  1.765202 0.5682651          NA  42.21355 3.742741
## 1961 -0.0088071359  1.782047 0.5777626 0.009497455  46.76196 3.845070
## 1962  0.0021027076  1.887979 0.6355071 0.057744551  50.33934 3.918787
## 1963  0.0311064341  2.113431 0.7483129 0.112805720  53.92263 3.987550
## 1964  0.0134729213  2.277548 0.8230994 0.074786583  56.27686 4.030283
## 1965  0.0035982483  2.495408 0.9144524 0.091352939  58.58643 4.070503
## 1966  0.0256049742  2.769290 1.0185910 0.104138622  61.42394 4.117800
## 1967  0.0191717422  3.063661 1.1196105 0.101019508  62.47019 4.134690
## 1968 -0.0338055521  3.136886 1.1432306 0.023620146  64.87452 4.172455
## 1969 -0.0103271757  3.264094 1.1829824 0.039751721  68.73563 4.230268
## 1970 -0.0038385900  3.444904 1.2368960 0.053913612  69.86313 4.246538
## 1971  0.0067359621  3.740220 1.3191445 0.082248549  71.55517 4.270469
## 1972  0.0074525910  4.089344 1.4083846 0.089240119  75.58344 4.325237
## 1973  0.0045254831  4.594401 1.5248384 0.116453708  78.55238 4.363766
## 1974 -0.0137678258  5.254409 1.6590675 0.134229113  80.58577 4.389322
## 1975  0.0211216985  6.266905 1.8352826 0.176215149  80.12778 4.383623
## 1976  0.0107589691  7.379390 1.9986910 0.163408347  81.74978 4.403663
## 1977 -0.0102611072  9.011860 2.1985415 0.199850526  82.97153 4.418498
## 1978 -0.0094849297 10.768720 2.3766457 0.178104183  83.76998 4.428075
## 2019  0.0048051044 54.207125 3.9928124 0.020461363 102.24030 4.627326
## 2020 -0.0002684249 54.315013 3.9948007 0.001988310  97.80809 4.583007
## 2021 -0.0046525170 54.625183 4.0004950 0.005694330 100.71104 4.612255
## 2022            NA        NA        NA          NA        NA       NA
##             Tau_dl        dPxdPm        dPdPm      Trade
## 1960            NA            NA           NA 0.07644340
## 1961  0.1023287851 -0.0003314874 -0.001950552 0.08110512
## 1962  0.0737167497  0.0272295947  0.035887538 0.09000766
## 1963  0.0687634570  0.0412516249  0.061416591 0.09303693
## 1964  0.0427331010  0.0040376405  0.037999423 0.10471690
## 1965  0.0402197047  0.0026555954  0.079790689 0.11689997
## 1966  0.0472965150  0.0842426408  0.076658197 0.12804806
## 1967  0.0168899057  0.1064784473  0.055794743 0.11791834
## 1968  0.0377654325  0.0620912596 -0.044389118 0.12507054
## 1969  0.0578127758  0.0308636258  0.021919889 0.13307079
## 1970  0.0162703912 -0.0170968694  0.013755778 0.14393348
## 1971  0.0239306231  0.0054866079  0.022332594 0.14827291
## 1972  0.0547685306  0.0446908216  0.067411455 0.16208518
## 1973  0.0385283990 -0.0083162417  0.013272563 0.17009799
## 1974  0.0255564594 -0.1479427653 -0.202267708 0.16639661
## 1975 -0.0056994724  0.0338244045  0.087783425 0.16442244
## 1976  0.0200404194  0.0132839092  0.014234407 0.17094592
## 1977  0.0148345070 -0.0219824856  0.011174114 0.17137030
## 1978  0.0095770874  0.0737430829  0.114564509 0.17770406
## 2019  0.0004326794 -0.0090762737  0.003655738 0.67083711
## 2020 -0.0443186412  0.0170386553  0.030650172 0.58907589
## 2021  0.0292481113 -0.0021012204 -0.002131982 0.61739690
## 2022            NA            NA           NA         NA
ESP <- ESP_df[20:59,]
ESP[!complete.cases(ESP),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
ESP %>% head()
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1979 0.7172094 -0.3323874  0.003119163 0.2827906 -1.263049 -0.007867423
## 1980 0.7095305 -0.3431519 -0.010764431 0.2904695 -1.236257  0.026792048
## 1981 0.7199671 -0.3285497  0.014602104 0.2800329 -1.272848 -0.036591660
## 1982 0.7066255 -0.3472545 -0.018704711 0.2933745 -1.226305  0.046542896
## 1983 0.7096897 -0.3429274  0.004327079 0.2903103 -1.236805 -0.010499768
## 1984 0.6824170 -0.3821144 -0.039187045 0.3175830 -1.147016  0.089789130
##            Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1979 491.265 6.196984  0.000421450 21176395335039 30.68391  0.0405547800
## 1980 497.654 6.209905  0.012921359 21492832259592 30.69874  0.0148323625
## 1981 496.989 6.208568 -0.001337163 21918223140569 30.71834  0.0195989014
## 1982 503.183 6.220954  0.012386028 21905421952763 30.71776 -0.0005842138
## 1983 512.096 6.238512  0.017558186 22497472943710 30.74442  0.0266688054
## 1984 521.229 6.256189  0.017677377 23519674704853 30.78886  0.0444343031
##          Tax       Yf     Yf_l        Yf_dl        C      C_l
## 1979  5.1806 486.0844 6.186382 -0.001263180 327.8307 5.792497
## 1980  6.3031 491.3509 6.197159  0.010776265 329.7977 5.798479
## 1981  7.7741 489.2149 6.192802 -0.004356675 326.5012 5.788434
## 1982  9.5175 493.6655 6.201858  0.009056301 326.6330 5.788837
## 1983 11.8525 500.2435 6.215095  0.013236818 327.9063 5.792728
## 1984 14.1957 507.0333 6.228577  0.013481702 327.2553 5.790741
##               C_dl        W      W_l           W_dl        R      R_l
## 1979  0.0129162045 348.6243 5.853995  0.00185598348 137.4601 4.923334
## 1980  0.0059821196 348.6284 5.854007  0.00001183453 142.7225 4.960902
## 1981 -0.0100458121 352.2186 5.864252  0.01024542920 136.9963 4.919954
## 1982  0.0004035924 348.8366 5.854604 -0.00964840952 144.8289 4.975553
## 1983  0.0038906804 355.0177 5.872168  0.01756389626 145.2258 4.978290
## 1984 -0.0019872966 346.0081 5.846462 -0.02570534261 161.0252 5.081561
##              R_dl      It     It_l       It_dl  Itcurr Itcurr_l  Itcurr_dl
## 1979 -0.009130603 86.2239 4.456947 -0.04499776 19.2704 2.958570 0.10795623
## 1980  0.037568313 86.8275 4.463923  0.00697599 22.8354 3.128312 0.16974172
## 1981 -0.040948335 85.3883 4.447209 -0.01671430 25.4812 3.237941 0.10962896
## 1982  0.055599198 86.2497 4.457247  0.01003749 29.0103 3.367651 0.12971001
## 1983  0.002737050 85.1898 4.444882 -0.01236487 32.1308 3.469815 0.10216413
## 1984  0.103270832 81.1148 4.395865 -0.04901627 33.2289 3.503420 0.03360491
##          Ipr    Ipr_l     Ipr_dl       Ips      Ips_l       Ips_dl
## 1979 17.0485 2.836062 0.12138735 0.8846988 -0.1225080  0.013431119
## 1980 20.1474 3.003075 0.16701302 0.8822880 -0.1252367 -0.002728699
## 1981 22.0404 3.092877 0.08980189 0.8649671 -0.1450638 -0.019827077
## 1982 24.1425 3.183974 0.09109664 0.8322044 -0.1836772 -0.038613374
## 1983 26.9470 3.293872 0.10989820 0.8386657 -0.1759431  0.007734069
## 1984 27.2308 3.304349 0.01047671 0.8194915 -0.1990713 -0.023128196
##             I      I_l         I_dl         r      r_l        r_dl
## 1979 76.28218 4.334439 -0.031566646 -3.096070 1.616627  1.61662683
## 1980 76.60686 4.338687  0.004247291  2.235864 2.338725  0.72209802
## 1981 73.85807 4.302145 -0.036541379  3.079742 2.416974  0.07824959
## 1982 71.77738 4.273569 -0.028575885  2.118644 2.327355 -0.08961986
## 1983 71.44576 4.268939 -0.004630801  4.492840 2.535678  0.20832313
## 1984 66.47289 4.196794 -0.072144469  5.099785 2.582633  0.04695502
##             P      P_l      P_dl       Pm     Pm_l      Pm_dl       Px
## 1979 17.76937 2.877476 0.1564073 28.49851 3.349852 0.06935225 23.04301
## 1980 20.15473 3.003439 0.1259628 39.08486 3.665735 0.31588335 27.21591
## 1981 22.64383 3.119887 0.1164480 50.30663 3.918137 0.25240165 31.26597
## 1982 25.71966 3.247256 0.1273687 56.44431 4.033255 0.11511774 35.50486
## 1983 28.77600 3.359542 0.1122859 68.85514 4.232005 0.19875029 41.44205
## 1984 31.90282 3.462694 0.1031527 77.02188 4.344090 0.11208476 46.61403
##          Px_l      Px_dl       X      X_l       X_dl       M      M_l
## 1979 3.137362 0.08961196 51.4811 3.941215 0.05448699 42.9022 3.758923
## 1980 3.303802 0.16643937 52.6652 3.963955 0.02274015 44.3180 3.791391
## 1981 3.442530 0.13872880 58.6148 4.070987 0.10703233 42.7206 3.754681
## 1982 3.569670 0.12713923 61.8783 4.125170 0.05418233 44.8239 3.802741
## 1983 3.724296 0.15462639 67.8262 4.216949 0.09177900 44.2872 3.790696
## 1984 3.841902 0.11760561 75.9901 4.330603 0.11365452 43.6964 3.777266
##             M_dl      rulc     rulc_l         rulc_dl      ulc    ulc_l
## 1979  0.10795582 0.7096461 -0.3429888  0.001434533503 12.60997 2.534488
## 1980  0.03246781 0.7005438 -0.3558984 -0.012909524843 14.11927 2.647541
## 1981 -0.03670968 0.7087051 -0.3443158  0.011582592586 16.04779 2.775571
## 1982  0.04806024 0.6932600 -0.3663502 -0.022034437493 17.83041 2.880906
## 1983 -0.01204578 0.6932639 -0.3663445  0.000005709827 19.94936 2.993197
## 1984 -0.01342998 0.6638313 -0.4097272 -0.043382719678 21.17809 3.052967
##          ulc_dl      Tau    Tau_l       Tau_dl       dPxdPm        dPdPm
## 1979 0.15784188 83.57964 4.425800 -0.002274708  0.020259713  0.087055099
## 1980 0.11305325 85.18639 4.444842  0.019041675 -0.149443983 -0.189920580
## 1981 0.12803063 85.43515 4.447758  0.002915942 -0.113672853 -0.135953618
## 1982 0.10533422 86.08373 4.455320  0.007562889  0.012021491  0.012250919
## 1983 0.11229156 87.01584 4.466090  0.010769714 -0.044123901 -0.086464441
## 1984 0.05976998 89.21445 4.491043  0.024952805  0.005520852 -0.008932056
##          Trade
## 1979 0.1921230
## 1980 0.1948808
## 1981 0.2038987
## 1982 0.2120545
## 1983 0.2189304
## 1984 0.2296236

DATA

ESP %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1979 0.7172094 -0.3323874  0.0031191634 0.2827906 -1.2630486 -0.0078674228
## 1980 0.7095305 -0.3431519 -0.0107644306 0.2904695 -1.2362566  0.0267920475
## 1981 0.7199671 -0.3285497  0.0146021045 0.2800329 -1.2728482 -0.0365916602
## 1982 0.7066255 -0.3472545 -0.0187047106 0.2933745 -1.2263053  0.0465428965
## 1983 0.7096897 -0.3429274  0.0043270787 0.2903103 -1.2368051 -0.0104997677
## 1984 0.6824170 -0.3821144 -0.0391870446 0.3175830 -1.1470160  0.0897891295
## 1985 0.6675080 -0.4042039 -0.0220895069 0.3324920 -1.1011394  0.0458765391
## 1986 0.6533950 -0.4255734 -0.0213695136 0.3466050 -1.0595695  0.0415699724
## 1987 0.6529307 -0.4262843 -0.0007108350 0.3470693 -1.0582308  0.0013386428
## 1988 0.6474136 -0.4347700 -0.0084856759 0.3525864 -1.0424595  0.0157712751
## 1989 0.6439243 -0.4401740 -0.0054040905 0.3560757 -1.0326120  0.0098474952
## 1990 0.6596059 -0.4161128  0.0240612325 0.3403941 -1.0776511 -0.0450390402
## 1991 0.6692025 -0.4016686  0.0144442556 0.3307975 -1.1062489 -0.0285978268
## 1992 0.6866135 -0.3759837  0.0256848099 0.3133865 -1.1603180 -0.0540690940
## 1993 0.6813670 -0.3836541 -0.0076703938 0.3186330 -1.1437154  0.0166025568
## 1994 0.6643175 -0.4089951 -0.0253409847 0.3356825 -1.0915894  0.0521260270
## 1995 0.6498502 -0.4310135 -0.0220183348 0.3501498 -1.0493941  0.0421953066
## 1996 0.6447620 -0.4388740 -0.0078605025 0.3552380 -1.0349674  0.0144267119
## 1997 0.6509923 -0.4292575  0.0096164681 0.3490077 -1.0526612 -0.0176938382
## 1998 0.6529500 -0.4262548  0.0030027349 0.3470500 -1.0582863 -0.0056251085
## 1999 0.6518788 -0.4278966 -0.0016418526 0.3481212 -1.0552046  0.0030817411
## 2000 0.6490653 -0.4322219 -0.0043253086 0.3509347 -1.0471552  0.0080494373
## 2001 0.6353400 -0.4535949 -0.0213729977 0.3646600 -1.0087900  0.0383651772
## 2002 0.6298767 -0.4622312 -0.0086362894 0.3701233 -0.9939191  0.0148709312
## 2003 0.6215533 -0.4755337 -0.0133024749 0.3784467 -0.9716799  0.0222391425
## 2004 0.6216967 -0.4753030  0.0002307147 0.3783033 -0.9720590 -0.0003790366
## 2005 0.6189587 -0.4797167 -0.0044137243 0.3810413 -0.9648476  0.0072113843
## 2006 0.6171356 -0.4826665 -0.0029498353 0.3828644 -0.9600744  0.0047732056
## 2007 0.6125441 -0.4901343 -0.0074677597 0.3874559 -0.9481533  0.0119210398
## 2008 0.6209590 -0.4764902  0.0136440539 0.3790410 -0.9701109 -0.0219575562
## 2009 0.6173568 -0.4823081 -0.0058178262 0.3826432 -0.9606524  0.0094584345
## 2010 0.6238001 -0.4719254  0.0103826726 0.3761999 -0.9776345 -0.0169820610
## 2011 0.6117623 -0.4914114 -0.0194860366 0.3882377 -0.9461376  0.0314969355
## 2012 0.6017901 -0.5078466 -0.0164351690 0.3982099 -0.9207760  0.0253615872
## 2013 0.5988247 -0.5127864 -0.0049398361 0.4011753 -0.9133567  0.0074192703
## 2014 0.6017075 -0.5079839  0.0048025263 0.3982925 -0.9205685 -0.0072117982
## 2015 0.6008877 -0.5093473 -0.0013633951 0.3991123 -0.9185123  0.0020561858
## 2016 0.5924552 -0.5234800 -0.0141326612 0.4075448 -0.8976045  0.0209078233
## 2017 0.5874347 -0.5319902 -0.0085102299 0.4125653 -0.8853608  0.0122437218
## 2018 0.5888356 -0.5296082  0.0023819774 0.4111644 -0.8887622 -0.0034014201
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1979  491.265 6.196984  0.000421450 21176395335039 30.68391  0.0405547800
## 1980  497.654 6.209905  0.012921359 21492832259592 30.69874  0.0148323625
## 1981  496.989 6.208568 -0.001337163 21918223140569 30.71834  0.0195989014
## 1982  503.183 6.220954  0.012386028 21905421952763 30.71776 -0.0005842138
## 1983  512.096 6.238512  0.017558186 22497472943710 30.74442  0.0266688054
## 1984  521.229 6.256189  0.017677377 23519674704853 30.78886  0.0444343031
## 1985  533.328 6.279137  0.022947135 24362117732744 30.82405  0.0351920815
## 1986  550.683 6.311159  0.032022706 25149261349926 30.85585  0.0317991524
## 1987  581.229 6.365145  0.053985501 26027893824112 30.89019  0.0343402760
## 1988  610.837 6.414830  0.049685321 27281425092223 30.93723  0.0470372687
## 1989  640.327 6.461979  0.047148836 28343370791677 30.97541  0.0381870973
## 1990  664.551 6.499112  0.037132641 29235751998760 31.00641  0.0309991755
## 1991  681.453 6.524227  0.025115659 29679422567731 31.02148  0.0150616190
## 1992  687.793 6.533488  0.009260637 30294588897954 31.04199  0.0205151495
## 1993  680.699 6.523120 -0.010367709 30657491406528 31.05390  0.0119079380
## 1994  696.920 6.546671  0.023550415 31633799857983 31.08525  0.0313491144
## 1995  716.137 6.573871  0.027200863 32557307771876 31.11402  0.0287756879
## 1996  735.190 6.600129  0.026257480 33521905586406 31.14322  0.0291972707
## 1997  762.411 6.636486  0.036356811 34642853419027 31.17611  0.0328923306
## 1998  795.904 6.679479  0.042992795 35585580405717 31.20296  0.0268490572
## 1999  831.644 6.723404  0.043925889 36743897917809 31.23499  0.0320316578
## 2000  875.272 6.774535  0.051130231 38223228224240 31.27446  0.0394712307
## 2001  909.696 6.813110  0.038575783 38796837825824 31.28936  0.0148953445
## 2002  934.540 6.840054  0.026943952 39384706635477 31.30440  0.0150388405
## 2003  962.407 6.869437  0.029383008 40246771762069 31.32605  0.0216522115
## 2004  992.461 6.900188  0.030750279 41580642631952 31.35866  0.0326049416
## 2005 1028.706 6.936057  0.035869264 42769881848529 31.38686  0.0281994221
## 2006 1070.911 6.976265  0.040207986 44108320526112 31.41767  0.0308142790
## 2007 1109.514 7.011677  0.035412394 45335959385747 31.44512  0.0274520843
## 2008 1119.357 7.020510  0.008832332 45510638076825 31.44897  0.0038455795
## 2009 1077.233 6.982151 -0.038358697 44000679006245 31.41523 -0.0337410368
## 2010 1078.989 6.983780  0.001628775 45303439883935 31.44440  0.0291778995
## 2011 1070.202 6.975603 -0.008177076 46145122819988 31.46281  0.0184083091
## 2012 1038.530 6.945562 -0.030041164 46737488239453 31.47557  0.0127553143
## 2013 1023.623 6.931104 -0.014457957 47409225395627 31.48984  0.0142702497
## 2014 1037.789 6.944848  0.013744194 48368504905460 31.50987  0.0200320385
## 2015 1077.590 6.982482  0.037634578 49494501589178 31.53288  0.0230127076
## 2016 1110.255 7.012345  0.029862652 50340823934674 31.54984  0.0169547726
## 2017 1142.361 7.040852  0.028507455 51500382515799 31.57261  0.0227728782
## 2018 1169.218 7.064090  0.023237976 52652325007526 31.59473  0.0221211622
##           Tax        Yf     Yf_l        Yf_dl        C      C_l
## 1979   5.1806  486.0844 6.186382 -0.001263180 327.8307 5.792497
## 1980   6.3031  491.3509 6.197159  0.010776265 329.7977 5.798479
## 1981   7.7741  489.2149 6.192802 -0.004356675 326.5012 5.788434
## 1982   9.5175  493.6655 6.201858  0.009056301 326.6330 5.788837
## 1983  11.8525  500.2435 6.215095  0.013236818 327.9063 5.792728
## 1984  14.1957  507.0333 6.228577  0.013481702 327.2553 5.790741
## 1985  16.7781  516.5499 6.247172  0.018595214 334.7271 5.813316
## 1986  21.9440  528.7390 6.270495  0.023323031 346.1158 5.846773
## 1987  24.5713  556.6577 6.321951  0.051455582 366.7164 5.904589
## 1988  27.6260  583.2110 6.368549  0.046598533 384.6521 5.952339
## 1989  30.8703  609.4567 6.412568  0.044018863 405.5276 6.005189
## 1990  33.6741  630.8769 6.447111  0.034542852 419.7621 6.039688
## 1991  37.0226  644.4304 6.468367  0.021256070 431.8814 6.068151
## 1992  41.8614  645.9316 6.470694  0.002326790 441.2692 6.089655
## 1993  40.4117  640.2873 6.461917 -0.008776634 432.8736 6.070446
## 1994  44.6759  652.2441 6.480419  0.018501896 437.5650 6.081225
## 1995  47.1682  668.9688 6.505737  0.025318544 445.0640 6.098218
## 1996  50.1351  685.0549 6.529499  0.023761559 455.9730 6.122434
## 1997  54.6492  707.7618 6.562108  0.032608615 468.8720 6.150330
## 1998  61.3912  734.5128 6.599207  0.037099826 489.5420 6.193470
## 1999  68.8060  762.8380 6.637046  0.037838267 513.0310 6.240336
## 2000  74.0620  801.2100 6.686123  0.049077396 535.7910 6.283744
## 2001  77.8270  831.8690 6.723675  0.037551892 556.5570 6.321770
## 2002  83.0770  851.4630 6.746956  0.023281070 573.6790 6.352070
## 2003  91.0590  871.3480 6.770041  0.023085391 587.2520 6.375454
## 2004 101.9030  890.5580 6.791848  0.021806795 611.0780 6.415225
## 2005 113.9340  914.7720 6.818675  0.026826621 636.3350 6.455725
## 2006 123.9710  946.9400 6.853236  0.034560879 661.6920 6.494800
## 2007 124.7340  984.7800 6.892418  0.039182533 684.1520 6.528180
## 2008 106.0930 1013.2640 6.920932  0.028513816 679.3490 6.521135
## 2009  87.5460  989.6870 6.897389 -0.023543351 654.9420 6.484547
## 2010 107.5890  971.4000 6.878738 -0.018650402 657.3610 6.488233
## 2011 104.0820  966.1200 6.873288 -0.005450280 641.1770 6.463306
## 2012 106.8350  931.6950 6.837006 -0.036282542 619.9010 6.429560
## 2013 114.1440  909.4790 6.812872 -0.024133600 602.0010 6.400259
## 2014 120.0450  917.7440 6.821918  0.009046577 612.1710 6.417012
## 2015 128.9550  948.6350 6.855024  0.033105625 630.2150 6.446061
## 2016 131.4790  978.7760 6.886303  0.031278702 647.1900 6.472640
## 2017 137.6730 1004.6880 6.912432  0.026129513 666.4840 6.502016
## 2018 143.5830 1025.6350 6.933067  0.020634887 678.7890 6.520310
##               C_dl        W      W_l           W_dl        R      R_l
## 1979  0.0129162045 348.6243 5.853995  0.00185598348 137.4601 4.923334
## 1980  0.0059821196 348.6284 5.854007  0.00001183453 142.7225 4.960902
## 1981 -0.0100458121 352.2186 5.864252  0.01024542920 136.9963 4.919954
## 1982  0.0004035924 348.8366 5.854604 -0.00964840952 144.8289 4.975553
## 1983  0.0038906804 355.0177 5.872168  0.01756389626 145.2258 4.978290
## 1984 -0.0019872966 346.0081 5.846462 -0.02570534261 161.0252 5.081561
## 1985  0.0225749727 344.8012 5.842968 -0.00349429310 171.7487 5.146032
## 1986  0.0334578282 345.4754 5.844921  0.00195351705 183.2636 5.210925
## 1987  0.0578153961 363.4589 5.895666  0.05074474746 193.1988 5.263720
## 1988  0.0477504921 377.5787 5.933779  0.03811285722 205.6323 5.326090
## 1989  0.0528496460 392.4440 5.972394  0.03861477211 217.0127 5.379956
## 1990  0.0344991869 416.1301 6.030998  0.05860408429 214.7468 5.369460
## 1991  0.0284628913 431.2544 6.066698  0.03570032511 213.1760 5.362118
## 1992  0.0215041065 443.5054 6.094710  0.02801159986 202.4262 5.310376
## 1993 -0.0192093515 436.2707 6.078263 -0.01644702776 204.0166 5.318202
## 1994  0.0107794977 433.2972 6.071424 -0.00683908825 218.9469 5.388829
## 1995  0.0169928259 434.7295 6.074724  0.00330020911 234.2393 5.456343
## 1996  0.0242155052 441.6974 6.090625  0.01590105631 243.3575 5.494532
## 1997  0.0278962129 460.7475 6.132850  0.04222508343 247.0143 5.509446
## 1998  0.0431404500 479.6001 6.172953  0.04010256079 254.9127 5.540921
## 1999  0.0468660121 497.2779 6.209149  0.03619641411 265.5601 5.581841
## 2000  0.0434078875 520.0376 6.253901  0.04475208748 281.1724 5.638968
## 2001  0.0380254317 528.5197 6.270080  0.01617889379 303.3493 5.714885
## 2002  0.0303004151 536.3167 6.284725  0.01464478051 315.1463 5.753037
## 2003  0.0233840228 541.5892 6.294508  0.00978291647 329.7588 5.798362
## 2004  0.0397705814 553.6569 6.316545  0.02203750942 336.9011 5.819789
## 2005  0.0405005436 566.2061 6.338958  0.02241289703 348.5659 5.853827
## 2006  0.0390750366 584.3904 6.370569  0.03161104400 362.5496 5.893161
## 2007  0.0333799243 603.2212 6.402284  0.03171477304 381.5588 5.944265
## 2008 -0.0070451285 629.1954 6.444442  0.04215787024 384.0686 5.950821
## 2009 -0.0365883046 610.9900 6.415081 -0.02936117699 378.6970 5.936736
## 2010  0.0036866528 605.9594 6.406813 -0.00826772903 365.4406 5.901104
## 2011 -0.0249277850 591.0358 6.381877 -0.02493631638 375.0842 5.927150
## 2012 -0.0337457620 560.6848 6.329159 -0.05271771114 371.0102 5.916230
## 2013 -0.0293006814 544.6185 6.300085 -0.02907343589 364.8605 5.899515
## 2014  0.0167525488 552.2134 6.313935  0.01384910281 365.5306 5.901350
## 2015  0.0290493758 570.0231 6.345677  0.03174222954 378.6119 5.936512
## 2016  0.0265788834 579.8810 6.362823  0.01714604104 398.8950 5.988698
## 2017  0.0293762189 590.1886 6.380442  0.01761928320 414.4994 6.027072
## 2018  0.0182941948 603.9304 6.403459  0.02301686481 421.7046 6.044305
##              R_dl       It     It_l       It_dl   Itcurr Itcurr_l
## 1979 -0.009130603  86.2239 4.456947 -0.04499776  19.2704 2.958570
## 1980  0.037568313  86.8275 4.463923  0.00697599  22.8354 3.128312
## 1981 -0.040948335  85.3883 4.447209 -0.01671430  25.4812 3.237941
## 1982  0.055599198  86.2497 4.457247  0.01003749  29.0103 3.367651
## 1983  0.002737050  85.1898 4.444882 -0.01236487  32.1308 3.469815
## 1984  0.103270832  81.1148 4.395865 -0.04901627  33.2289 3.503420
## 1985  0.064471753  86.5496 4.460718  0.06485222  37.9148 3.635342
## 1986  0.064893003  95.6037 4.560212  0.09949386  44.5602 3.796841
## 1987  0.052794225 107.2642 4.675295  0.11508343  52.7438 3.965446
## 1988  0.062369808 121.8031 4.802406  0.12711086  63.5165 4.151300
## 1989  0.053866358 136.4345 4.915845  0.11343884  75.2586 4.320930
## 1990 -0.010496188 145.2372 4.978368  0.06252362  84.6482 4.438504
## 1991 -0.007341757 147.6467 4.994822  0.01645399  90.1755 4.501758
## 1992 -0.051742304 141.5459 4.952624 -0.04219821  89.4054 4.493181
## 1993  0.007825923 128.9358 4.859315 -0.09330944  85.0349 4.443062
## 1994  0.070627923 131.3261 4.877684  0.01836894  89.7962 4.497543
## 1995  0.067513850 141.4930 4.952250  0.07456670 100.8540 4.613674
## 1996  0.038188271 144.9430 4.976341  0.02409032 106.0930 4.664316
## 1997  0.014914777 152.9730 5.030261  0.05392087 114.9210 4.744245
## 1998  0.031474717 169.4820 5.132747  0.10248529 129.4170 4.863040
## 1999  0.040920008 186.2700 5.227197  0.09445051 147.3320 4.992689
## 2000  0.057126833 200.2870 5.299751  0.07255410 168.0580 5.124309
## 2001  0.075917069 208.6610 5.340711  0.04095959 181.3980 5.200694
## 2002  0.038152001 217.1290 5.380492  0.03978072 196.0510 5.278375
## 2003  0.045324534 231.3140 5.443776  0.06328445 217.4030 5.381753
## 2004  0.021427758 241.8910 5.488487  0.04471112 238.9890 5.476418
## 2005  0.034038006 258.7450 5.555843  0.06735581 269.0410 5.594864
## 2006  0.039334085 277.4220 5.625540  0.06969679 301.4210 5.708508
## 2007  0.051103573 288.3350 5.664123  0.03858319 321.1800 5.772002
## 2008  0.006556260 275.9570 5.620245 -0.04387794 308.8570 5.732878
## 2009 -0.014084916 228.2560 5.430468 -0.18977725 247.1550 5.510016
## 2010 -0.035632463 215.9800 5.375186 -0.05528200 233.7320 5.454175
## 2011  0.026046656 199.6490 5.296561 -0.07862499 212.9840 5.361217
## 2012 -0.010920955 184.8440 5.219512 -0.07704860 191.0380 5.252472
## 2013 -0.016714330 177.8520 5.180952 -0.03856048 177.2400 5.177505
## 2014  0.001834778 185.1090 5.220945  0.03999310 183.5150 5.212296
## 2015  0.035161810 194.1220 5.268487  0.04754199 194.1220 5.268487
## 2016  0.052186526 198.6950 5.291771  0.02328416 200.0480 5.298557
## 2017  0.038373235 210.4330 5.349167  0.05739633 216.8380 5.379151
## 2018  0.017233467 221.5630 5.400707  0.05153966 233.5840 5.453542
##         Itcurr_dl      Ipr    Ipr_l      Ipr_dl       Ips      Ips_l
## 1979  0.107956228  17.0485 2.836062  0.12138735 0.8846988 -0.1225080
## 1980  0.169741724  20.1474 3.003075  0.16701302 0.8822880 -0.1252367
## 1981  0.109628962  22.0404 3.092877  0.08980189 0.8649671 -0.1450638
## 1982  0.129710014  24.1425 3.183974  0.09109664 0.8322044 -0.1836772
## 1983  0.102164132  26.9470 3.293872  0.10989820 0.8386657 -0.1759431
## 1984  0.033604908  27.2308 3.304349  0.01047671 0.8194915 -0.1990713
## 1985  0.131921558  29.9938 3.400991  0.09664201 0.7910842 -0.2343508
## 1986  0.161499547  35.4829 3.569051  0.16806020 0.7962913 -0.2277902
## 1987  0.168605146  42.8814 3.758438  0.18938728 0.8130131 -0.2070081
## 1988  0.185853485  51.3753 3.939158  0.18071935 0.8088497 -0.2121422
## 1989  0.169630468  59.5242 4.086383  0.14722544 0.7909289 -0.2345472
## 1990  0.117573662  65.6858 4.184883  0.09849982 0.7759858 -0.2536211
## 1991  0.063253927  69.6647 4.243694  0.05881097 0.7725458 -0.2580640
## 1992 -0.008576689  70.4571 4.255004  0.01131028 0.7880631 -0.2381771
## 1993 -0.050119323  65.7919 4.186497 -0.06850728 0.7737047 -0.2565650
## 1994  0.054480898  69.9420 4.247666  0.06116960 0.7788971 -0.2498763
## 1995  0.116131268  80.5540 4.388928  0.14126144 0.7987189 -0.2247462
## 1996  0.050642141  87.8240 4.475335  0.08640704 0.8278020 -0.1889813
## 1997  0.079928868  95.5460 4.559608  0.08427300 0.8314059 -0.1846371
## 1998  0.118794813 107.9130 4.681325  0.12171754 0.8338394 -0.1817144
## 1999  0.129648795 124.1740 4.821684  0.14035846 0.8428176 -0.1710047
## 2000  0.131620614 144.0440 4.970119  0.14843500 0.8571089 -0.1541903
## 2001  0.076384354 154.7830 5.042024  0.07190533 0.8532784 -0.1586694
## 2002  0.077681317 165.4840 5.108875  0.06685038 0.8440865 -0.1695003
## 2003  0.103377945 184.0630 5.215278  0.10640358 0.8466443 -0.1664747
## 2004  0.094664752 204.5150 5.320641  0.10536323 0.8557507 -0.1557762
## 2005  0.118446259 229.8350 5.437362  0.11672034 0.8542750 -0.1575021
## 2006  0.113644174 257.5190 5.551094  0.11373184 0.8543499 -0.1574145
## 2007  0.063493755 270.7220 5.601092  0.04999896 0.8428981 -0.1709092
## 2008 -0.039123327 257.1350 5.549601 -0.05149123 0.8325374 -0.1832771
## 2009 -0.222862716 191.8000 5.256453 -0.29314808 0.7760312 -0.2535625
## 2010 -0.055840510 182.8220 5.208513 -0.04794016 0.7821864 -0.2456622
## 2011 -0.092958114 173.0490 5.153575 -0.05493821 0.8124977 -0.2076423
## 2012 -0.108744684 163.8900 5.099195 -0.05437932 0.8578921 -0.1532769
## 2013 -0.074967615 153.9640 5.036719 -0.06247666 0.8686752 -0.1407859
## 2014  0.034791662 161.0870 5.081945  0.04522578 0.8777866 -0.1303518
## 2015  0.056190419 166.8780 5.117263  0.03531841 0.8596553 -0.1512238
## 2016  0.030070510 178.1470 5.182609  0.06534605 0.8905213 -0.1159483
## 2017  0.080593193 193.6550 5.266078  0.08346917 0.8930861 -0.1130723
## 2018  0.074391224 207.8690 5.336908  0.07082985 0.8899111 -0.1166337
##              Ips_dl         I      I_l         I_dl          r      r_l
## 1979  0.01343111906  76.28218 4.334439 -0.031566646 -3.0960697 1.616627
## 1980 -0.00272869910  76.60686 4.338687  0.004247291  2.2358636 2.338725
## 1981 -0.01982707677  73.85807 4.302145 -0.036541379  3.0797420 2.416974
## 1982 -0.03861337407  71.77738 4.273569 -0.028575885  2.1186443 2.327355
## 1983  0.00773406872  71.44576 4.268939 -0.004630801  4.4928404 2.535678
## 1984 -0.02312819582  66.47289 4.196794 -0.072144469  5.0997848 2.582633
## 1985 -0.03527954996  68.46802 4.226367  0.029572675  4.3962394 2.527997
## 1986  0.00656064990  76.12840 4.332421  0.106054512  0.4353914 2.147980
## 1987  0.02078212923  87.20720 4.468287  0.135865557  6.4806204 2.681895
## 1988 -0.00513413803  98.52040 4.590264  0.121976719  5.4886371 2.611597
## 1989 -0.02240502781 107.90999 4.681297  0.091033812  6.3642899 2.673903
## 1990 -0.01907384587 112.70200 4.724747  0.043449776  6.8544590 2.707157
## 1991 -0.00444296218 114.06383 4.736758  0.012011028  4.1531179 2.508400
## 1992  0.01988696924 111.54711 4.714447 -0.022311242  4.6951231 2.551573
## 1993 -0.01838796093  99.75823 4.602750 -0.111697401  5.4275515 2.607102
## 1994  0.00668869902 102.28952 4.627807  0.025057636  5.8811591 2.640007
## 1995  0.02513017150 113.01314 4.727504  0.099696874  6.0390290 2.651210
## 1996  0.03576490335 119.98411 4.787359  0.059855219  5.1032909 2.582898
## 1997  0.00434412727 127.18266 4.845624  0.058265001  3.9510169 2.491813
## 1998  0.00292272678 141.32078 4.951032  0.105408018  2.2066975 2.335908
## 1999  0.01070966630 156.99163 5.056192  0.105160174  2.1345855 2.328909
## 2000  0.01681438633 171.66776 5.145561  0.089368490  2.1293927 2.328403
## 2001 -0.00447902680 178.04593 5.182042  0.036480561  0.9717897 2.208707
## 2002 -0.01083093980 183.27565 5.210991  0.028949782  0.8410469 2.194241
## 2003  0.00302563233 195.84067 5.277301  0.066310080  0.1793981 2.117645
## 2004  0.01069848039 206.99839 5.332711  0.055409597  0.2096964 2.121284
## 2005 -0.00172592083 221.03938 5.398341  0.065629888 -0.6830324 2.008095
## 2006  0.00008766935 237.01546 5.468125  0.069784461 -0.1919466 2.071938
## 2007 -0.01349479471 243.03701 5.493214  0.025088391  0.8640336 2.196800
## 2008 -0.01236789827 229.74452 5.436968 -0.056245840  2.0691091 2.322511
## 2009 -0.07028535993 177.13379 5.176905 -0.260062610  3.8305823 2.481796
## 2010  0.00790034976 168.93663 5.129524 -0.047381646  4.0903372 2.503277
## 2011  0.03801990384 162.21434 5.088919 -0.040605082  5.4608293 2.609553
## 2012  0.05436536407 158.57622 5.066235 -0.022683235  5.9713984 2.646426
## 2013  0.01249095258 154.49563 5.040166 -0.026069530  4.1450449 2.507743
## 2014  0.01043412116 162.48619 5.090593  0.050427218  2.9499578 2.405331
## 2015 -0.02087200455 166.87800 5.117263  0.026669982  1.1780172 2.231106
## 2016  0.03527553528 176.94212 5.175823  0.058559694  1.0636666 2.218748
## 2017  0.00287598003 187.93478 5.236095  0.060272307  0.1764423 2.117289
## 2018 -0.00356137631 197.17138 5.284073  0.047978284  0.3233590 2.134817
##               r_dl         P      P_l          P_dl        Pm     Pm_l
## 1979  1.6166268301  17.76937 2.877476  0.1564073488  28.49851 3.349852
## 1980  0.7220980232  20.15473 3.003439  0.1259627716  39.08486 3.665735
## 1981  0.0782495944  22.64383 3.119887  0.1164480360  50.30663 3.918137
## 1982 -0.0896198573  25.71966 3.247256  0.1273686606  56.44431 4.033255
## 1983  0.2083231332  28.77600 3.359542  0.1122858533  68.85514 4.232005
## 1984  0.0469550186  31.90282 3.462694  0.1031527022  77.02188 4.344090
## 1985 -0.0546360160  34.64514 3.545158  0.0824631513  78.64299 4.364919
## 1986 -0.3800166430  38.41358 3.648411  0.1032535489  65.87704 4.187790
## 1987  0.5339153237  40.69695 3.706153  0.0577419855  64.00551 4.158969
## 1988 -0.0702987732  43.11255 3.763814  0.0576609915  64.07556 4.160063
## 1989  0.0623060336  46.08593 3.830508  0.0666935008  65.30602 4.179084
## 1990  0.0332539879  49.46105 3.901186  0.0706779296  63.49324 4.150933
## 1991 -0.1987563472  52.89301 3.968271  0.0670856737  62.56610 4.136224
## 1992  0.0431728236  56.44205 4.033214  0.0649432036  63.31447 4.148114
## 1993  0.0555286800  59.00240 4.077578  0.0443636356  67.20074 4.207684
## 1994  0.0329052738  61.29205 4.115650  0.0380721274  71.10144 4.264108
## 1995  0.0112027311  64.31563 4.163803  0.0481524574  74.25201 4.307465
## 1996 -0.0683121368  66.54103 4.197819  0.0340161216  74.34190 4.308675
## 1997 -0.0910848742  68.10867 4.221105  0.0232857796  76.77832 4.340922
## 1998 -0.1559050028  69.85679 4.246447  0.0253427825  75.09115 4.318703
## 1999 -0.0069993009  71.63197 4.271542  0.0250941998  75.36655 4.322363
## 2000 -0.0005059171  74.01711 4.304296  0.0327547071  83.35483 4.423107
## 2001 -0.1196960120  77.05794 4.344558  0.0402613871  83.19274 4.421160
## 2002 -0.0144652521  80.20545 4.384591  0.0400338424  81.27241 4.397807
## 2003 -0.0765961815  83.36037 4.423173  0.0385815195  79.99721 4.381992
## 2004  0.0036387003  86.59655 4.461260  0.0380870216  81.72951 4.403415
## 2005 -0.1131890894  90.14791 4.501452  0.0401918176  84.34980 4.434972
## 2006  0.0638433611  93.73543 4.540476  0.0390243983  87.64100 4.473249
## 2007  0.1248616426  96.93785 4.574070  0.0335938275  89.07308 4.489457
## 2008  0.1257107923  99.12307 4.596362  0.0222921532  92.94824 4.532043
## 2009  0.1592851113  99.26571 4.597800  0.0014380181  86.43828 4.459431
## 2010  0.0214813036  99.41797 4.599333  0.0015327120  92.03350 4.522153
## 2011  0.1062760144  99.39834 4.599135 -0.0001975271  99.57322 4.600893
## 2012  0.0368730103  99.28447 4.597989 -0.0011462342 102.95855 4.634327
## 2013 -0.1386830224  99.68006 4.601966  0.0039764789 100.86584 4.613791
## 2014 -0.1024116249  99.45740 4.599729 -0.0022361829  99.97864 4.604957
## 2015 -0.1742249541 100.00000 4.605170  0.0054407320 100.00000 4.605170
## 2016 -0.0123583953 100.32290 4.608394  0.0032237860  98.41219 4.589165
## 2017 -0.1014585390 101.70848 4.622111  0.0137167022 101.75465 4.622565
## 2018  0.0175279984 102.82026 4.632982  0.0108717518 104.53316 4.649504
##              Pm_dl        Px     Px_l         Px_dl        X      X_l
## 1979  0.0693522501  23.04301 3.137362  0.0896119630  51.4811 3.941215
## 1980  0.3158833518  27.21591 3.303802  0.1664393689  52.6652 3.963955
## 1981  0.2524016536  31.26597 3.442530  0.1387288005  58.6148 4.070987
## 1982  0.1151177415  35.50486 3.569670  0.1271392326  61.8783 4.125170
## 1983  0.1987502938  41.44205 3.724296  0.1546263924  67.8262 4.216949
## 1984  0.1120847578  46.61403 3.841902  0.1176056097  75.9901 4.330603
## 1985  0.0208289605  50.39635 3.919919  0.0780170432  76.4974 4.337257
## 1986 -0.1771285280  50.20543 3.916123 -0.0037954224  76.6739 4.339561
## 1987 -0.0288209180  51.94611 3.950207  0.0340835475  80.7140 4.390912
## 1988  0.0010938979  54.37977 3.995992  0.0457854007  83.7948 4.428371
## 1989  0.0190212805  57.64554 4.054313  0.0583206816  84.9928 4.442567
## 1990 -0.0281507876  58.08677 4.061938  0.0076249966  88.9818 4.488432
## 1991 -0.0147099264  58.97643 4.077138  0.0151999644  96.3225 4.567702
## 1992  0.0118903737  60.68603 4.105713  0.0285756030 103.5515 4.640069
## 1993  0.0595703015  63.69440 4.154097  0.0483831774 111.6669 4.715520
## 1994  0.0564233887  66.59364 4.198609  0.0445124771 130.2818 4.869700
## 1995  0.0433572711  70.53413 4.256097  0.0574875676 142.5310 4.959560
## 1996  0.0012098532  71.88473 4.275064  0.0189671551 156.7440 5.054614
## 1997  0.0322475521  74.34189 4.308675  0.0336106696 179.3000 5.189060
## 1998 -0.0222195983  74.84258 4.315387  0.0067124413 193.9070 5.267379
## 1999  0.0036607660  74.91136 4.316306  0.0009185923 209.5570 5.344996
## 2000  0.1007431045  79.95817 4.381504  0.0651981083 231.4310 5.444282
## 2001 -0.0019464859  81.19092 4.396803  0.0152997245 240.5540 5.482945
## 2002 -0.0233534880  81.58016 4.401586  0.0047826501 243.9760 5.497070
## 2003 -0.0158149043  81.37184 4.399029 -0.0025567359 252.6820 5.532132
## 2004  0.0214234259  82.86601 4.417225  0.0181956692 263.5580 5.574273
## 2005  0.0315573588  86.26132 4.457381  0.0401562730 268.5410 5.593004
## 2006  0.0382764839  90.09284 4.500841  0.0434594326 281.2410 5.639212
## 2007  0.0162082284  92.35609 4.525652  0.0248109955 302.6070 5.712435
## 2008  0.0425855798  94.81231 4.551899  0.0262476318 299.8640 5.703329
## 2009 -0.0726121571  92.23496 4.524339 -0.0275600737 267.3650 5.588615
## 2010  0.0627219671  95.46943 4.558806  0.0344668824 291.5970 5.675373
## 2011  0.0787406425  99.60403 4.601203  0.0423965502 315.4310 5.753940
## 2012  0.0334332801 101.87009 4.623698  0.0224956760 318.3810 5.763249
## 2013 -0.0205351633 101.20727 4.617171 -0.0065277821 332.3210 5.806101
## 2014 -0.0088347915  99.49045 4.600062 -0.0171089322 347.3630 5.850370
## 2015  0.0002136248 100.00000 4.605170  0.0051085605 362.3560 5.892627
## 2016 -0.0160055380  98.83479 4.593450 -0.0117205359 381.8190 5.944947
## 2017  0.0333998608 101.35846 4.618663  0.0252136510 403.2520 5.999562
## 2018  0.0269398271 102.44458 4.629322  0.0106586293 412.0960 6.021256
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1979  0.054486989  42.9022 3.758923  0.107955822 0.7096461 -0.3429888
## 1980  0.022740146  44.3180 3.791391  0.032467808 0.7005438 -0.3558984
## 1981  0.107032329  42.7206 3.754681 -0.036709676 0.7087051 -0.3443158
## 1982  0.054182328  44.8239 3.802741  0.048060240 0.6932600 -0.3663502
## 1983  0.091778998  44.2872 3.790696 -0.012045783 0.6932639 -0.3663445
## 1984  0.113654518  43.6964 3.777266 -0.013429977 0.6638313 -0.4097272
## 1985  0.006653685  46.9942 3.850024  0.072758471 0.6465087 -0.4361687
## 1986  0.002304610  55.0706 4.008616  0.158591809 0.6273581 -0.4662378
## 1987  0.051350679  68.7232 4.230087  0.221470844 0.6253282 -0.4694786
## 1988  0.037458911  79.7759 4.379221  0.149134611 0.6181334 -0.4810511
## 1989  0.014195594  93.9086 4.542322  0.163100515 0.6128806 -0.4895851
## 1990  0.045865307 102.9463 4.634207  0.091885524 0.6261823 -0.4681137
## 1991  0.079270082 113.5917 4.732610  0.098402947 0.6328455 -0.4575290
## 1992  0.072367137 121.3406 4.798601  0.065991027 0.6448239 -0.4387781
## 1993  0.075451259 114.9979 4.744914 -0.053687600 0.6409157 -0.4448574
## 1994  0.154179464 128.1626 4.853300  0.108385903 0.6217315 -0.4752469
## 1995  0.089859723 142.3490 4.958282  0.104982019 0.6070479 -0.4991475
## 1996  0.095054381 152.7510 5.028809  0.070527356 0.6007935 -0.5095040
## 1997  0.134446479 172.4380 5.150038  0.121228607 0.6043295 -0.5036357
## 1998  0.078318282 196.6530 5.281441  0.131403003 0.6025854 -0.5065259
## 1999  0.077617116 223.5740 5.409742  0.128301701 0.5979457 -0.5142554
## 2000  0.099285994 244.9720 5.501144  0.091401463 0.5941440 -0.5206335
## 2001  0.038662824 253.9260 5.537043  0.035898968 0.5809850 -0.5430304
## 2002  0.014125263 263.2640 5.573157  0.036114445 0.5738831 -0.5553296
## 2003  0.035061921 279.1460 5.631735  0.058577611 0.5627444 -0.5749297
## 2004  0.042141676 306.1330 5.724020  0.092284706 0.5578627 -0.5836425
## 2005  0.018730145 327.4400 5.791305  0.067285184 0.5504062 -0.5970988
## 2006  0.046208351 354.3330 5.870237  0.078932317 0.5456946 -0.6056958
## 2007  0.073222981 383.5300 5.949418  0.079180696 0.5436806 -0.6093934
## 2008 -0.009105895 362.4060 5.892765 -0.056652714 0.5621043 -0.5760678
## 2009 -0.114714272 296.0760 5.690616 -0.202148952 0.5671847 -0.5670703
## 2010  0.086757946 314.4290 5.750758  0.060142117 0.5615992 -0.5769668
## 2011  0.078567246 312.5720 5.744835 -0.005923453 0.5522657 -0.5937261
## 2012  0.009308821 294.3330 5.684712 -0.060123063 0.5398831 -0.6164026
## 2013  0.042852590 293.7020 5.682566 -0.002146132 0.5320498 -0.6310181
## 2014  0.044268973 313.6680 5.748335  0.065769454 0.5321057 -0.6309132
## 2015  0.042256811 329.5930 5.797859  0.049523458 0.5289795 -0.6368055
## 2016  0.052319520 338.3270 5.824013  0.026154323 0.5222953 -0.6495221
## 2017  0.054615002 360.8130 5.888360  0.064346935 0.5166393 -0.6604103
## 2018  0.021694655 372.6540 5.920650  0.032290557 0.5165251 -0.6606314
##              rulc_dl      ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1979  0.001434533503 12.60997 2.534488  0.1578418823  83.57964 4.425800
## 1980 -0.012909524843 14.11927 2.647541  0.1130532467  85.18639 4.444842
## 1981  0.011582592586 16.04779 2.775571  0.1280306285  85.43515 4.447758
## 1982 -0.022034437493 17.83041 2.880906  0.1053342231  86.08373 4.455320
## 1983  0.000005709827 19.94936 2.993197  0.1122915631  87.01584 4.466090
## 1984 -0.043382719678 21.17809 3.052967  0.0597699825  89.21445 4.491043
## 1985 -0.026441428083 22.39839 3.108989  0.0560217233  91.18639 4.512906
## 1986 -0.030069189431 24.09907 3.182173  0.0731843595  91.97164 4.521480
## 1987 -0.003240753770 25.44895 3.236675  0.0545012318  93.23691 4.535144
## 1988 -0.011572463370 26.64930 3.282763  0.0460885281  94.55429 4.549174
## 1989 -0.008534063454 28.24517 3.340922  0.0581594374  95.35101 4.557565
## 1990  0.021471443019 30.97164 3.433072  0.0921493726  95.03415 4.554236
## 1991  0.010584666518 33.47310 3.510742  0.0776703402  95.12445 4.555186
## 1992  0.018750962535 36.39518 3.594436  0.0836941661  95.44854 4.558587
## 1993 -0.006079318568 37.81556 3.632721  0.0382843170  95.10593 4.554991
## 1994 -0.030389503425 38.10720 3.640403  0.0076826240  96.61430 4.570727
## 1995 -0.023900653776 39.04267 3.664655  0.0242518036  97.00575 4.574770
## 1996 -0.010356423455 39.97742 3.688315  0.0236596982  97.68049 4.581702
## 1997  0.005868272276 41.16008 3.717469  0.0291540519  97.96676 4.584628
## 1998 -0.002890234408 42.09468 3.739921  0.0224525481  98.32590 4.588287
## 1999 -0.007729474974 42.83203 3.757286  0.0173647248  98.38041 4.588842
## 2000 -0.006378143076 43.97682 3.783663  0.0263765640  98.91608 4.594272
## 2001 -0.022396888777 44.76950 3.801527  0.0178644983  99.12869 4.596419
## 2002 -0.012299171342 46.02855 3.829262  0.0277346711  98.77545 4.592849
## 2003 -0.019600092028 46.91058 3.848243  0.0189814275  98.37806 4.588818
## 2004 -0.008712769547 48.30898 3.877618  0.0293742521  98.13213 4.586315
## 2005 -0.013456366618 49.61797 3.904353  0.0267354509  97.83593 4.583292
## 2006 -0.008596942366 51.15092 3.934780  0.0304274560  97.82635 4.583194
## 2007 -0.003697620457 52.70323 3.964677  0.0298962071  97.63635 4.581250
## 2008  0.033325538541 55.71750 4.020294  0.0556176917  96.93487 4.574039
## 2009  0.008997519848 56.30199 4.030730  0.0104355379  96.11160 4.565510
## 2010 -0.009896504167 55.83306 4.022366 -0.0083637922  97.21599 4.576935
## 2011 -0.016759240481 54.89429 4.005409 -0.0169567675  97.58888 4.580764
## 2012 -0.022676547177 53.60201 3.981587 -0.0238227814  97.39065 4.578730
## 2013 -0.014615478919 53.03476 3.970948 -0.0106390000  97.82550 4.583185
## 2014  0.000104909030 52.92185 3.968816 -0.0021312739  98.39839 4.589024
## 2015 -0.005892348103 52.89795 3.968365 -0.0004516161 100.00000 4.605170
## 2016 -0.012716611439 52.39818 3.958872 -0.0094928254 101.04787 4.615594
## 2017 -0.010888171493 52.54660 3.961700  0.0028285307 101.83968 4.623400
## 2018 -0.000221111100 53.10924 3.972351  0.0106506407 102.19608 4.626893
##              Tau_dl       dPxdPm         dPdPm     Trade
## 1979 -0.00227470832  0.020259713  0.0870550987 0.1921230
## 1980  0.01904167546 -0.149443983 -0.1899205802 0.1948808
## 1981  0.00291594235 -0.113672853 -0.1359536176 0.2038987
## 1982  0.00756288862  0.012021491  0.0122509191 0.2120545
## 1983  0.01076971356 -0.044123901 -0.0864644406 0.2189304
## 1984  0.02495280492  0.005520852 -0.0089320557 0.2296236
## 1985  0.02186271251  0.057188083  0.0616341908 0.2315491
## 1986  0.00857454200  0.173333106  0.2803820769 0.2392384
## 1987  0.01366348346  0.062904465  0.0865629035 0.2571055
## 1988  0.01403047710  0.044691503  0.0565670935 0.2677813
## 1989  0.00839073331  0.039299401  0.0476722203 0.2793907
## 1990 -0.00332864068  0.035775784  0.0988287171 0.2888087
## 1991  0.00094973467  0.029909891  0.0817956000 0.3080391
## 1992  0.00340124603  0.016685229  0.0530528299 0.3269764
## 1993 -0.00359590053 -0.011187124 -0.0152066659 0.3329883
## 1994  0.01573543866 -0.011910912 -0.0183512613 0.3708380
## 1995  0.00404340907  0.014130296  0.0047951863 0.3978010
## 1996  0.00693161286  0.017757302  0.0328062685 0.4209728
## 1997  0.00292640870  0.001363118 -0.0089617725 0.4613496
## 1998  0.00365921278  0.028932040  0.0475623808 0.4907124
## 1999  0.00055426185 -0.002742174  0.0214334338 0.5208130
## 2000  0.00543012304 -0.035544996 -0.0679883974 0.5442914
## 2001  0.00214705071  0.017246210  0.0422078730 0.5435662
## 2002 -0.00356982714  0.028136138  0.0633873304 0.5427697
## 2003 -0.00403123783  0.013258168  0.0543964238 0.5526020
## 2004 -0.00250295849 -0.003227757  0.0166635957 0.5740185
## 2005 -0.00302296324  0.008598914  0.0086344588 0.5793502
## 2006 -0.00009790747  0.005182949  0.0007479144 0.5934891
## 2007 -0.00194417003  0.008602767  0.0173855992 0.6184122
## 2008 -0.00721054807 -0.016337948 -0.0202934266 0.5916522
## 2009 -0.00852923130  0.045052083  0.0740501751 0.5230447
## 2010  0.01142513509 -0.028255085 -0.0611892551 0.5616610
## 2011  0.00382842433 -0.036344092 -0.0789381695 0.5868079
## 2012 -0.00203335253 -0.010937604 -0.0345795143 0.5899820
## 2013  0.00445503521  0.014007381  0.0245116422 0.6115757
## 2014  0.00583912323 -0.008274141  0.0065986086 0.6369609
## 2015  0.01614578044  0.004894936  0.0052271072 0.6421264
## 2016  0.01042413839  0.004285002  0.0192293240 0.6486312
## 2017  0.00780551910 -0.008186210 -0.0196831586 0.6688472
## 2018  0.00349343531 -0.016281198 -0.0160680753 0.6711751

Adjusted Dickey-fuller testet I(0)

adf.ESP.WS <- adf.test((ESP$WS), alternative = c("stationary"), k = 2)
adf.ESP.PS <- adf.test((ESP$PS), alternative = c("stationary"), k = 2)
adf.ESP.Y <- adf.test((ESP$Y), alternative = c("stationary"), k = 2)
adf.ESP.Yrw <- adf.test((ESP$Yrw), alternative = c("stationary"), k = 2)
adf.ESP.r <- adf.test((ESP$r), alternative = c("stationary"), k = 2)
adf.ESP.R <- adf.test((ESP$R), alternative = c("stationary"), k = 2)
adf.ESP.Tau <- adf.test((ESP$Tau), alternative = c("stationary"), k = 2)
adf.ESP.rulc <- adf.test((ESP$rulc), alternative = c("stationary"), k = 2)
adf.ESP.ulc <- adf.test((ESP$ulc), alternative = c("stationary"), k = 2)
adf.ESP.P <- adf.test((ESP$P), alternative = c("stationary"), k = 2)
adf.ESP.Pm <- adf.test((ESP$Pm), alternative = c("stationary"), k = 2)
adf.ESP.Px <- adf.test((ESP$Px), alternative = c("stationary"), k = 2)
adf.ESP.X <- adf.test((ESP$X), alternative = c("stationary"), k = 2)
adf.ESP.M <- adf.test((ESP$M), alternative = c("stationary"), k = 2)
adf.ESP.I <- adf.test((ESP$I), alternative = c("stationary"), k = 2)
adf.ESP.C <- adf.test((ESP$C), alternative = c("stationary"), k = 2)
adf.ESP.Ipr <- adf.test((ESP$Ipr), alternative = c("stationary"), k = 2)
adf.ESP.Ips <- adf.test((ESP$Ips), alternative = c("stationary"), k = 2)
adf.ESP.It <- adf.test((ESP$It), alternative = c("stationary"), k = 2)
adf.ESP.Itcurr <- adf.test((ESP$Itcurr), alternative = c("stationary"), k = 2)
adf.ESP.Yf <- adf.test((ESP$Yf), alternative = c("stationary"), k = 2)
adf.ESP.W <- adf.test((ESP$W), alternative = c("stationary"), k = 2)

adf.ESP.WS.pval <- adf.ESP.WS$p.value
adf.ESP.PS.pval <- adf.ESP.PS$p.value
adf.ESP.Y.pval <- adf.ESP.Y$p.value
adf.ESP.Yrw.pval <- adf.ESP.Yrw$p.value
adf.ESP.r.pval <- adf.ESP.r$p.value
adf.ESP.R.pval <- adf.ESP.R$p.value
adf.ESP.Tau.pval <- adf.ESP.Tau$p.value
adf.ESP.rulc.pval <- adf.ESP.rulc$p.value
adf.ESP.ulc.pval <- adf.ESP.ulc$p.value
adf.ESP.P.pval <- adf.ESP.P$p.value
adf.ESP.Pm.pval <- adf.ESP.Pm$p.value
adf.ESP.Px.pval <- adf.ESP.Px$p.value
adf.ESP.X.pval <- adf.ESP.X$p.value
adf.ESP.M.pval <- adf.ESP.M$p.value
adf.ESP.I.pval <- adf.ESP.I$p.value
adf.ESP.C.pval <- adf.ESP.C$p.value
adf.ESP.Ipr.pval <- adf.ESP.Ipr$p.value
adf.ESP.Ips.pval <- adf.ESP.Ips$p.value
adf.ESP.It.pval <- adf.ESP.It$p.value
adf.ESP.Itcurr.pval <- adf.ESP.Itcurr$p.value
adf.ESP.Yf.pval <- adf.ESP.Yf$p.value
adf.ESP.W.pval <- adf.ESP.W$p.value

adf.ESP_non <- rbind(adf.ESP.WS.pval,adf.ESP.PS.pval,adf.ESP.Y.pval,adf.ESP.Yrw.pval,adf.ESP.r.pval,adf.ESP.R.pval,adf.ESP.Tau.pval,adf.ESP.rulc.pval,adf.ESP.ulc.pval,adf.ESP.P.pval,adf.ESP.Pm.pval,adf.ESP.Px.pval,adf.ESP.X.pval,adf.ESP.M.pval,adf.ESP.I.pval,adf.ESP.C.pval,adf.ESP.Ipr.pval,adf.ESP.Ips.pval,adf.ESP.It.pval,adf.ESP.Itcurr.pval,adf.ESP.Yf.pval,adf.ESP.W.pval)


colnames(adf.ESP_non) <- c("ESP")
rownames(adf.ESP_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.ESP_non
##               ESP
## WS     0.01000000
## PS     0.01000000
## Y      0.42427329
## Yrw    0.29251439
## r      0.53039595
## R      0.35450848
## Tau    0.25037330
## rulc   0.01000000
## ulc    0.96465845
## P      0.82246775
## Pm     0.02411503
## Px     0.41888352
## X      0.61445078
## M      0.66484723
## I      0.45001072
## C      0.38961419
## Ipr    0.42210839
## Ips    0.25798347
## It     0.45443342
## Itcurr 0.38143671
## Yf     0.49915364
## W      0.27396630

Adjusted Dickey-fuller testet I(1)

adf.ESP.WS_dl <- adf.test((ESP$WS_dl), alternative = c("stationary"), k = 2)
adf.ESP.PS_dl <- adf.test((ESP$PS_dl), alternative = c("stationary"), k = 2)
adf.ESP.Y_dl <- adf.test((ESP$Y_dl), alternative = c("stationary"), k = 2)
adf.ESP.Yrw_dl <- adf.test((ESP$Yrw_dl), alternative = c("stationary"), k = 2)
adf.ESP.r_dl <- adf.test((ESP$r_dl), alternative = c("stationary"), k = 2)
adf.ESP.R_dl <- adf.test((ESP$R_dl), alternative = c("stationary"), k = 2)
adf.ESP.Tau_dl <- adf.test((ESP$Tau_dl), alternative = c("stationary"), k = 2)
adf.ESP.rulc_dl <- adf.test((ESP$rulc_dl), alternative = c("stationary"), k = 2)
adf.ESP.ulc_dl <- adf.test((ESP$ulc_dl), alternative = c("stationary"), k = 2)
adf.ESP.P_dl <- adf.test((ESP$P_dl), alternative = c("stationary"), k = 2)
adf.ESP.Pm_dl <- adf.test((ESP$Pm_dl), alternative = c("stationary"), k = 2)
adf.ESP.Px_dl <- adf.test((ESP$Px_dl), alternative = c("stationary"), k = 2)
adf.ESP.X_dl <- adf.test((ESP$X_dl), alternative = c("stationary"), k = 2)
adf.ESP.M_dl <- adf.test((ESP$M_dl), alternative = c("stationary"), k = 2)
adf.ESP.I_dl <- adf.test((ESP$I_dl), alternative = c("stationary"), k = 2)
adf.ESP.C_dl <- adf.test((ESP$C_dl), alternative = c("stationary"), k = 2)
adf.ESP.Ipr_dl <- adf.test((ESP$Ipr_dl), alternative = c("stationary"), k = 2)
adf.ESP.Ips_dl <- adf.test((ESP$Ips_dl), alternative = c("stationary"), k = 2)
adf.ESP.It_dl <- adf.test((ESP$It_dl), alternative = c("stationary"), k = 2)
adf.ESP.Itcurr_dl <- adf.test((ESP$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.ESP.Yf_dl <- adf.test((ESP$Yf_dl), alternative = c("stationary"), k = 2)
adf.ESP.W_dl <- adf.test((ESP$W_dl), alternative = c("stationary"), k = 2)

adf.ESP.WS_dl.pval <- adf.ESP.WS_dl$p.value
adf.ESP.PS_dl.pval <- adf.ESP.PS_dl$p.value
adf.ESP.Y_dl.pval <- adf.ESP.Y_dl$p.value
adf.ESP.Yrw_dl.pval <- adf.ESP.Yrw_dl$p.value
adf.ESP.r_dl.pval <- adf.ESP.r_dl$p.value
adf.ESP.R_dl.pval <- adf.ESP.R_dl$p.value
adf.ESP.Tau_dl.pval <- adf.ESP.Tau_dl$p.value
adf.ESP.rulc_dl.pval <- adf.ESP.rulc_dl$p.value
adf.ESP.ulc_dl.pval <- adf.ESP.ulc_dl$p.value
adf.ESP.P_dl.pval <- adf.ESP.P_dl$p.value
adf.ESP.Pm_dl.pval <- adf.ESP.Pm_dl$p.value
adf.ESP.Px_dl.pval <- adf.ESP.Px_dl$p.value
adf.ESP.X_dl.pval <- adf.ESP.X_dl$p.value
adf.ESP.M_dl.pval <- adf.ESP.M_dl$p.value
adf.ESP.I_dl.pval <- adf.ESP.I_dl$p.value
adf.ESP.C_dl.pval <- adf.ESP.C_dl$p.value
adf.ESP.Ipr_dl.pval <- adf.ESP.Ipr_dl$p.value
adf.ESP.Ips_dl.pval <- adf.ESP.Ips_dl$p.value
adf.ESP.It_dl.pval <- adf.ESP.It_dl$p.value
adf.ESP.Itcurr_dl.pval <- adf.ESP.Itcurr_dl$p.value
adf.ESP.Yf_dl.pval <- adf.ESP.Yf_dl$p.value
adf.ESP.W_dl.pval <- adf.ESP.W_dl$p.value

adf.ESP_dl <- rbind(adf.ESP.WS_dl.pval,adf.ESP.PS_dl.pval,adf.ESP.Y_dl.pval,adf.ESP.Yrw_dl.pval,adf.ESP.r_dl.pval,adf.ESP.R_dl.pval,adf.ESP.Tau_dl.pval,adf.ESP.rulc_dl.pval,adf.ESP.ulc_dl.pval,adf.ESP.P_dl.pval,adf.ESP.Pm_dl.pval,adf.ESP.Px_dl.pval,adf.ESP.X_dl.pval,adf.ESP.M_dl.pval,adf.ESP.I_dl.pval,adf.ESP.C_dl.pval,adf.ESP.Ipr_dl.pval,adf.ESP.Ips_dl.pval,adf.ESP.It_dl.pval,adf.ESP.Itcurr_dl.pval,adf.ESP.Yf_dl.pval,adf.ESP.W_dl.pval)
colnames(adf.ESP_dl) <- c("ESP")
rownames(adf.ESP_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.ESP_dl
##                     ESP
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.26314884
## dlog(Yrw)    0.03929903
## dlog(r)      0.01000000
## dlog(R)      0.01000000
## dlog(Tau)    0.44288103
## dlog(rulc)   0.01000000
## dlog(ulc)    0.06711822
## dlog(P)      0.69677226
## dlog(Pm)     0.04642549
## dlog(Px)     0.17981606
## dlog(X)      0.53111674
## dlog(M)      0.30092707
## dlog(I)      0.19873184
## dlog(C)      0.22799563
## dlog(Ipr)    0.27334015
## dlog(Ips)    0.01161244
## dlog(It)     0.27148704
## dlog(Itcurr) 0.35872375
## dlog(Yf)     0.20049026
## dlog(W)      0.09432435
adf.ESP <- NULL
adf.ESP <- rbind(adf.ESP_non,adf.ESP_dl)

Økonometriske test

#Consumption (C)
ESP_consumption <- dynlm(ESP$C_dl~ESP$R_dl+ESP$W_dl)
ESP_CR <- summary(ESP_consumption)$coefficients["ESP$R_dl","Estimate"]
ESP_CW <- summary(ESP_consumption)$coefficients["ESP$W_dl","Estimate"]
ESP_Ceffekt <- (ESP_CR*mean(ESP$C/ESP$R))-(ESP_CW*mean(ESP$C/ESP$W))
summary(ESP_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$C_dl ~ ESP$R_dl + ESP$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.041450 -0.006497  0.001639  0.007662  0.018305 
## 
## Coefficients:
##              Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.0008884  0.0024328   0.365             0.717    
## ESP$R_dl    0.2600981  0.0515459   5.046 0.000012237700334 ***
## ESP$W_dl    0.7545627  0.0713556  10.575 0.000000000000979 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01119 on 37 degrees of freedom
## Multiple R-squared:  0.7989, Adjusted R-squared:  0.788 
## F-statistic: 73.48 on 2 and 37 DF,  p-value: 0.0000000000001301
#Investments (I)
ESP_investment <- dynlm(ESP$I_dl~ESP$PS_dl+ESP$Y_dl)
ESP_iPS <- summary(ESP_investment)$coefficients["ESP$PS_dl","Estimate"]
ESP_iPS <- 0
ESP_Ieffekt <- ESP_iPS*mean(ESP$I/ESP$R)
summary(ESP_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$I_dl ~ ESP$PS_dl + ESP$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.106473 -0.020212  0.001693  0.018563  0.106216 
## 
## Coefficients:
##              Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) -0.040951   0.009084  -4.508 0.00006371744441 ***
## ESP$PS_dl    0.014864   0.225516   0.066            0.948    
## ESP$Y_dl     2.940138   0.291862  10.074 0.00000000000375 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0391 on 37 degrees of freedom
## Multiple R-squared:  0.7328, Adjusted R-squared:  0.7184 
## F-statistic: 50.74 on 2 and 37 DF,  p-value: 0.00000000002487
#Price deflator (P)
ESP_deflator <- dynlm(ESP$P_dl~L(ESP$ulc_dl)+ESP$Pm_dl)
ESP_ePULC <- summary(ESP_deflator)$coefficients["L(ESP$ulc_dl)","Estimate"]
summary(ESP_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$P_dl ~ L(ESP$ulc_dl) + ESP$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.039569 -0.005817 -0.000328  0.005650  0.036014 
## 
## Coefficients:
##               Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)   0.011818   0.003185    3.71             0.000677 ***
## L(ESP$ulc_dl) 0.881983   0.061020   14.45 < 0.0000000000000002 ***
## ESP$Pm_dl     0.023237   0.031414    0.74             0.464138    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01461 on 37 degrees of freedom
## Multiple R-squared:  0.8792, Adjusted R-squared:  0.8727 
## F-statistic: 134.7 on 2 and 37 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
ESP_exportdeflator <- dynlm(ESP$Px_dl~ESP$ulc_dl+ESP$Pm_dl)
ESP_ePX <- summary(ESP_exportdeflator)$coefficients["ESP$ulc_dl","Estimate"]
summary(ESP_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$Px_dl ~ ESP$ulc_dl + ESP$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.027828 -0.012717 -0.000861  0.008856  0.038850 
## 
## Coefficients:
##             Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.009812   0.003798   2.583            0.0139 *  
## ESP$ulc_dl  0.400868   0.072756   5.510 0.000002896453344 ***
## ESP$Pm_dl   0.401341   0.037455  10.715 0.000000000000675 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01741 on 37 degrees of freedom
## Multiple R-squared:  0.8673, Adjusted R-squared:  0.8601 
## F-statistic: 120.9 on 2 and 37 DF,  p-value: < 0.00000000000000022
#Exports (X)
ESP_exports <- dynlm(ESP$X_dl~L(ESP$dPxdPm)+ESP$Yrw_dl)
ESP_eXP <- summary(ESP_exports)$coefficients["L(ESP$dPxdPm)","Estimate"]
ESP_Xeffekt <- -(ESP_eXP*ESP_ePX*(1/(1-ESP_ePULC))*mean(ESP$Yf/ESP$Y)*(mean(ESP$X/ESP$Y)/mean(ESP$rulc)))
summary(ESP_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$X_dl ~ L(ESP$dPxdPm) + ESP$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.069650 -0.026805 -0.000702  0.020051  0.079695 
## 
## Coefficients:
##                Estimate Std. Error t value  Pr(>|t|)    
## (Intercept)    0.008693   0.010966   0.793    0.4330    
## L(ESP$dPxdPm) -0.365545   0.117171  -3.120    0.0035 ** 
## ESP$Yrw_dl     1.959794   0.401395   4.882 0.0000203 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03476 on 37 degrees of freedom
## Multiple R-squared:  0.4496, Adjusted R-squared:  0.4198 
## F-statistic: 15.11 on 2 and 37 DF,  p-value: 0.00001595
#Imports (M)
ESP_imports <- dynlm(ESP$M_dl~ESP$dPdPm+L(ESP$Y_dl))
ESP_eMP <- summary(ESP_imports)$coefficients["ESP$dPdPm","Estimate"]
ESP_Meffekt <- (-1)*((ESP_eMP*ESP_ePULC*(1/(1-ESP_ePULC))*mean(ESP$Yf/ESP$Y)*(mean(ESP$M/ESP$Y)/mean(ESP$rulc))))
summary(ESP_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$M_dl ~ ESP$dPdPm + L(ESP$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.111445 -0.026224  0.006485  0.031635  0.093240 
## 
## Coefficients:
##              Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) -0.003449   0.009947  -0.347        0.7308    
## ESP$dPdPm    0.195820   0.097831   2.002        0.0527 .  
## L(ESP$Y_dl)  2.652739   0.338115   7.846 0.00000000218 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04391 on 37 degrees of freedom
## Multiple R-squared:  0.6782, Adjusted R-squared:  0.6609 
## F-statistic:    39 on 2 and 37 DF,  p-value: 0.000000000775
names(ESP_consumption$coefficients) <- sub("ESP$","",names(ESP_consumption$coefficients),fixed=TRUE)
names(ESP_investment$coefficients) <- sub("ESP$","",names(ESP_investment$coefficients),fixed=TRUE)
names(ESP_deflator$coefficients) <- sub("ESP$","",names(ESP_deflator$coefficients),fixed=TRUE)
names(ESP_exportdeflator$coefficients) <- sub("ESP$","",names(ESP_exportdeflator$coefficients),fixed=TRUE)
names(ESP_exports$coefficients) <- sub("ESP$","",names(ESP_exports$coefficients),fixed=TRUE)
names(ESP_imports$coefficients) <- sub("ESP$","",names(ESP_imports$coefficients),fixed=TRUE)

ESP_Xeffekt
## [1] 0.4273438
ESP_Meffekt
## [1] -0.500883
#Nettoeksport (NX)
ESP_NXeffekt <- ESP_Xeffekt - ESP_Meffekt

ESP_NXeffekt
## [1] 0.9282268
#Nettoeffekten
ESP_Neteffekt = ESP_Ceffekt + ESP_Ieffekt + ESP_NXeffekt

ESP_Neteffekt
## [1] 0.6371069
ESP_Lukket <- ESP_Ceffekt + ESP_Ieffekt
ESP_Lukket_Konklusion <- ifelse(ESP_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
ESP_Lukket_Konklusion
## [1] "Wage-led domestic"
ESP_Def <- ifelse(ESP_Neteffekt > 0, "Profit-led", "Wage-led")
ESP_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=ESP_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.029242 -0.004178  0.002079  0.007071  0.022548 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -3.1194     2.2600  -1.380    0.189
## z.diff.lag1    2.1280     2.1501   0.990    0.339
## z.diff.lag2    1.7958     2.0182   0.890    0.389
## z.diff.lag3    1.7684     1.8660   0.948    0.359
## z.diff.lag4    1.3107     1.6960   0.773    0.452
## z.diff.lag5    1.2877     1.5554   0.828    0.422
## z.diff.lag6    0.8895     1.4051   0.633    0.537
## z.diff.lag7    0.9525     1.2395   0.769    0.455
## z.diff.lag8    0.5309     1.0521   0.505    0.622
## z.diff.lag9    0.5211     0.8980   0.580    0.571
## z.diff.lag10   0.2057     0.7981   0.258    0.800
## z.diff.lag11   0.2028     0.5902   0.344    0.736
## z.diff.lag12  -0.1345     0.4194  -0.321    0.753
## 
## Residual standard error: 0.01397 on 14 degrees of freedom
## Multiple R-squared:  0.598,  Adjusted R-squared:  0.2246 
## F-statistic: 1.602 on 13 and 14 DF,  p-value: 0.1965
## 
## 
## Value of test-statistic is: -1.3803 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ESP_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.079857 -0.019571 -0.004027  0.011958  0.036962 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1       -2.7225     1.2780  -2.130   0.0514 .
## z.diff.lag1    2.1741     1.1869   1.832   0.0883 .
## z.diff.lag2    1.9923     1.1154   1.786   0.0957 .
## z.diff.lag3    1.5865     1.0812   1.467   0.1644  
## z.diff.lag4    1.9850     1.0263   1.934   0.0736 .
## z.diff.lag5    1.3666     0.9711   1.407   0.1812  
## z.diff.lag6    1.3868     0.8708   1.593   0.1336  
## z.diff.lag7    1.2380     0.7424   1.668   0.1176  
## z.diff.lag8    1.0119     0.6648   1.522   0.1502  
## z.diff.lag9    1.1462     0.5876   1.950   0.0714 .
## z.diff.lag10   0.8136     0.5391   1.509   0.1535  
## z.diff.lag11   0.3748     0.4154   0.902   0.3822  
## z.diff.lag12   0.3449     0.3291   1.048   0.3124  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03613 on 14 degrees of freedom
## Multiple R-squared:  0.6343, Adjusted R-squared:  0.2948 
## F-statistic: 1.868 on 13 and 14 DF,  p-value: 0.1296
## 
## 
## Value of test-statistic is: -2.1304 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ESP_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.023122 -0.009889 -0.001132  0.008794  0.031738 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.57938    0.30860  -1.877   0.0814 .
## z.diff.lag1   0.06638    0.30911   0.215   0.8331  
## z.diff.lag2  -0.14297    0.26747  -0.535   0.6014  
## z.diff.lag3   0.48280    0.26454   1.825   0.0894 .
## z.diff.lag4   0.59092    0.27349   2.161   0.0485 *
## z.diff.lag5   0.34055    0.25627   1.329   0.2051  
## z.diff.lag6   0.46629    0.25180   1.852   0.0853 .
## z.diff.lag7  -0.08727    0.19818  -0.440   0.6664  
## z.diff.lag8  -0.02695    0.20430  -0.132   0.8969  
## z.diff.lag9  -0.18556    0.19998  -0.928   0.3692  
## z.diff.lag10  0.27476    0.18497   1.485   0.1596  
## z.diff.lag11  0.05139    0.16238   0.316   0.7563  
## z.diff.lag12  0.29205    0.16502   1.770   0.0985 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01897 on 14 degrees of freedom
## Multiple R-squared:  0.7579, Adjusted R-squared:  0.5332 
## F-statistic: 3.372 on 13 and 14 DF,  p-value: 0.01573
## 
## 
## Value of test-statistic is: -1.8775 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ESP_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.07676 -0.02327 -0.01362  0.01758  0.09662 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.93576    0.67298  -1.390    0.186
## z.diff.lag1   0.28629    0.64174   0.446    0.662
## z.diff.lag2   0.15478    0.57867   0.267    0.793
## z.diff.lag3   0.44359    0.54750   0.810    0.431
## z.diff.lag4   0.16526    0.51797   0.319    0.754
## z.diff.lag5   0.01842    0.51852   0.036    0.972
## z.diff.lag6   0.08821    0.50524   0.175    0.864
## z.diff.lag7   0.34973    0.47698   0.733    0.476
## z.diff.lag8   0.44174    0.43777   1.009    0.330
## z.diff.lag9   0.23787    0.47000   0.506    0.621
## z.diff.lag10  0.28568    0.45271   0.631    0.538
## z.diff.lag11 -0.07294    0.38237  -0.191    0.851
## z.diff.lag12  0.11183    0.30778   0.363    0.722
## 
## Residual standard error: 0.04683 on 14 degrees of freedom
## Multiple R-squared:  0.5459, Adjusted R-squared:  0.1243 
## F-statistic: 1.295 on 13 and 14 DF,  p-value: 0.3183
## 
## 
## Value of test-statistic is: -1.3905 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(ESP_consumption)

plot(ESP_investment)

plot(ESP_deflator)

plot(ESP_exportdeflator)

plot(ESP_exports)

plot(ESP_imports)

bptest(ESP_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  ESP_consumption
## BP = 2.1008, df = 2, p-value = 0.3498
bptest(ESP_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  ESP_investment
## BP = 18.14, df = 2, p-value = 0.0001151
bptest(ESP_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  ESP_deflator
## BP = 4.2435, df = 2, p-value = 0.1198
bptest(ESP_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  ESP_exportdeflator
## BP = 8.3546, df = 2, p-value = 0.01534
bptest(ESP_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  ESP_exports
## BP = 1.3401, df = 2, p-value = 0.5117
bptest(ESP_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  ESP_imports
## BP = 8.7329, df = 2, p-value = 0.0127
resettest(ESP_consumption)
## 
##  RESET test
## 
## data:  ESP_consumption
## RESET = 0.24127, df1 = 2, df2 = 35, p-value = 0.7869
resettest(ESP_investment)
## 
##  RESET test
## 
## data:  ESP_investment
## RESET = 0.96459, df1 = 2, df2 = 35, p-value = 0.391
resettest(ESP_deflator)
## 
##  RESET test
## 
## data:  ESP_deflator
## RESET = 0.016709, df1 = 2, df2 = 35, p-value = 0.9834
resettest(ESP_exportdeflator)
## 
##  RESET test
## 
## data:  ESP_exportdeflator
## RESET = 5.3044, df1 = 2, df2 = 35, p-value = 0.009724
resettest(ESP_exports)
## 
##  RESET test
## 
## data:  ESP_exports
## RESET = 1.3338, df1 = 2, df2 = 35, p-value = 0.2765
resettest(ESP_imports)
## 
##  RESET test
## 
## data:  ESP_imports
## RESET = 5.1372, df1 = 2, df2 = 35, p-value = 0.01106

Resultater

ESP_regtab <- matrix(c(ESP_Ceffekt, ESP_Ieffekt, ESP_Lukket, ESP_Xeffekt, ESP_Meffekt, ESP_NXeffekt, ESP_Neteffekt,ESP_Lukket_Konklusion, ESP_Def),ncol=9,byrow=TRUE)
colnames(ESP_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(ESP_regtab) <- c("ESP")
ESP_regtab <- as.table(ESP_regtab)
ESP_regtab
##     consumption        investment Lukket neteffekt   exports          
## ESP -0.291119919577315 0          -0.291119919577315 0.427343778194796
##     imports            netexports       neteffect        
## ESP -0.500882998472134 0.92822677666693 0.637106857089615
##     Lukket konklusion Konklusion
## ESP Wage-led domestic Profit-led
ESP_smoke <- matrix(c(mean(ESP$C/ESP$R), mean(ESP$C/ESP$W), mean(ESP$I/ESP$R), ESP_CR, ESP_CW, ESP_iPS, ESP_ePULC, (1/(1-ESP_ePULC)), ESP_eXP, ESP_ePX, ESP_eMP, mean(ESP$Yf/ESP$Y), mean(ESP$X/ESP$Y), mean(ESP$rulc), (mean(ESP$X/ESP$Y)/mean(ESP$rulc))),ncol=15,byrow=TRUE)
colnames(ESP_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(ESP_smoke) <- c("ESP")
ESP_smoke <- as.table(ESP_smoke)
ESP_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## ESP  1.9002515  1.0408302  0.5112398  0.2600981  0.7545627  0.0000000
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## ESP  0.8819825  8.4733210 -0.3655447  0.4008679  0.1958202  0.9262527
##            X/Y       RULC (X/Y)/rulc
## ESP  0.2222021  0.5979923  0.3715801

Summary af regressioner

summary(ESP_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$C_dl ~ ESP$R_dl + ESP$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.041450 -0.006497  0.001639  0.007662  0.018305 
## 
## Coefficients:
##              Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.0008884  0.0024328   0.365             0.717    
## R_dl        0.2600981  0.0515459   5.046 0.000012237700334 ***
## W_dl        0.7545627  0.0713556  10.575 0.000000000000979 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01119 on 37 degrees of freedom
## Multiple R-squared:  0.7989, Adjusted R-squared:  0.788 
## F-statistic: 73.48 on 2 and 37 DF,  p-value: 0.0000000000001301
summary(ESP_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$I_dl ~ ESP$PS_dl + ESP$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.106473 -0.020212  0.001693  0.018563  0.106216 
## 
## Coefficients:
##              Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) -0.040951   0.009084  -4.508 0.00006371744441 ***
## PS_dl        0.014864   0.225516   0.066            0.948    
## Y_dl         2.940138   0.291862  10.074 0.00000000000375 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0391 on 37 degrees of freedom
## Multiple R-squared:  0.7328, Adjusted R-squared:  0.7184 
## F-statistic: 50.74 on 2 and 37 DF,  p-value: 0.00000000002487
summary(ESP_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$P_dl ~ L(ESP$ulc_dl) + ESP$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.039569 -0.005817 -0.000328  0.005650  0.036014 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.011818   0.003185    3.71             0.000677 ***
## L(ulc_dl)   0.881983   0.061020   14.45 < 0.0000000000000002 ***
## Pm_dl       0.023237   0.031414    0.74             0.464138    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01461 on 37 degrees of freedom
## Multiple R-squared:  0.8792, Adjusted R-squared:  0.8727 
## F-statistic: 134.7 on 2 and 37 DF,  p-value: < 0.00000000000000022
summary(ESP_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$Px_dl ~ ESP$ulc_dl + ESP$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.027828 -0.012717 -0.000861  0.008856  0.038850 
## 
## Coefficients:
##             Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.009812   0.003798   2.583            0.0139 *  
## ulc_dl      0.400868   0.072756   5.510 0.000002896453344 ***
## Pm_dl       0.401341   0.037455  10.715 0.000000000000675 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01741 on 37 degrees of freedom
## Multiple R-squared:  0.8673, Adjusted R-squared:  0.8601 
## F-statistic: 120.9 on 2 and 37 DF,  p-value: < 0.00000000000000022
summary(ESP_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$X_dl ~ L(ESP$dPxdPm) + ESP$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.069650 -0.026805 -0.000702  0.020051  0.079695 
## 
## Coefficients:
##              Estimate Std. Error t value  Pr(>|t|)    
## (Intercept)  0.008693   0.010966   0.793    0.4330    
## L(dPxdPm)   -0.365545   0.117171  -3.120    0.0035 ** 
## Yrw_dl       1.959794   0.401395   4.882 0.0000203 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03476 on 37 degrees of freedom
## Multiple R-squared:  0.4496, Adjusted R-squared:  0.4198 
## F-statistic: 15.11 on 2 and 37 DF,  p-value: 0.00001595
summary(ESP_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 40
## 
## Call:
## dynlm(formula = ESP$M_dl ~ ESP$dPdPm + L(ESP$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.111445 -0.026224  0.006485  0.031635  0.093240 
## 
## Coefficients:
##              Estimate Std. Error t value      Pr(>|t|)    
## (Intercept) -0.003449   0.009947  -0.347        0.7308    
## dPdPm        0.195820   0.097831   2.002        0.0527 .  
## L(Y_dl)      2.652739   0.338115   7.846 0.00000000218 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04391 on 37 degrees of freedom
## Multiple R-squared:  0.6782, Adjusted R-squared:  0.6609 
## F-statistic:    39 on 2 and 37 DF,  p-value: 0.000000000775

Sverige analyse

Test for NA værdier

SWE_df[!complete.cases(SWE_df),]
##             WS       WS_l        WS_dl        PS       PS_l        PS_dl
## 1960 0.6417200 -0.4436031           NA 0.3582800 -1.0264406           NA
## 1961 0.6446675 -0.4390206  0.004582545 0.3553325 -1.0347013 -0.008260718
## 1962 0.6639665 -0.4095236  0.029496959 0.3360335 -1.0905443 -0.055843000
## 1963 0.6720248 -0.3974600  0.012063659 0.3279752 -1.1148174 -0.024273084
## 1964 0.6616340 -0.4130428 -0.015582815 0.3383660 -1.0836270  0.031190361
## 1965 0.6635913 -0.4100888  0.002954043 0.3364087 -1.0894286 -0.005801612
## 1966 0.6738380 -0.3947656  0.015323176 0.3261620 -1.1203610 -0.030932396
## 1967 0.6709391 -0.3990769 -0.004311353 0.3290609 -1.1115124  0.008848649
## 1968 0.6858946 -0.3770313  0.022045634 0.3141054 -1.1580267 -0.046514315
## 1969 0.6825662 -0.3818958 -0.004864453 0.3174338 -1.1474860  0.010540694
## 1970 0.6686960 -0.4024257 -0.020529944 0.3313040 -1.1047190  0.042767037
## 2019 0.6224072 -0.4741607 -0.006885413 0.3775928 -0.9739390  0.011454124
## 2020 0.6310410 -0.4603844  0.013776257 0.3689590 -0.9970698 -0.023130777
## 2021 0.6360430 -0.4524892  0.007895240 0.3639570 -1.0107195 -0.013649634
## 2022        NA         NA           NA        NA         NA           NA
##             Y      Y_l        Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960 1040.387 6.947348          NA  8836882971777 29.80996         NA
## 1961 1099.689 7.002783  0.05543465  9262418918722 29.85699 0.04703103
## 1962 1146.976 7.044884  0.04210150  9805138831199 29.91393 0.05694138
## 1963 1207.765 7.096527  0.05164263 10345127148748 29.96754 0.05360898
## 1964 1289.894 7.162315  0.06578850 11017876760580 30.03054 0.06300351
## 1965 1338.909 7.199610  0.03729506 11617720815834 30.08355 0.05301248
## 1966 1367.026 7.220393  0.02078247 12328692836126 30.14295 0.05939771
## 1967 1413.505 7.253828  0.03343486 12899230129332 30.18819 0.04523833
## 1968 1464.391 7.289195  0.03536702 13705487995048 30.24882 0.06062871
## 1969 1537.611 7.337985  0.04879046 14498508360649 30.30507 0.05624944
## 1970 1637.556 7.400960  0.06297497 14868402164183 30.33026 0.02519253
## 2019 4610.915 8.436182  0.01224382             NA       NA         NA
## 2020 4331.369 8.373639 -0.06254266             NA       NA         NA
## 2021 4516.997 8.415603  0.04196373             NA       NA         NA
## 2022       NA       NA          NA             NA       NA         NA
##           Tax       Yf     Yf_l        Yf_dl        C      C_l        C_dl
## 1960   12.198 1028.189 6.935554           NA  583.205 6.368539          NA
## 1961   13.660 1086.029 6.990283  0.054728922  614.115 6.420182  0.05164345
## 1962   16.223 1130.753 7.030639  0.040355858  634.380 6.452648  0.03246594
## 1963   17.618 1190.147 7.081832  0.051193046  662.292 6.495707  0.04305840
## 1964   19.252 1270.642 7.147278  0.065445456  688.784 6.534928  0.03922118
## 1965   22.311 1316.598 7.182806  0.035528852  717.713 6.576070  0.04114204
## 1966   25.483 1341.543 7.201576  0.018769307  731.350 6.594892  0.01882237
## 1967   27.693 1385.812 7.234042  0.032465805  748.171 6.617632  0.02273942
## 1968   32.033 1432.358 7.267077  0.033035788  778.847 6.657815  0.04018306
## 1969   34.088 1503.523 7.315566  0.048488984  813.116 6.700874  0.04305916
## 1970   36.763 1600.793 7.378254  0.062688110  841.575 6.735275  0.03440136
## 2019 1110.707 3500.208 8.160578  0.008210845 2081.846 7.641010  0.01207397
## 2020 1062.301 3269.068 8.092260 -0.068317466 1972.985 7.587303 -0.05370738
## 2021 1111.436 3405.561 8.133165  0.040904755 2040.768 7.621081  0.03377858
## 2022       NA       NA       NA           NA       NA       NA          NA
##              W      W_l         W_dl         R      R_l        R_dl
## 1960  659.8095 6.491951           NA  368.3795 5.909114          NA
## 1961  700.1276 6.551263  0.059311467  385.9014 5.955582  0.04646820
## 1962  750.7821 6.621115  0.069852817  379.9709 5.940095 -0.01548714
## 1963  799.8083 6.684372  0.063256705  390.3387 5.967015  0.02691996
## 1964  840.6999 6.734235  0.049862641  429.9421 6.063651  0.09663582
## 1965  873.6830 6.772718  0.038482896  442.9150 6.093378  0.02972724
## 1966  903.9826 6.806810  0.034092483  437.5604 6.081215 -0.01216309
## 1967  929.7954 6.834965  0.028154452  456.0166 6.122529  0.04131445
## 1968  982.4466 6.890046  0.055081422  449.9114 6.109051 -0.01347853
## 1969 1026.2540 6.933671  0.043624531  477.2690 6.168080  0.05902968
## 1970 1070.4439 6.975829  0.042158166  530.3491 6.273535  0.10545515
## 2019 2178.5548 7.686417  0.001325432 1321.6532 7.186639  0.01966497
## 2020 2062.9160 7.631876 -0.054541210 1206.1520 7.095190 -0.09144824
## 2021 2166.0831 7.680676  0.048799995 1239.4779 7.122446  0.02725512
## 2022        NA       NA           NA        NA       NA          NA
##            It     It_l       It_dl   Itcurr Itcurr_l   Itcurr_dl      Ipr
## 1960  255.510 5.543262          NA   21.426 3.064605          NA       NA
## 1961  275.951 5.620223  0.07696177   23.906 3.174129  0.10952434       NA
## 1962  293.336 5.681319  0.06109540   26.511 3.277560  0.10343027       NA
## 1963  313.282 5.747104  0.06578503   29.273 3.376666  0.09910585       NA
## 1964  337.092 5.820356  0.07325215   33.086 3.499110  0.12244464       NA
## 1965  350.576 5.859578  0.03922163   36.574 3.599338  0.10022737       NA
## 1966  366.702 5.904550  0.04497201   39.951 3.687654  0.08831610       NA
## 1967  386.138 5.956195  0.05164529   43.420 3.770920  0.08326646       NA
## 1968  388.454 5.962175  0.00597994   44.335 3.791774  0.02085427       NA
## 1969  405.158 6.004277  0.04210236   46.763 3.845092  0.05331786       NA
## 1970  418.530 6.036749  0.03247146   50.775 3.927404  0.08231182   36.154
## 2019 1143.678 7.042005 -0.01177033 1263.341 7.141515  0.01086588 1018.874
## 2020  980.344 6.887904 -0.15410113 1095.913 6.999343 -0.14217199  849.579
## 2021 1046.370 6.953082  0.06517878 1180.249 7.073481  0.07413763  924.842
## 2022       NA       NA          NA       NA       NA          NA       NA
##         Ipr_l       Ipr_dl       Ips      Ips_l       Ips_dl        I
## 1960       NA           NA        NA         NA           NA       NA
## 1961       NA           NA        NA         NA           NA       NA
## 1962       NA           NA        NA         NA           NA       NA
## 1963       NA           NA        NA         NA           NA       NA
## 1964       NA           NA        NA         NA           NA       NA
## 1965       NA           NA        NA         NA           NA       NA
## 1966       NA           NA        NA         NA           NA       NA
## 1967       NA           NA        NA         NA           NA       NA
## 1968       NA           NA        NA         NA           NA       NA
## 1969       NA           NA        NA         NA           NA       NA
## 1970 3.587788           NA 0.7120433 -0.3396165           NA 298.0115
## 2019 6.926453  0.005733501 0.8064917 -0.2150617 -0.005132378 922.3668
## 2020 6.744741 -0.181712442 0.7752249 -0.2546022 -0.039540449 759.9870
## 2021 6.829623  0.084881979 0.7835991 -0.2438578  0.010744352 819.9345
## 2022       NA           NA        NA         NA           NA       NA
##           I_l        I_dl          r      r_l        r_dl          P
## 1960       NA          NA         NA       NA          NA   7.764002
## 1961       NA          NA  2.5372908 2.128381          NA   7.975463
## 1962       NA          NA  1.0163775 1.928668 -0.19971289   8.289189
## 1963       NA          NA  2.0922414 2.073952  0.14528397   8.518784
## 1964       NA          NA  1.2213253 1.958020 -0.11593153   8.890659
## 1965       NA          NA  0.1102703 1.787455 -0.17056487   9.429704
## 1966       NA          NA -0.0529716 1.759751 -0.02770459  10.054562
## 1967       NA          NA  0.9838757 1.923933  0.16418197  10.559971
## 1968       NA          NA  3.8275884 2.271254  0.34732156  10.811432
## 1969       NA          NA  3.5309037 2.240163 -0.03109108  11.170567
## 1970 5.697132          NA  2.2447393 2.092937 -0.14722565  11.732703
## 2019 6.826943 -0.01690271 -2.6097620 1.179946 -0.26115763 109.012398
## 2020 6.633301 -0.19364158         NA       NA          NA 110.110524
## 2021 6.709225  0.07592313         NA       NA          NA 111.536412
## 2022       NA          NA         NA       NA          NA         NA
##           P_l       P_dl        Pm     Pm_l        Pm_dl        Px
## 1960 2.049498         NA  10.67495 2.367900           NA  14.80987
## 1961 2.076370 0.02687174  10.72799 2.372856  0.004955721  14.87181
## 1962 2.114952 0.03858244  10.85533 2.384656  0.011800250  14.62738
## 1963 2.142274 0.02732142  11.03596 2.401159  0.016503054  14.78150
## 1964 2.185001 0.04272762  11.41285 2.434740  0.033580277  14.96749
## 1965 2.243865 0.05886349  11.62036 2.452759  0.018019298  15.27539
## 1966 2.308026 0.06416172  11.79326 2.467528  0.014769143  15.52869
## 1967 2.357071 0.04904412  11.95030 2.480757  0.013228513  15.74203
## 1968 2.380604 0.02353356  12.03962 2.488203  0.007446386  15.85974
## 1969 2.413282 0.03267827  12.36162 2.514596  0.026393398  16.36726
## 1970 2.462380 0.04909772  13.36560 2.592684  0.078087933  17.86613
## 2019 4.691462 0.02684413 111.68035 4.715641  0.028452333 109.97761
## 2020 4.701485 0.01002301 110.56619 4.705614 -0.010026458 109.03376
## 2021 4.714351 0.01286647 110.92038 4.708813  0.003198276 109.66102
## 2022       NA         NA        NA       NA           NA        NA
##          Px_l        Px_dl        X      X_l        X_dl        M      M_l
## 1960 2.695294           NA  115.955 4.753202          NA  165.355 5.108095
## 1961 2.699468  0.004173421  121.986 4.803906  0.05070410  165.686 5.110094
## 1962 2.682895 -0.016572324  131.867 4.881794  0.07788755  175.130 5.165529
## 1963 2.693377  0.010481323  141.492 4.952243  0.07044934  187.565 5.234125
## 1964 2.705881  0.012504122  158.471 5.065572  0.11332843  205.759 5.326706
## 1965 2.726243  0.020362642  167.346 5.120064  0.05449191  229.009 5.433761
## 1966 2.742689  0.016445976  175.546 5.167901  0.04783759  238.857 5.475865
## 1967 2.756334  0.013644887  185.201 5.221442  0.05354060  244.829 5.500560
## 1968 2.763784  0.007449580  199.276 5.294691  0.07324908  265.149 5.580292
## 1969 2.795283  0.031499452  222.193 5.403546  0.10885558  299.354 5.701627
## 1970 2.882907  0.087623407  241.301 5.486045  0.08249874  330.486 5.800564
## 2019 4.700277  0.033421525 2168.395 7.681743  0.04119542 1962.304 7.581875
## 2020 4.691658 -0.008619201 1907.348 7.553469 -0.12827347 1737.154 7.460003
## 2021 4.697394  0.005736328 2031.483 7.616521  0.06305227 1825.646 7.509689
## 2022       NA           NA       NA       NA          NA       NA       NA
##              M_dl      rulc     rulc_l      rulc_dl       ulc    ulc_l
## 1960           NA 0.6341962 -0.4553969           NA  4.923901 1.594101
## 1961  0.001999753 0.6366596 -0.4515201  0.003876814  5.077655 1.624850
## 1962  0.055434124 0.6545752 -0.4237688  0.027751316  5.425898 1.691183
## 1963  0.068596897 0.6622218 -0.4121547  0.011614075  5.641325 1.730119
## 1964  0.092580129 0.6517589 -0.4280806 -0.015925860  5.794566 1.756921
## 1965  0.107055723 0.6525336 -0.4268927  0.001187837  6.153198 1.816972
## 1966  0.042103742 0.6612768 -0.4135827  0.013310009  6.648849 1.894444
## 1967  0.024694961 0.6577942 -0.4188631 -0.005280406  6.946288 1.938207
## 1968  0.079731924 0.6708909 -0.3991487  0.019714401  7.253292 1.981455
## 1969  0.121334887 0.6674341 -0.4043146 -0.005165926  7.455617 2.008968
## 1970  0.098937479 0.6536839 -0.4251315 -0.020816807  7.669479 2.037249
## 2019  0.017824393 0.4724778 -0.7497646 -0.010918387 51.505934 3.941697
## 2020 -0.121871151 0.4762734 -0.7417631  0.008001451 52.442718 3.959721
## 2021  0.049685755 0.4795405 -0.7349269  0.006836260 53.486230 3.979424
## 2022           NA        NA         NA           NA        NA       NA
##          ulc_dl       Tau    Tau_l       Tau_dl          dPxdPm
## 1960         NA  60.39348 4.100881           NA              NA
## 1961 0.03074856  62.16525 4.129796  0.028914932 -0.000782300031
## 1962 0.06633376  63.20747 4.146422  0.016626333 -0.028372574641
## 1963 0.03893550  65.03628 4.174945  0.028522895 -0.006021730772
## 1964 0.02680176  67.78943 4.216406  0.041460892 -0.021076155567
## 1965 0.06005132  68.35024 4.224645  0.008238804  0.002343344387
## 1966 0.07747172  67.84711 4.217257 -0.007388171  0.001676833025
## 1967 0.04376371  68.87771 4.232333  0.015075836  0.000416373842
## 1968 0.04324796  69.33404 4.238936  0.006603368  0.000003193362
## 1969 0.02751234  70.72529 4.258803  0.019867116  0.005106054462
## 1970 0.02828092  72.93911 4.289625  0.030821766  0.009535474358
## 2019 0.01592574 100.43159 4.609477 -0.001338326  0.004969192034
## 2020 0.01802446  95.10159 4.554946 -0.054531096  0.001407257229
## 2021 0.01970273  97.97843 4.584747  0.029801588  0.002538052029
## 2022         NA        NA       NA           NA              NA
##             dPdPm     Trade
## 1960           NA 0.2703898
## 1961  0.021916020 0.2615940
## 1962  0.026782194 0.2676577
## 1963  0.010818370 0.2724512
## 1964  0.009147347 0.2823720
## 1965  0.040844190 0.2960283
## 1966  0.049392573 0.3031420
## 1967  0.035815607 0.3042296
## 1968  0.016087175 0.3171455
## 1969  0.006284873 0.3391931
## 1970 -0.028990209 0.3491710
## 2019 -0.001608206 0.8958523
## 2020  0.020049469 0.8414203
## 2021  0.009668198 0.8539144
## 2022           NA        NA
SWE <- SWE_df[12:59,]
SWE[!complete.cases(SWE),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
SWE %>% head()
##             WS       WS_l       WS_dl        PS      PS_l        PS_dl
## 1971 0.6880024 -0.3739629  0.02846277 0.3119976 -1.164760 -0.060040879
## 1972 0.6790216 -0.3871023 -0.01313935 0.3209784 -1.136382  0.028378256
## 1973 0.6560051 -0.4215866 -0.03448437 0.3439949 -1.067129  0.069253013
## 1974 0.6574204 -0.4194317  0.00215499 0.3425796 -1.071251 -0.004122527
## 1975 0.6656920 -0.4069281  0.01250353 0.3343080 -1.095693 -0.024441555
## 1976 0.6938923 -0.3654385  0.04148961 0.3061077 -1.183818 -0.088125625
##             Y      Y_l        Y_dl            Yrw    Yrw_l        Yrw_dl
## 1971 1652.294 7.409920 0.008959739 15455906232894 30.36901  0.0387529097
## 1972 1690.296 7.432659 0.022739036 16328160023200 30.42391  0.0549000153
## 1973 1757.908 7.471880 0.039220804 17364969843390 30.48548  0.0615637236
## 1974 1814.161 7.503378 0.031498636 17566406075099 30.49701  0.0115333828
## 1975 1861.329 7.529046 0.025667647 17548927546350 30.49601 -0.0009954928
## 1976 1881.804 7.539986 0.010940143 18423035268744 30.54462  0.0486089588
##         Tax       Yf     Yf_l       Yf_dl       C      C_l        C_dl
## 1971 46.689 1605.605 7.381256 0.003001501 842.417 6.736275 0.001000005
## 1972 48.901 1641.395 7.403302 0.022045857 871.060 6.769711 0.033435720
## 1973 55.426 1702.482 7.439842 0.036540696 893.707 6.795378 0.025667120
## 1974 57.648 1756.513 7.471086 0.031243407 924.093 6.828813 0.033434735
## 1975 70.340 1790.989 7.490523 0.019437387 949.968 6.856428 0.027615584
## 1976 83.297 1798.507 7.494712 0.004188895 989.867 6.897571 0.041142291
##             W      W_l        W_dl        R      R_l         R_dl      It
## 1971 1104.660 7.007293 0.031464273 500.9449 6.216496 -0.057039378 416.018
## 1972 1114.543 7.016199 0.008906508 526.8523 6.266920  0.050424114 433.490
## 1973 1116.837 7.018256 0.002056322 585.6450 6.372714  0.105793709 445.194
## 1974 1154.767 7.051654 0.033398398 601.7456 6.399835  0.027120880 431.838
## 1975 1192.247 7.083595 0.031940919 598.7419 6.394831 -0.005004167 445.225
## 1976 1247.970 7.129274 0.045678505 550.5368 6.310894 -0.083936730 453.683
##          It_l        It_dl Itcurr Itcurr_l  Itcurr_dl    Ipr    Ipr_l
## 1971 6.030729 -0.006020043 53.529 3.980224 0.05281946 38.942 3.662073
## 1972 6.071869  0.041140199 59.247 4.081715 0.10149158 43.349 3.769284
## 1973 6.098510  0.026641414 65.009 4.174526 0.09281058 49.119 3.894246
## 1974 6.068051 -0.030459624 72.095 4.277985 0.10345897 55.232 4.011542
## 1975 6.098580  0.030529254 82.479 4.412544 0.13455902 63.958 4.158227
## 1976 6.117399  0.018818944 94.456 4.548134 0.13559040 74.117 4.305645
##          Ipr_dl       Ips      Ips_l      Ips_dl        I      I_l
## 1971 0.07428577 0.7274935 -0.3181502 0.021466311 302.6504 5.712578
## 1972 0.10721028 0.7316657 -0.3124315 0.005718693 317.1698 5.759437
## 1973 0.12496229 0.7555723 -0.2802798 0.032151714 336.3763 5.818230
## 1974 0.11729657 0.7661003 -0.2664422 0.013837598 330.8312 5.801608
## 1975 0.14668412 0.7754459 -0.2543171 0.012125101 345.2479 5.844263
## 1976 0.14741831 0.7846722 -0.2424892 0.011827906 355.9925 5.874910
##             I_dl          r      r_l         r_dl        P      P_l
## 1971  0.01544627 -0.0102528 1.767075 -0.325862298 12.58227 2.532288
## 1972  0.04685889  0.2553483 1.811449  0.044373897 13.46513 2.600104
## 1973  0.05879313  0.2687755 1.813641  0.002191831 14.42010 2.668623
## 1974 -0.01662203 -1.7013599 1.426140 -0.387500988 15.81099 2.760705
## 1975  0.04265436 -4.8639601 0.000000 -1.426139927 18.08019 2.894817
## 1976  0.03064685 -2.3704762 1.250899  1.250899490 20.24517 3.007916
##            P_dl       Pm     Pm_l      Pm_dl       Px     Px_l      Px_dl
## 1971 0.06990840 14.04704 2.642412 0.04972749 18.61467 2.923950 0.04104361
## 1972 0.06781503 14.45788 2.671239 0.02882761 19.12309 2.950896 0.02694605
## 1973 0.06851961 16.35380 2.794461 0.12322121 21.20453 3.054215 0.10331869
## 1974 0.09208192 22.49071 3.113102 0.31864174 26.73354 3.285919 0.23170409
## 1975 0.13411156 23.53024 3.158286 0.04518405 30.24986 3.409491 0.12357242
## 1976 0.11309941 25.26007 3.229225 0.07093849 32.21488 3.472428 0.06293694
##            X      X_l        X_dl       M      M_l        M_dl      rulc
## 1971 252.884 5.532931  0.04688577 319.580 5.767008 -0.03355666 0.6685615
## 1972 267.804 5.590255  0.05732448 332.363 5.806228  0.03922011 0.6593773
## 1973 304.493 5.718648  0.12839273 355.296 5.872951  0.06672350 0.6353216
## 1974 320.631 5.770291  0.05164283 390.471 5.967354  0.09440246 0.6365297
## 1975 290.812 5.672677 -0.09761392 376.805 5.931728 -0.03562589 0.6405354
## 1976 303.317 5.714778  0.04210145 410.717 6.017904  0.08617660 0.6631775
##          rulc_l      rulc_dl       ulc    ulc_l     ulc_dl      Tau
## 1971 -0.4026269  0.022504534  8.412019 2.129662 0.09241294 72.14548
## 1972 -0.4164594 -0.013832528  8.878602 2.183644 0.05398250 72.16197
## 1973 -0.4536239 -0.037164482  9.161402 2.214999 0.03135513 73.42604
## 1974 -0.4517242  0.001899762 10.064163 2.308981 0.09398168 73.66458
## 1975 -0.4454509  0.006273272 11.580999 2.449366 0.14038483 73.51365
## 1976 -0.4107125  0.034738363 13.426139 2.597203 0.14783778 72.95724
##         Tau_l        Tau_dl       dPxdPm       dPdPm     Trade
## 1971 4.278685 -0.0109402676 -0.008683877  0.02018091 0.3464662
## 1972 4.278913  0.0002285232 -0.001881564  0.03898742 0.3550662
## 1973 4.296279  0.0173654991 -0.019902520 -0.05470160 0.3753262
## 1974 4.299522  0.0032433694 -0.086937647 -0.22655982 0.3919729
## 1975 4.297471 -0.0020509522  0.078388371  0.08892750 0.3586776
## 1976 4.289874 -0.0075975693 -0.008001542  0.04216093 0.3794412

DATA

SWE %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1971 0.6880024 -0.3739629  0.0284627722 0.3119976 -1.1647598 -0.0600408791
## 1972 0.6790216 -0.3871023 -0.0131393491 0.3209784 -1.1363816  0.0283782565
## 1973 0.6560051 -0.4215866 -0.0344843744 0.3439949 -1.0671286  0.0692530130
## 1974 0.6574204 -0.4194317  0.0021549902 0.3425796 -1.0712511 -0.0041225271
## 1975 0.6656920 -0.4069281  0.0125035316 0.3343080 -1.0956927 -0.0244415547
## 1976 0.6938923 -0.3654385  0.0414896103 0.3061077 -1.1838183 -0.0881256248
## 1977 0.7205583 -0.3277290  0.0377095156 0.2794417 -1.2749615 -0.0911431850
## 1978 0.7097105 -0.3428982 -0.0151691773 0.2902895 -1.2368765  0.0380849846
## 1979 0.6914847 -0.3689143 -0.0260161207 0.3085153 -1.1759837  0.0608927403
## 1980 0.6676725 -0.4039575 -0.0350432338 0.3323275 -1.1016343  0.0743494665
## 1981 0.6688849 -0.4021432  0.0018143004 0.3311151 -1.1052893 -0.0036550543
## 1982 0.6440417 -0.4399917 -0.0378485184 0.3559583 -1.0329418  0.0723475444
## 1983 0.6238233 -0.4718882 -0.0318964100 0.3761767 -0.9776962  0.0552455475
## 1984 0.6092925 -0.4954569 -0.0235687048 0.3907075 -0.9397960  0.0379002111
## 1985 0.6148524 -0.4863731  0.0090837490 0.3851476 -0.9541285 -0.0143324925
## 1986 0.6163561 -0.4839304  0.0024426924 0.3836439 -0.9580405 -0.0039119392
## 1987 0.6190568 -0.4795582  0.0043722099 0.3809432 -0.9651051 -0.0070645954
## 1988 0.6115516 -0.4917560 -0.0121978124 0.3884484 -0.9455948  0.0195102463
## 1989 0.6229261 -0.4733273  0.0184287119 0.3770739 -0.9753142 -0.0297194011
## 1990 0.6451044 -0.4383431  0.0349841966 0.3548956 -1.0359316 -0.0606174029
## 1991 0.6435240 -0.4407960 -0.0024528744 0.3564760 -1.0314883  0.0044433136
## 1992 0.6315192 -0.4596270 -0.0188309969 0.3684808 -0.9983666  0.0331217213
## 1993 0.6076394 -0.4981737 -0.0385467169 0.3923606 -0.9355739  0.0627926766
## 1994 0.5965855 -0.5165327 -0.0183589567 0.4034145 -0.9077908  0.0277831189
## 1995 0.5746377 -0.5540155 -0.0374827963 0.4253623 -0.8548141  0.0529766920
## 1996 0.6019799 -0.5075312  0.0464842679 0.3980201 -0.9212528 -0.0664387308
## 1997 0.6012331 -0.5087725 -0.0012413597 0.3987669 -0.9193783  0.0018745543
## 1998 0.5933435 -0.5219818 -0.0132092942 0.4066565 -0.8997864  0.0195919169
## 1999 0.5975899 -0.5148505  0.0071313208 0.4024101 -0.9102836 -0.0104972444
## 2000 0.6063506 -0.5002970  0.0145535659 0.3936494 -0.9322945 -0.0220109491
## 2001 0.6232068 -0.4728768  0.0274201271 0.3767932 -0.9760589 -0.0437643098
## 2002 0.6207948 -0.4767547 -0.0038778873 0.3792052 -0.9696777  0.0063811093
## 2003 0.6141922 -0.4874474 -0.0106926632 0.3858078 -0.9524159  0.0172618001
## 2004 0.6047033 -0.5030174 -0.0155700470 0.3952967 -0.9281185  0.0242973999
## 2005 0.6048278 -0.5028116  0.0002058649 0.3951722 -0.9284335 -0.0003150029
## 2006 0.5927771 -0.5229368 -0.0201252568 0.4072229 -0.8983946  0.0300389462
## 2007 0.6016136 -0.5081400  0.0147968674 0.3983864 -0.9203328 -0.0219382104
## 2008 0.6139392 -0.4878594  0.0202805765 0.3860608 -0.9517604 -0.0314276016
## 2009 0.6270343 -0.4667541  0.0211052941 0.3729657 -0.9862687 -0.0345083288
## 2010 0.6006039 -0.5098197 -0.0430656304 0.3993961 -0.9178015  0.0684672429
## 2011 0.6051425 -0.5022913  0.0075283934 0.3948575 -0.9292303 -0.0114288285
## 2012 0.6279948 -0.4652234  0.0370679380 0.3720052 -0.9888475 -0.0596171393
## 2013 0.6343211 -0.4552000  0.0100233627 0.3656789 -1.0059996 -0.0171521305
## 2014 0.6267625 -0.4671876 -0.0119875710 0.3732375 -0.9855403  0.0204592495
## 2015 0.6126624 -0.4899412 -0.0227536519 0.3873376 -0.9484586  0.0370817521
## 2016 0.6222362 -0.4744355  0.0155057135 0.3777638 -0.9734861 -0.0250275311
## 2017 0.6213846 -0.4758050 -0.0013694707 0.3786154 -0.9712345  0.0022516521
## 2018 0.6267076 -0.4672752  0.0085297500 0.3732924 -0.9853932 -0.0141586880
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1971 1652.294 7.409920  0.008959739 15455906232894 30.36901  0.0387529097
## 1972 1690.296 7.432659  0.022739036 16328160023200 30.42391  0.0549000153
## 1973 1757.908 7.471880  0.039220804 17364969843390 30.48548  0.0615637236
## 1974 1814.161 7.503378  0.031498636 17566406075099 30.49701  0.0115333828
## 1975 1861.329 7.529046  0.025667647 17548927546350 30.49601 -0.0009954928
## 1976 1881.804 7.539986  0.010940143 18423035268744 30.54462  0.0486089588
## 1977 1851.695 7.523857 -0.016129455 19142430861457 30.58293  0.0383055838
## 1978 1885.025 7.541696  0.017839648 19935631965252 30.62353  0.0406012994
## 1979 1956.657 7.578993  0.037296321 20769265266609 30.66450  0.0409655809
## 1980 2006.533 7.604164  0.025170952 21080161711640 30.67935  0.0148581325
## 1981 2002.455 7.602129 -0.002034429 21508822450888 30.69948  0.0201308025
## 1982 2027.459 7.614539  0.012409357 21501467194715 30.69914 -0.0003420231
## 1983 2065.993 7.633366  0.018827698 22085300016805 30.72593  0.0267910552
## 1984 2153.375 7.674792  0.041425396 23095384978865 30.77065  0.0447205835
## 1985 2199.896 7.696165  0.021373708 23926916691954 30.80603  0.0353712335
## 1986 2259.102 7.722723  0.026557303 24703194717168 30.83795  0.0319285294
## 1987 2334.869 7.755711  0.032988398 25573602477374 30.87258  0.0346280902
## 1988 2394.619 7.780979  0.025268350 26812508484438 30.91989  0.0473078469
## 1989 2458.192 7.807181  0.026201984 27854898183915 30.95803  0.0381403151
## 1990 2476.743 7.814700  0.007518270 28727117175726 30.98886  0.0308326978
## 1991 2448.360 7.803174 -0.011525978 29159943411392 31.00382  0.0149544405
## 1992 2419.994 7.791520 -0.011653352 29766278121549 31.02440  0.0205801796
## 1993 2370.006 7.770648 -0.020872574 30123356376777 31.03632  0.0119246841
## 1994 2464.143 7.809599  0.038951593 31084098080500 31.06772  0.0313955425
## 1995 2562.670 7.848805  0.039205604 31989969846690 31.09644  0.0287260387
## 1996 2604.054 7.864825  0.016019778 32934073149223 31.12553  0.0290853685
## 1997 2684.757 7.895346  0.030520760 34030001130648 31.15826  0.0327347419
## 1998 2799.155 7.937073  0.041727365 34944597367577 31.18478  0.0265213532
## 1999 2919.833 7.979282  0.042208837 36071844554905 31.21653  0.0317487568
## 2000 3062.161 8.026876  0.047594453 37524501486029 31.25602  0.0394814608
## 2001 3107.111 8.041449  0.014572480 38081935632913 31.27076  0.0147459467
## 2002 3175.345 8.063172  0.021722932 38669757240257 31.28608  0.0153177885
## 2003 3246.619 8.085369  0.022197859 39531349243871 31.30812  0.0220361810
## 2004 3387.072 8.127721  0.042351684 40851737210500 31.34097  0.0328553381
## 2005 3485.158 8.156269  0.028547549 42026540126095 31.36932  0.0283519795
## 2006 3645.562 8.201266  0.044997157 43340061766939 31.40010  0.0307760948
## 2007 3770.637 8.234999  0.033733415 44540987968998 31.42743  0.0273324219
## 2008 3761.501 8.232573 -0.002425873 44696559077690 31.43092  0.0034866773
## 2009 3602.148 8.189286 -0.043287746 43216084337128 31.39723 -0.0336837720
## 2010 3825.086 8.249336  0.060050616 44510097465816 31.42674  0.0295033242
## 2011 3941.840 8.279403  0.030066669 45339999923101 31.44521  0.0184735706
## 2012 3916.968 8.273073 -0.006329734 45941030810101 31.45838  0.0131689918
## 2013 3959.578 8.283893  0.010819569 46615862463861 31.47296  0.0145822442
## 2014 4068.359 8.310995  0.027102270 47565468674945 31.49313  0.0201661705
## 2015 4248.213 8.354254  0.043258700 48677112233621 31.51623  0.0231018950
## 2016 4350.724 8.378098  0.023843844 49506980719776 31.53313  0.0169047393
## 2017 4455.657 8.401930  0.023832257 50641555429718 31.55579  0.0226588085
## 2018 4554.804 8.423938  0.022007975 51771525374878 31.57786  0.0220678021
##           Tax       Yf     Yf_l         Yf_dl        C      C_l
## 1971   46.689 1605.605 7.381256  0.0030015011  842.417 6.736275
## 1972   48.901 1641.395 7.403302  0.0220458574  871.060 6.769711
## 1973   55.426 1702.482 7.439842  0.0365406963  893.707 6.795378
## 1974   57.648 1756.513 7.471086  0.0312434075  924.093 6.828813
## 1975   70.340 1790.989 7.490523  0.0194373875  949.968 6.856428
## 1976   83.297 1798.507 7.494712  0.0041888950  989.867 6.897571
## 1977   95.420 1756.275 7.470950 -0.0237617874  979.968 6.887520
## 1978   97.379 1787.646 7.488655  0.0177045817  973.109 6.880496
## 1979  104.779 1851.878 7.523956  0.0353005888  996.463 6.904212
## 1980  120.557 1885.976 7.542201  0.0182451995  988.491 6.896180
## 1981  139.294 1863.161 7.530030 -0.0121709511 1002.114 6.909867
## 1982  144.889 1882.570 7.540393  0.0103633570 1011.217 6.918910
## 1983  170.121 1895.872 7.547434  0.0070410264  988.585 6.896275
## 1984  192.162 1961.213 7.581318  0.0338842684 1006.345 6.914080
## 1985  210.561 1989.335 7.595556  0.0142372527 1032.764 6.939994
## 1986  238.255 2020.847 7.611272  0.0157163184 1082.198 6.986749
## 1987  263.787 2071.082 7.635826  0.0245544456 1136.382 7.035605
## 1988  281.220 2113.399 7.656053  0.0202263758 1168.834 7.063762
## 1989  316.472 2141.720 7.669365  0.0133116927 1181.481 7.074524
## 1990  355.575 2121.168 7.659722 -0.0096423642 1173.665 7.067887
## 1991  409.826 2038.534 7.619986 -0.0397359583 1176.298 7.070127
## 1992  382.641 2037.353 7.619407 -0.0005795058 1158.170 7.054596
## 1993  368.872 2001.134 7.601469 -0.0179373964 1124.650 7.025227
## 1994  379.292 2084.851 7.642453  0.0409833700 1146.133 7.044149
## 1995  408.227 2154.443 7.675288  0.0328348316 1157.170 7.053733
## 1996  433.957 2170.097 7.682527  0.0072396455 1178.606 7.072088
## 1997  446.133 2238.624 7.713617  0.0310895244 1215.510 7.102919
## 1998  519.040 2280.115 7.731981  0.0183644889 1256.661 7.136213
## 1999  542.645 2377.188 7.773674  0.0416923963 1307.368 7.175771
## 2000  542.611 2519.550 7.831836  0.0581620376 1377.993 7.228383
## 2001  567.123 2539.988 7.839915  0.0080790425 1389.391 7.236621
## 2002  593.661 2581.684 7.856197  0.0162825426 1420.188 7.258545
## 2003  614.578 2632.041 7.875515  0.0193176917 1445.098 7.275932
## 2004  631.963 2755.109 7.921212  0.0456974154 1486.065 7.303887
## 2005  661.112 2824.046 7.945926  0.0247136022 1535.900 7.336872
## 2006  690.362 2955.200 7.991322  0.0453957220 1581.393 7.366061
## 2007  732.511 3038.126 8.018996  0.0276745475 1643.201 7.404401
## 2008  765.939 2995.562 8.004887 -0.0141090179 1654.691 7.411370
## 2009  753.351 2848.797 7.954652 -0.0502350601 1674.295 7.423147
## 2010  791.469 3033.617 8.017511  0.0628588371 1746.820 7.465552
## 2011  810.511 3131.329 8.049213  0.0317018781 1780.537 7.484670
## 2012  823.265 3093.703 8.037124 -0.0120887598 1791.092 7.490581
## 2013  840.265 3119.313 8.045368  0.0082440300 1822.871 7.508168
## 2014  865.568 3202.791 8.071778  0.0264098319 1876.485 7.537156
## 2015  921.085 3327.128 8.109865  0.0380868522 1942.384 7.571671
## 2016  993.278 3357.446 8.118936  0.0090710965 1981.475 7.591597
## 2017 1035.867 3419.790 8.137334  0.0183985798 2022.895 7.612285
## 2018 1083.218 3471.586 8.152367  0.0150324044 2056.861 7.628936
##              C_dl        W      W_l         W_dl         R      R_l
## 1971  0.001000005 1104.660 7.007293  0.031464273  500.9449 6.216496
## 1972  0.033435720 1114.543 7.016199  0.008906508  526.8523 6.266920
## 1973  0.025667120 1116.837 7.018256  0.002056322  585.6450 6.372714
## 1974  0.033434735 1154.767 7.051654  0.033398398  601.7456 6.399835
## 1975  0.027615584 1192.247 7.083595  0.031940919  598.7419 6.394831
## 1976  0.041142291 1247.970 7.129274  0.045678505  550.5368 6.310894
## 1977 -0.010050673 1265.498 7.143221  0.013947728  490.7765 6.195989
## 1978 -0.007023817 1268.711 7.145757  0.002535404  518.9349 6.251778
## 1979  0.023715908 1280.545 7.155041  0.009284468  571.3328 6.347972
## 1980 -0.008032471 1259.214 7.138243 -0.016798034  626.7617 6.440566
## 1981  0.013687510 1246.240 7.127887 -0.010356651  616.9207 6.424740
## 1982  0.009042787 1212.454 7.100401 -0.027485161  670.1164 6.507451
## 1983 -0.022635207 1182.689 7.075546 -0.024855384  713.1829 6.569738
## 1984  0.017805606 1194.952 7.085862  0.010315564  766.2607 6.641522
## 1985  0.025913748 1223.147 7.109183  0.023321002  766.1877 6.641427
## 1986  0.046755455 1245.561 7.127342  0.018159011  775.2857 6.653232
## 1987  0.048855373 1282.117 7.156268  0.028926656  788.9646 6.670721
## 1988  0.028157139 1292.452 7.164297  0.008028563  820.9466 6.710458
## 1989  0.010762066 1334.133 7.196037  0.031740405  807.5866 6.694050
## 1990 -0.006637405 1368.375 7.221379  0.025341832  752.7932 6.623791
## 1991  0.002240887 1311.846 7.179190 -0.042188833  726.6885 6.588498
## 1992 -0.015531046 1286.627 7.159780 -0.019410503  750.7255 6.621040
## 1993 -0.029369297 1215.968 7.103296 -0.056484113  785.1662 6.665895
## 1994  0.018921791 1243.792 7.125920  0.022624413  841.0591 6.734662
## 1995  0.009583702 1238.024 7.121272 -0.004647965  916.4187 6.820473
## 1996  0.018355015 1306.355 7.174996  0.053723913  863.7422 6.761274
## 1997  0.030831358 1345.935 7.204844  0.029848165  892.6891 6.794238
## 1998  0.033294462 1352.891 7.209999  0.005155195  927.2237 6.832195
## 1999  0.039557752 1420.584 7.258823  0.048823717  956.6044 6.863390
## 2000  0.052612137 1527.731 7.331539  0.072715604  991.8194 6.899541
## 2001  0.008237429 1582.938 7.367038  0.035499170  957.0501 6.863856
## 2002  0.021923736 1602.696 7.379442  0.012404655  978.9880 6.886519
## 2003  0.017387882 1616.579 7.388067  0.008625028 1015.4620 6.923099
## 2004  0.027954548 1666.023 7.418195  0.030127368 1089.0856 6.993094
## 2005  0.032984842 1708.061 7.443114  0.024919467 1115.9846 7.017492
## 2006  0.029189576 1751.775 7.468385  0.025270465 1203.4251 7.092927
## 2007  0.038340065 1827.778 7.510856  0.042471415 1210.3482 7.098663
## 2008  0.006968116 1839.093 7.517028  0.006171559 1156.4691 7.053127
## 2009  0.011777897 1786.293 7.487898 -0.029129766 1062.5036 6.968383
## 2010  0.042404811 1822.002 7.507691  0.019793207 1211.6149 7.099709
## 2011  0.019118012 1894.900 7.546921  0.039230272 1236.4288 7.119982
## 2012  0.005910486 1942.829 7.571901  0.024979178 1150.8736 7.048277
## 2013  0.017587241 1978.646 7.590168  0.018267393 1140.6670 7.039368
## 2014  0.028987615 2007.389 7.604590  0.014422261 1195.4017 7.086238
## 2015  0.034515739 2038.406 7.619924  0.015333200 1288.7218 7.161406
## 2016  0.019925432 2089.124 7.644500  0.024576810 1268.3216 7.145450
## 2017  0.020688137 2125.005 7.661529  0.017029109 1294.7850 7.166100
## 2018  0.016651381 2175.669 7.685092  0.023562154 1295.9168 7.166974
##                R_dl       It     It_l        It_dl   Itcurr Itcurr_l
## 1971 -0.05703937794  416.018 6.030729 -0.006020043   53.529 3.980224
## 1972  0.05042411390  433.490 6.071869  0.041140199   59.247 4.081715
## 1973  0.10579370930  445.194 6.098510  0.026641414   65.009 4.174526
## 1974  0.02712088035  431.838 6.068051 -0.030459624   72.095 4.277985
## 1975 -0.00500416723  445.225 6.098580  0.030529254   82.479 4.412544
## 1976 -0.08393672973  453.683 6.117399  0.018818944   94.456 4.548134
## 1977 -0.11490497236  440.527 6.087972 -0.029426979  102.401 4.628896
## 1978  0.05578956628  410.571 6.017549 -0.070422864  105.139 4.655283
## 1979  0.09619332901  429.047 6.061566  0.044017596  120.224 4.789357
## 1980  0.09259466599  444.063 6.095966  0.034399974  139.222 4.936070
## 1981 -0.01582600546  430.286 6.064450 -0.031516340  145.812 4.982318
## 1982  0.08271090140  433.101 6.070971  0.006520853  158.922 5.068414
## 1983  0.06228657387  447.677 6.104072  0.033101033  180.436 5.195376
## 1984  0.07178447945  483.815 6.181703  0.077630612  205.909 5.327434
## 1985 -0.00009523984  522.042 6.257748  0.076045442  234.207 5.456205
## 1986  0.01180437924  528.779 6.270571  0.012822531  247.447 5.511196
## 1987  0.01748985015  561.050 6.329810  0.059239453  276.898 5.623649
## 1988  0.03973662215  592.708 6.384702  0.054891838  313.899 5.749071
## 1989 -0.01640770846  660.467 6.492947  0.108245294  375.019 5.926977
## 1990 -0.07025976709  661.775 6.494926  0.001978458  409.512 6.014966
## 1991 -0.03529264471  603.450 6.402663 -0.092262432  402.639 5.998040
## 1992  0.03254221552  539.710 6.291032 -0.111631229  362.639 5.893408
## 1993  0.04485528023  448.345 6.105563 -0.185468933  323.495 5.779184
## 1994  0.06876648890  482.485 6.178950  0.073386807  346.123 5.846794
## 1995  0.08581152365  521.306 6.256337  0.077387369  378.911 5.937301
## 1996 -0.05919908521  548.047 6.306361  0.050023848  399.190 5.989437
## 1997  0.03296407868  558.600 6.325434  0.019072604  413.511 6.024684
## 1998  0.03795640576  602.116 6.400450  0.075016464  453.748 6.117542
## 1999  0.03119515190  638.213 6.458672  0.058221966  491.921 6.198318
## 2000  0.03615108854  679.048 6.520692  0.062019734  540.172 6.291888
## 2001 -0.03568526739  694.669 6.543435  0.022743656  571.556 6.348362
## 2002  0.02266365188  683.702 6.527522 -0.015913323  575.586 6.355389
## 2003  0.03657949174  701.375 6.553043  0.025520544  588.973 6.378380
## 2004  0.06999481534  738.971 6.605259  0.052215984  622.726 6.434107
## 2005  0.02439859933  775.516 6.653529  0.048269936  660.643 6.493214
## 2006  0.07543466822  845.243 6.739624  0.086095546  729.351 6.592155
## 2007  0.00573633708  915.552 6.819527  0.079903002  807.118 6.693470
## 2008 -0.04553661949  920.439 6.824851  0.005323568  843.600 6.737678
## 2009 -0.08474338890  804.433 6.690138 -0.134713049  757.629 6.630194
## 2010  0.13132607997  856.368 6.752700  0.062562509  811.998 6.699498
## 2011  0.02027304958  907.253 6.810421  0.057721162  862.095 6.759365
## 2012 -0.07170589906  895.279 6.797135 -0.013285951  856.954 6.753384
## 2013 -0.00890810058  899.339 6.801660  0.004524648  863.652 6.761170
## 2014  0.04686908145  953.972 6.860634  0.058974272  933.828 6.839292
## 2015  0.07516860430 1009.522 6.917232  0.056597910 1009.522 6.917232
## 2016 -0.01595643464 1051.410 6.957887  0.040655169 1067.613 6.973181
## 2017  0.02065023187 1110.130 7.012232  0.054345005 1162.845 7.058625
## 2018  0.00087371634 1157.219 7.053775  0.041542587 1249.688 7.130649
##         Itcurr_dl      Ipr    Ipr_l       Ipr_dl       Ips      Ips_l
## 1971  0.052819456   38.942 3.662073  0.074285767 0.7274935 -0.3181502
## 1972  0.101491583   43.349 3.769284  0.107210275 0.7316657 -0.3124315
## 1973  0.092810576   49.119 3.894246  0.124962290 0.7555723 -0.2802798
## 1974  0.103458972   55.232 4.011542  0.117296570 0.7661003 -0.2664422
## 1975  0.134559022   63.958 4.158227  0.146684122 0.7754459 -0.2543171
## 1976  0.135590402   74.117 4.305645  0.147418308 0.7846722 -0.2424892
## 1977  0.080762361   78.777 4.366621  0.060976150 0.7692991 -0.2622754
## 1978  0.026386806   79.838 4.380000  0.013378506 0.7593567 -0.2752837
## 1979  0.134073385   92.700 4.529368  0.149368891 0.7710607 -0.2599882
## 1980  0.146713112  107.715 4.679489  0.150120378 0.7736924 -0.2565809
## 1981  0.046248339  110.837 4.708061  0.028571803 0.7601363 -0.2742575
## 1982  0.086095395  122.258 4.806134  0.098072912 0.7692956 -0.2622799
## 1983  0.126962628  140.247 4.943405  0.137271588 0.7772673 -0.2519710
## 1984  0.132058179  162.973 5.093585  0.150179389 0.7914807 -0.2338498
## 1985  0.128771016  188.975 5.241615  0.148030188 0.8068717 -0.2145906
## 1986  0.054991078  200.061 5.298622  0.057007589 0.8085004 -0.2125741
## 1987  0.112452790  227.419 5.426794  0.128171811 0.8213097 -0.1968551
## 1988  0.125422071  258.492 5.554865  0.128070615 0.8234878 -0.1942065
## 1989  0.177905413  308.709 5.732399  0.177534340 0.8231823 -0.1945776
## 1990  0.087989516  340.238 5.829645  0.097246287 0.8308377 -0.1853208
## 1991 -0.016925828  321.177 5.771992 -0.057653000 0.7976798 -0.2260480
## 1992 -0.104632530  281.417 5.639838 -0.132154818 0.7760252 -0.2535703
## 1993 -0.114224191  236.354 5.465331 -0.174506874 0.7306264 -0.3138530
## 1994  0.067610545  248.140 5.513993  0.048662422 0.7169128 -0.3328011
## 1995  0.090507146  282.264 5.642843  0.128849700 0.7449348 -0.2944585
## 1996  0.052136145  303.648 5.715869  0.073026333 0.7606603 -0.2735684
## 1997  0.035246622  325.309 5.784775  0.068906364 0.7866997 -0.2399086
## 1998  0.092857862  361.498 5.890257  0.105481009 0.7966933 -0.2272855
## 1999  0.080776157  392.268 5.971945  0.081688771 0.7974207 -0.2263729
## 2000  0.093569473  446.337 6.101074  0.129128992 0.8262868 -0.1908133
## 2001  0.056474859  468.642 6.149839  0.048764879 0.8199407 -0.1985233
## 2002  0.007026186  463.821 6.139499 -0.010340449 0.8058240 -0.2158900
## 2003  0.022991690  476.460 6.166384  0.026885072 0.8089675 -0.2119966
## 2004  0.055726272  507.308 6.229118  0.062734540 0.8146568 -0.2049883
## 2005  0.059106989  540.856 6.293153  0.064034755 0.8186812 -0.2000605
## 2006  0.098941494  601.057 6.398690  0.105536702 0.8240984 -0.1934653
## 2007  0.101314781  671.663 6.509757  0.111066955 0.8321745 -0.1837132
## 2008  0.044208570  698.543 6.548997  0.039240011 0.8280500 -0.1886817
## 2009 -0.107484629  609.262 6.412248 -0.136748349 0.8041693 -0.2179454
## 2010  0.069304057  652.365 6.480604  0.068355833 0.8034072 -0.2188937
## 2011  0.059867596  699.266 6.550031  0.069426992 0.8111241 -0.2093343
## 2012 -0.005981232  688.303 6.534229 -0.015802066 0.8031971 -0.2191551
## 2013  0.007785668  694.959 6.543853  0.009623703 0.8046748 -0.2173171
## 2014  0.078122357  760.186 6.633563  0.089710289 0.8140536 -0.2057291
## 2015  0.077939963  832.673 6.724641  0.091077868 0.8248191 -0.1925912
## 2016  0.055948364  874.583 6.773747  0.049106193 0.8191948 -0.1994334
## 2017  0.085444273  949.962 6.856422  0.082674782 0.8169292 -0.2022029
## 2018  0.072024332 1013.049 6.920720  0.064297890 0.8106415 -0.2099293
##             Ips_dl        I      I_l          I_dl          r      r_l
## 1971  0.0214663115 302.6504 5.712578  0.0154462681 -0.0102528 1.767075
## 1972  0.0057186925 317.1698 5.759437  0.0468588919  0.2553483 1.811449
## 1973  0.0321517144 336.3763 5.818230  0.0587931287  0.2687755 1.813641
## 1974  0.0138375982 330.8312 5.801608 -0.0166220261 -1.7013599 1.426140
## 1975  0.0121251007 345.2479 5.844263  0.0426543552 -4.8639601 0.000000
## 1976  0.0118279056 355.9925 5.874910  0.0306468496 -2.3704762 1.250899
## 1977 -0.0197862102 338.8970 5.825696 -0.0492131890 -0.8096805 1.620235
## 1978 -0.0130083005 311.7698 5.742265 -0.0834311643  0.6191451 1.869200
## 1979  0.0152955058 330.8213 5.801578  0.0593131021  2.2988137 2.099584
## 1980  0.0034072657 343.5682 5.839386  0.0378072399  1.0374160 1.931721
## 1981 -0.0176765360 327.0760 5.790193 -0.0491928764  3.6434272 2.252069
## 1982  0.0119775172 333.1827 5.808691  0.0184983705  4.4890714 2.337279
## 1983  0.0103089595 347.9647 5.852101  0.0434099926  1.9967780 2.061881
## 1984  0.0181212098 382.9302 5.947853  0.0957518218  4.1382443 2.302806
## 1985  0.0192591722 421.2209 6.043157  0.0953046144  6.0709939 2.479471
## 1986  0.0020165109 427.5180 6.057996  0.0148390417  3.5621475 2.243483
## 1987  0.0157190213 460.7958 6.132955  0.0749584742  6.6798672 2.529229
## 1988  0.0026485439 488.0878 6.190495  0.0575403820  4.4490284 2.333404
## 1989 -0.0003710733 543.6847 6.298370  0.1078742210  3.1521586 2.199014
## 1990  0.0092567716 549.8276 6.309605  0.0112352300  3.3684148 2.222716
## 1991 -0.0407271717 481.3599 6.176615 -0.1329896036  2.0481485 2.068394
## 1992 -0.0275222882 418.8286 6.037462 -0.1391535170  8.5801442 2.670286
## 1993 -0.0602826827 327.5727 5.791710 -0.2457516157  5.7500844 2.452215
## 1994 -0.0189481235 345.8997 5.846149  0.0544386834  6.9222154 2.548365
## 1995  0.0383425544 388.3390 5.961879  0.1157299236  6.2000995 2.490231
## 1996  0.0208901876 416.8776 6.032793  0.0709140359  6.9512395 2.550632
## 1997  0.0336597418 439.4505 6.085525  0.0527323456  5.0214553 2.387424
## 1998  0.0126231476 479.7018 6.173165  0.0876396119  4.1363784 2.302619
## 1999  0.0009126139 508.9243 6.232299  0.0591345796  4.0575320 2.294703
## 2000  0.0355595195 561.0884 6.329878  0.0975792534  3.8312613 2.271633
## 2001 -0.0077099802 569.5874 6.344912  0.0150336757  2.5794822 2.133390
## 2002 -0.0173666349 550.9435 6.311632 -0.0332799578  3.6930385 2.257274
## 2003  0.0038933823 567.3896 6.341046  0.0294139262  2.8785641 2.168199
## 2004  0.0070082676 602.0078 6.400270  0.0592242515  4.0930115 2.298273
## 2005  0.0049277669 634.9004 6.453468  0.0531977032  2.6928040 2.146722
## 2006  0.0065952079 696.5634 6.546159  0.0926907536  1.9012193 2.049650
## 2007  0.0097521741 761.8990 6.635814  0.0896551762  1.2881567 1.967408
## 2008 -0.0049685598 762.1695 6.636169  0.0003550083  0.6170645 1.868879
## 2009 -0.0292637199 646.9003 6.472192 -0.1639767687  0.8611468 1.905848
## 2010 -0.0009482246 688.0122 6.533807  0.0616142843  1.9186464 2.051891
## 2011  0.0095593959 735.8947 6.601087  0.0672805584  1.5043635 1.997190
## 2012 -0.0098208337 719.0855 6.577980 -0.0231067849  0.5865542 1.864160
## 2013  0.0018380347 723.6754 6.584343  0.0063626822  1.1768817 1.951728
## 2014  0.0115879320 776.5843 6.654905  0.0705622038 -0.0181891 1.765718
## 2015  0.0131379045 832.6730 6.724641  0.0697358141 -1.4435807 1.486226
## 2016 -0.0068421706 861.3096 6.758454  0.0338129984 -0.9416436 1.593779
## 2017 -0.0027694909 906.8976 6.810030  0.0515755142 -1.5007323 1.473212
## 2018 -0.0077264411 938.0898 6.843846  0.0338161463 -1.6386041 1.441104
##              r_dl         P      P_l        P_dl        Pm     Pm_l
## 1971 -0.325862298  12.58227 2.532288 0.069908401  14.04704 2.642412
## 1972  0.044373897  13.46513 2.600104 0.067815033  14.45788 2.671239
## 1973  0.002191831  14.42010 2.668623 0.068519614  16.35380 2.794461
## 1974 -0.387500988  15.81099 2.760705 0.092081917  22.49071 3.113102
## 1975 -1.426139927  18.08019 2.894817 0.134111557  23.53024 3.158286
## 1976  1.250899490  20.24517 3.007916 0.113099415  25.26007 3.229225
## 1977  0.369335840  22.39840 3.108990 0.101073508  28.29482 3.342679
## 1978  0.248964263  24.50667 3.198945 0.089955663  31.24073 3.441723
## 1979  0.230384445  26.46415 3.275791 0.076845913  36.23481 3.590020
## 1980 -0.167863211  29.26742 3.376475 0.100683841  41.39077 3.723058
## 1981  0.320348280  32.04795 3.467233 0.090758305  45.70721 3.822256
## 1982  0.085210268  34.67062 3.545893 0.078659254  52.26985 3.956420
## 1983 -0.275398867  38.17287 3.642125 0.096232636  59.28563 4.082367
## 1984  0.240925001  41.15731 3.717402 0.075276462  61.64259 4.121353
## 1985  0.176665897  43.83812 3.780504 0.063102190  63.84213 4.156413
## 1986 -0.235988162  46.67334 3.843173 0.062669320  59.63044 4.088166
## 1987  0.285745452  48.86531 3.889068 0.045894723  61.92990 4.126003
## 1988 -0.195824576  52.09386 3.953047 0.063979207  64.33167 4.164052
## 1989 -0.134390178  56.14807 4.027992 0.074945345  68.30151 4.223932
## 1990  0.023702376  61.46128 4.118407 0.090414923  70.56268 4.256501
## 1991 -0.154321997  66.67209 4.199786 0.081379093  71.12698 4.264467
## 1992  0.601892004  67.56235 4.213051 0.013264500  69.36426 4.239372
## 1993 -0.218071226  69.36396 4.239367 0.026316509  79.75413 4.378949
## 1994  0.096149450  71.16600 4.265015 0.025647756  82.18196 4.408936
## 1995 -0.058133797  73.87319 4.302350 0.037334761  86.07130 4.455176
## 1996  0.060401184  74.61831 4.312386 0.010035943  82.76236 4.415973
## 1997 -0.163208079  75.75408 4.327492 0.015106446  83.09211 4.419950
## 1998 -0.084804914  76.37505 4.335656 0.008163736  82.23714 4.409607
## 1999 -0.007915619  77.05211 4.344482 0.008825917  83.18564 4.421075
## 2000 -0.023070198  78.19399 4.359193 0.014710872  86.58519 4.461129
## 2001 -0.138243044  80.12295 4.383562 0.024369486  90.03574 4.500207
## 2002  0.123883643  81.36464 4.398941 0.015378437  90.15538 4.501535
## 2003 -0.089074766  82.75772 4.415917 0.016976585  88.28384 4.480557
## 2004  0.130074011  83.01769 4.419054 0.003136387  88.94379 4.488005
## 2005 -0.151550876  83.57323 4.425723 0.006669474  93.03483 4.532974
## 2006 -0.097072533  85.04848 4.443221 0.017498209  96.13568 4.565760
## 2007 -0.082241191  87.46827 4.471276 0.028054689  96.63150 4.570905
## 2008 -0.098529754  90.31349 4.503287 0.032010776 100.85377 4.613672
## 2009  0.036969206  92.45253 4.526695 0.023408445 101.16954 4.616798
## 2010  0.146043487  93.33367 4.536181 0.009485545 100.94226 4.614549
## 2011 -0.054701090  94.35030 4.547014 0.010833607 100.74756 4.612618
## 2012 -0.133030354  95.29154 4.556941 0.009926512  99.52943 4.600453
## 2013  0.087567873  96.17979 4.566219 0.009278304  96.92233 4.573910
## 2014 -0.186009243  97.85189 4.583455 0.017235662  98.64561 4.591534
## 2015 -0.279492964 100.00000 4.605170 0.021715221 100.00000 4.605170
## 2016  0.107553724 101.49573 4.620017 0.014846524  98.42449 4.589290
## 2017 -0.120567148 103.71189 4.641617 0.021600038 102.36383 4.628533
## 2018 -0.032108587 106.12498 4.664617 0.023000742 108.54756 4.687188
##             Pm_dl        Px     Px_l        Px_dl        X      X_l
## 1971  0.049727491  18.61467 2.923950  0.041043614  252.884 5.532931
## 1972  0.028827613  19.12309 2.950896  0.026946049  267.804 5.590255
## 1973  0.123221210  21.20453 3.054215  0.103318690  304.493 5.718648
## 1974  0.318641735  26.73354 3.285919  0.231704089  320.631 5.770291
## 1975  0.045184052  30.24986 3.409491  0.123572423  290.812 5.672677
## 1976  0.070938486  32.21488 3.472428  0.062936943  303.317 5.714778
## 1977  0.113454009  34.20260 3.532302  0.059873121  307.866 5.729665
## 1978  0.099043852  36.44549 3.595818  0.063516065  331.880 5.804773
## 1979  0.148297482  41.46811 3.724925  0.129107183  352.125 5.863986
## 1980  0.133037760  46.47039 3.838815  0.113890597  350.012 5.857967
## 1981  0.099198223  50.30225 3.918050  0.079234409  360.868 5.888512
## 1982  0.134163609  55.83020 4.022315  0.104265130  385.273 5.953952
## 1983  0.125947117  62.79176 4.139824  0.117508854  421.897 6.044761
## 1984  0.038986146  67.06283 4.205630  0.065806139  451.778 6.113191
## 1985  0.035060263  69.76094 4.245074  0.039444275  457.517 6.125814
## 1986 -0.068247129  68.74236 4.230366 -0.014708552  473.437 6.160019
## 1987  0.037836943  70.65300 4.257781  0.027414862  492.547 6.199590
## 1988  0.038048873  74.13755 4.305922  0.048141608  508.982 6.232413
## 1989  0.059879889  78.90452 4.368238  0.062316348  525.155 6.263693
## 1990  0.032569484  80.13184 4.383673  0.015434842  537.276 6.286512
## 1991  0.007965369  81.70890 4.403163  0.019489634  526.714 6.266658
## 1992 -0.025094908  79.44237 4.375032 -0.028131070  538.077 6.288002
## 1993  0.139576690  86.36888 4.458627  0.083595543  580.077 6.363161
## 1994  0.029987303  89.55671 4.494872  0.036244682  658.806 6.490429
## 1995  0.046240204  95.94384 4.563763  0.068890879  733.057 6.597223
## 1996 -0.039202696  91.49848 4.516322 -0.047440655  765.698 6.640788
## 1997  0.003976466  91.27305 4.513856 -0.002466711  872.367 6.771210
## 1998 -0.010342737  90.11840 4.501124 -0.012731247  951.101 6.857620
## 1999  0.011467668  88.61656 4.484319 -0.016805556 1019.455 6.927023
## 2000  0.040054090  90.65209 4.507029  0.022710151 1141.720 7.040291
## 2001  0.039077914  92.95377 4.532102  0.025073338 1147.692 7.045508
## 2002  0.001327966  91.15152 4.512523 -0.019579114 1167.127 7.062300
## 2003 -0.020977557  88.88088 4.487297 -0.025226165 1220.375 7.106913
## 2004  0.007447498  88.50450 4.483053 -0.004243579 1358.010 7.213776
## 2005  0.044969280  90.82846 4.508973  0.025919236 1444.621 7.275602
## 2006  0.032786583  93.95297 4.542794  0.033821691 1568.721 7.358016
## 2007  0.005144249  95.79878 4.562250  0.019455633 1636.907 7.400564
## 2008  0.042766945  99.68269 4.601992  0.039742047 1675.647 7.423955
## 2009  0.003126045 101.00089 4.615129  0.013137279 1435.624 7.269355
## 2010 -0.002249095 100.36766 4.608840 -0.006289296 1591.154 7.372215
## 2011 -0.001930614  99.46664 4.599822 -0.009017709 1697.165 7.436714
## 2012 -0.012164654  98.31245 4.588151 -0.011671632 1716.098 7.447808
## 2013 -0.026543430  96.00110 4.564360 -0.023791004 1697.968 7.437188
## 2014  0.017623819  97.96081 4.584567  0.020207814 1770.604 7.479076
## 2015  0.013636438 100.00000 4.605170  0.020602696 1881.745 7.539955
## 2016 -0.015880563  98.74752 4.592566 -0.012603866 1934.327 7.567515
## 2017  0.039243799 101.78997 4.622912  0.030345241 2017.186 7.609459
## 2018  0.058655030 106.36273 4.666855  0.043943716 2080.882 7.640547
##              X_dl        M      M_l          M_dl      rulc     rulc_l
## 1971  0.046885769  319.580 5.767008 -0.0335566646 0.6685615 -0.4026269
## 1972  0.057324484  332.363 5.806228  0.0392201114 0.6593773 -0.4164594
## 1973  0.128392729  355.296 5.872951  0.0667234998 0.6353216 -0.4536239
## 1974  0.051642831  390.471 5.967354  0.0944024579 0.6365297 -0.4517242
## 1975 -0.097613919  376.805 5.931728 -0.0356258905 0.6405354 -0.4454509
## 1976  0.042101453  410.717 6.017904  0.0861766006 0.6631775 -0.4107125
## 1977  0.014886160  395.109 5.979162 -0.0387427366 0.6834271 -0.3806353
## 1978  0.075108834  373.379 5.922594 -0.0565676866 0.6730474 -0.3959396
## 1979  0.059212768  416.690 6.032343  0.1097485505 0.6544557 -0.4239514
## 1980 -0.006018787  418.357 6.036335  0.0039925949 0.6275572 -0.4659204
## 1981  0.030544801  402.248 5.997069 -0.0392663212 0.6223562 -0.4742427
## 1982  0.065439933  421.294 6.043331  0.0462621134 0.5980164 -0.5141372
## 1983  0.090809035  425.583 6.053460  0.0101290664 0.5724555 -0.5578203
## 1984  0.068429700  448.153 6.105135  0.0516746983 0.5549207 -0.5889301
## 1985  0.012623134  483.431 6.180909  0.0757739033 0.5560023 -0.5869828
## 1986  0.034204810  500.664 6.215935  0.0350266221 0.5513524 -0.5953811
## 1987  0.039571035  537.406 6.286754  0.0708186436 0.5491175 -0.5994428
## 1988  0.032822765  564.381 6.335730  0.0489756944 0.5397320 -0.6166826
## 1989  0.031280805  607.886 6.409987  0.0742578090 0.5427295 -0.6111442
## 1990  0.022818472  614.758 6.421229  0.0112413300 0.5524896 -0.5933206
## 1991 -0.019854222  584.636 6.370989 -0.0502392631 0.5358058 -0.6239835
## 1992  0.021343966  594.243 6.387288  0.0162988953 0.5316656 -0.6317406
## 1993  0.075159181  578.024 6.359615 -0.0276729363 0.5130653 -0.6673522
## 1994  0.127268252  652.322 6.480538  0.1209229147 0.5047564 -0.6836794
## 1995  0.106794356  698.694 6.549213  0.0686745731 0.4830994 -0.7275329
## 1996  0.043564375  722.970 6.583368  0.0341548494 0.5016620 -0.6898288
## 1997  0.130422371  812.118 6.699646  0.1162779223 0.5013247 -0.6905014
## 1998  0.086410054  903.841 6.806653  0.1070078102 0.4833213 -0.7270735
## 1999  0.069403189  950.152 6.856622  0.0499685118 0.4865290 -0.7204587
## 2000  0.113267727 1061.588 6.967521  0.1108992075 0.4989060 -0.6953375
## 2001  0.005217072 1044.463 6.951258 -0.0162630225 0.5094565 -0.6744108
## 2002  0.016792204 1031.762 6.939023 -0.0122348574 0.5047313 -0.6837291
## 2003  0.044613015 1071.674 6.976977  0.0379538916 0.4979269 -0.6973019
## 2004  0.106862204 1144.036 7.042318  0.0653404491 0.4918772 -0.7095263
## 2005  0.061826611 1223.846 7.109754  0.0674359982 0.4900958 -0.7131543
## 2006  0.082413634 1326.752 7.190489  0.0807354910 0.4805226 -0.7328810
## 2007  0.042547848 1428.646 7.264482  0.0739932924 0.4847398 -0.7241430
## 2008  0.023390874 1478.613 7.298860  0.0343773436 0.4889253 -0.7155456
## 2009 -0.154599761 1265.455 7.143187 -0.1556727449 0.4958967 -0.7013876
## 2010  0.102859941 1409.384 7.250908  0.1077209882 0.4763297 -0.7416450
## 2011  0.064499673 1512.247 7.321352  0.0704438947 0.4807147 -0.7324814
## 2012  0.011093897 1524.315 7.329300  0.0079485046 0.4960034 -0.7011725
## 2013 -0.010620867 1524.757 7.329590  0.0002899243 0.4997113 -0.6937247
## 2014  0.041888489 1618.369 7.389174  0.0595837989 0.4934150 -0.7064047
## 2015  0.060878807 1711.027 7.444849  0.0556749231 0.4798267 -0.7343302
## 2016  0.027559925 1776.564 7.482436  0.0375873867 0.4801786 -0.7335972
## 2017  0.041944009 1861.048 7.528895  0.0464586082 0.4769229 -0.7404004
## 2018  0.031088371 1927.637 7.564050  0.0351551305 0.4776647 -0.7388462
##            rulc_dl       ulc    ulc_l       ulc_dl       Tau    Tau_l
## 1971  0.0225045344  8.412019 2.129662  0.092412936  72.14548 4.278685
## 1972 -0.0138325278  8.878602 2.183644  0.053982505  72.16197 4.278913
## 1973 -0.0371644823  9.161402 2.214999  0.031355132  73.42604 4.296279
## 1974  0.0018997615 10.064163 2.308981  0.093981678  73.66458 4.299522
## 1975  0.0062732722 11.580999 2.449366  0.140384829  73.51365 4.297471
## 1976  0.0347383629 13.426139 2.597203  0.147837778  72.95724 4.289874
## 1977  0.0300771836 15.307673 2.728354  0.131150691  70.64487 4.257665
## 1978 -0.0153042431 16.494147 2.803006  0.074651419  70.73167 4.258893
## 1979 -0.0280118533 17.319615 2.851840  0.048834060  71.93875 4.275815
## 1980 -0.0419689866 18.366981 2.910555  0.058714854  72.26584 4.280351
## 1981 -0.0083222214 19.945242 2.992991  0.082436083  71.15458 4.264855
## 1982 -0.0398945185 20.733595 3.031755  0.038764735  71.25545 4.266271
## 1983 -0.0436830812 21.852272 3.084305  0.052549555  71.66249 4.271967
## 1984 -0.0311098327 22.839044 3.128472  0.044166630  73.39964 4.295919
## 1985  0.0019472940 24.374098 3.193521  0.065049484  73.52200 4.297585
## 1986 -0.0083982918 25.733459 3.247792  0.054271028  74.22985 4.307166
## 1987 -0.0040617421 26.832800 3.289625  0.041832981  75.27893 4.321200
## 1988 -0.0172397866 28.116721 3.336364  0.046739421  75.47812 4.323843
## 1989  0.0055384210 30.473218 3.416848  0.080483766  75.53893 4.324648
## 1990  0.0178235622 33.956717 3.525087  0.108238485  74.46685 4.310354
## 1991 -0.0306628548 35.723292 3.575803  0.050716239  73.17023 4.292789
## 1992 -0.0077571508 35.920576 3.581310  0.005507349  73.28309 4.294330
## 1993 -0.0356115393 35.588240 3.572015 -0.009295030  73.12428 4.292160
## 1994 -0.0163271797 35.921493 3.581336  0.009320577  75.88911 4.329273
## 1995 -0.0438535687 35.688090 3.574817 -0.006518808  77.67602 4.352547
## 1996  0.0377041357 37.433166 3.622557  0.047740078  78.63208 4.364780
## 1997 -0.0006725949 37.977388 3.636991  0.014433851  81.00209 4.394475
## 1998 -0.0365721701 36.913691 3.608583 -0.028408434  83.04822 4.419421
## 1999  0.0066148801 37.488091 3.624023  0.015440797  84.99335 4.442573
## 2000  0.0251211505 39.011455 3.663855  0.039832022  87.25388 4.468822
## 2001  0.0209266899 40.819157 3.709152  0.045296176  86.84540 4.464130
## 2002 -0.0093182770 41.067279 3.715212  0.006060160  88.07675 4.478209
## 2003 -0.0135728309 41.207300 3.718615  0.003403755  89.62573 4.495642
## 2004 -0.0122243158 40.834507 3.709527 -0.009087929  93.03441 4.532969
## 2005 -0.0036280819 40.958890 3.712569  0.003041392  94.80764 4.551850
## 2006 -0.0197266918 40.867715 3.710340 -0.002228483  97.19339 4.576703
## 2007  0.0087379995 42.399352 3.747133  0.036792689  98.11528 4.586143
## 2008  0.0085974314 44.156551 3.787741  0.040608207  96.40656 4.568574
## 2009  0.0141579797 45.846906 3.825308  0.037566425  92.72172 4.529603
## 2010 -0.0402574098 44.457597 3.794536 -0.030771864  97.37172 4.578536
## 2011  0.0091636028 45.355573 3.814533  0.019997209  98.28587 4.587880
## 2012  0.0313089125 47.264926 3.855768  0.041235425  96.52949 4.569849
## 2013  0.0074478238 48.062133 3.872495  0.016726127  96.36655 4.568159
## 2014 -0.0126800092 48.281587 3.877050  0.004555652  97.45093 4.579349
## 2015 -0.0279254995 47.982674 3.870840 -0.006210279 100.00000 4.605170
## 2016  0.0007329659 48.736073 3.886419  0.015579490 100.38808 4.609043
## 2017 -0.0068031477 49.462577 3.901216  0.014796890 100.37384 4.608902
## 2018  0.0015541790 50.692161 3.925771  0.024554921 100.56609 4.610815
##             Tau_dl        dPxdPm         dPdPm     Trade
## 1971 -0.0109402676 -0.0086838773  0.0201809104 0.3464662
## 1972  0.0002285232 -0.0018815639  0.0389874200 0.3550662
## 1973  0.0173654991 -0.0199025196 -0.0547015956 0.3753262
## 1974  0.0032433694 -0.0869376466 -0.2265598185 0.3919729
## 1975 -0.0020509522  0.0783883706  0.0889275042 0.3586776
## 1976 -0.0075975693 -0.0080015424  0.0421609292 0.3794412
## 1977 -0.0322080614 -0.0535808873 -0.0123805008 0.3796387
## 1978  0.0012280044 -0.0355277862 -0.0090881890 0.3741377
## 1979  0.0169215189 -0.0191902991 -0.0714515687 0.3929227
## 1980  0.0045364836 -0.0191471627 -0.0323539195 0.3829336
## 1981 -0.0154967465 -0.0199638147 -0.0084399187 0.3810902
## 1982  0.0014165984 -0.0298984793 -0.0555043552 0.3978216
## 1983  0.0056960576 -0.0084382628 -0.0297144811 0.4102047
## 1984  0.0239516052  0.0268199932  0.0362903164 0.4179165
## 1985  0.0016657250  0.0043840123  0.0280419269 0.4277239
## 1986  0.0095816761  0.0535385772  0.1309164491 0.4311895
## 1987  0.0140338981 -0.0104220811  0.0080577796 0.4411181
## 1988  0.0026424955  0.0100927348  0.0259303343 0.4482396
## 1989  0.0008053330  0.0024364589  0.0150654555 0.4609245
## 1990 -0.0142941064 -0.0171346419  0.0578454383 0.4651407
## 1991 -0.0175653412  0.0115242652  0.0734137247 0.4539161
## 1992  0.0015412408 -0.0030361623  0.0383594076 0.4679020
## 1993 -0.0021694859 -0.0559811470 -0.1132601803 0.4886490
## 1994  0.0371127770  0.0062573794 -0.0043395463 0.5320828
## 1995  0.0232733340  0.0226506747 -0.0089054434 0.5586950
## 1996  0.0122332194 -0.0082379594  0.0492386382 0.5716732
## 1997  0.0296952350 -0.0064431776  0.0111299801 0.6274255
## 1998  0.0249464307 -0.0023885096  0.0185064736 0.6626793
## 1999  0.0231515546 -0.0282732247 -0.0026417515 0.6745615
## 2000  0.0262490494 -0.0173439383 -0.0253432176 0.7195272
## 2001 -0.0046924955 -0.0140045758 -0.0147084282 0.7055284
## 2002  0.0140790817 -0.0209070800  0.0140504714 0.6924882
## 2003  0.0174338188 -0.0042486086  0.0379541422 0.7059803
## 2004  0.0373270390 -0.0116910775 -0.0043111114 0.7387047
## 2005  0.0188805204 -0.0190500436 -0.0382998062 0.7656660
## 2006  0.0248527309  0.0010351082 -0.0152883736 0.7942460
## 2007  0.0094404157  0.0143113833  0.0229104401 0.8130067
## 2008 -0.0175688933 -0.0030248979 -0.0107561690 0.8385642
## 2009 -0.0389715374  0.0100112340  0.0202824008 0.7498523
## 2010  0.0489330553 -0.0040402011  0.0117346402 0.7844367
## 2011  0.0093445468 -0.0070870957  0.0127642202 0.8141913
## 2012 -0.0180317076  0.0004930215  0.0220911660 0.8272758
## 2013 -0.0016894202  0.0027524268  0.0358217339 0.8139062
## 2014  0.0111897381  0.0025839947 -0.0003881575 0.8330074
## 2015  0.0258212598  0.0069662584  0.0080787830 0.8457137
## 2016  0.0038732911  0.0032766972  0.0307270872 0.8529364
## 2017 -0.0001419024 -0.0088985580 -0.0176437609 0.8704068
## 2018  0.0019135715 -0.0147113145 -0.0356542883 0.8800640

Adjusted Dickey-fuller testet I(0)

adf.SWE.WS <- adf.test((SWE$WS), alternative = c("stationary"), k = 2)
adf.SWE.PS <- adf.test((SWE$PS), alternative = c("stationary"), k = 2)
adf.SWE.Y <- adf.test((SWE$Y), alternative = c("stationary"), k = 2)
adf.SWE.Yrw <- adf.test((SWE$Yrw), alternative = c("stationary"), k = 2)
adf.SWE.r <- adf.test((SWE$r), alternative = c("stationary"), k = 2)
adf.SWE.R <- adf.test((SWE$R), alternative = c("stationary"), k = 2)
adf.SWE.Tau <- adf.test((SWE$Tau), alternative = c("stationary"), k = 2)
adf.SWE.rulc <- adf.test((SWE$rulc), alternative = c("stationary"), k = 2)
adf.SWE.ulc <- adf.test((SWE$ulc), alternative = c("stationary"), k = 2)
adf.SWE.P <- adf.test((SWE$P), alternative = c("stationary"), k = 2)
adf.SWE.Pm <- adf.test((SWE$Pm), alternative = c("stationary"), k = 2)
adf.SWE.Px <- adf.test((SWE$Px), alternative = c("stationary"), k = 2)
adf.SWE.X <- adf.test((SWE$X), alternative = c("stationary"), k = 2)
adf.SWE.M <- adf.test((SWE$M), alternative = c("stationary"), k = 2)
adf.SWE.I <- adf.test((SWE$I), alternative = c("stationary"), k = 2)
adf.SWE.C <- adf.test((SWE$C), alternative = c("stationary"), k = 2)
adf.SWE.Ipr <- adf.test((SWE$Ipr), alternative = c("stationary"), k = 2)
adf.SWE.Ips <- adf.test((SWE$Ips), alternative = c("stationary"), k = 2)
adf.SWE.It <- adf.test((SWE$It), alternative = c("stationary"), k = 2)
adf.SWE.Itcurr <- adf.test((SWE$Itcurr), alternative = c("stationary"), k = 2)
adf.SWE.Yf <- adf.test((SWE$Yf), alternative = c("stationary"), k = 2)
adf.SWE.W <- adf.test((SWE$W), alternative = c("stationary"), k = 2)

adf.SWE.WS.pval <- adf.SWE.WS$p.value
adf.SWE.PS.pval <- adf.SWE.PS$p.value
adf.SWE.Y.pval <- adf.SWE.Y$p.value
adf.SWE.Yrw.pval <- adf.SWE.Yrw$p.value
adf.SWE.r.pval <- adf.SWE.r$p.value
adf.SWE.R.pval <- adf.SWE.R$p.value
adf.SWE.Tau.pval <- adf.SWE.Tau$p.value
adf.SWE.rulc.pval <- adf.SWE.rulc$p.value
adf.SWE.ulc.pval <- adf.SWE.ulc$p.value
adf.SWE.P.pval <- adf.SWE.P$p.value
adf.SWE.Pm.pval <- adf.SWE.Pm$p.value
adf.SWE.Px.pval <- adf.SWE.Px$p.value
adf.SWE.X.pval <- adf.SWE.X$p.value
adf.SWE.M.pval <- adf.SWE.M$p.value
adf.SWE.I.pval <- adf.SWE.I$p.value
adf.SWE.C.pval <- adf.SWE.C$p.value
adf.SWE.Ipr.pval <- adf.SWE.Ipr$p.value
adf.SWE.Ips.pval <- adf.SWE.Ips$p.value
adf.SWE.It.pval <- adf.SWE.It$p.value
adf.SWE.Itcurr.pval <- adf.SWE.Itcurr$p.value
adf.SWE.Yf.pval <- adf.SWE.Yf$p.value
adf.SWE.W.pval <- adf.SWE.W$p.value

adf.SWE_non <- rbind(adf.SWE.WS.pval,adf.SWE.PS.pval,adf.SWE.Y.pval,adf.SWE.Yrw.pval,adf.SWE.r.pval,adf.SWE.R.pval,adf.SWE.Tau.pval,adf.SWE.rulc.pval,adf.SWE.ulc.pval,adf.SWE.P.pval,adf.SWE.Pm.pval,adf.SWE.Px.pval,adf.SWE.X.pval,adf.SWE.M.pval,adf.SWE.I.pval,adf.SWE.C.pval,adf.SWE.Ipr.pval,adf.SWE.Ips.pval,adf.SWE.It.pval,adf.SWE.Itcurr.pval,adf.SWE.Yf.pval,adf.SWE.W.pval)


colnames(adf.SWE_non) <- c("SWE")
rownames(adf.SWE_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.SWE_non
##               SWE
## WS     0.55594128
## PS     0.55594128
## Y      0.94008888
## Yrw    0.24597992
## r      0.89241127
## R      0.07988192
## Tau    0.48520648
## rulc   0.81426862
## ulc    0.77220767
## P      0.79102370
## Pm     0.56026960
## Px     0.57393598
## X      0.66490600
## M      0.92955009
## I      0.62743069
## C      0.95415156
## Ipr    0.97585614
## Ips    0.07314448
## It     0.79151686
## Itcurr 0.99000000
## Yf     0.90696403
## W      0.93576868

Adjusted Dickey-fuller testet I(1)

adf.SWE.WS_dl <- adf.test((SWE$WS_dl), alternative = c("stationary"), k = 2)
adf.SWE.PS_dl <- adf.test((SWE$PS_dl), alternative = c("stationary"), k = 2)
adf.SWE.Y_dl <- adf.test((SWE$Y_dl), alternative = c("stationary"), k = 2)
adf.SWE.Yrw_dl <- adf.test((SWE$Yrw_dl), alternative = c("stationary"), k = 2)
adf.SWE.r_dl <- adf.test((SWE$r_dl), alternative = c("stationary"), k = 2)
adf.SWE.R_dl <- adf.test((SWE$R_dl), alternative = c("stationary"), k = 2)
adf.SWE.Tau_dl <- adf.test((SWE$Tau_dl), alternative = c("stationary"), k = 2)
adf.SWE.rulc_dl <- adf.test((SWE$rulc_dl), alternative = c("stationary"), k = 2)
adf.SWE.ulc_dl <- adf.test((SWE$ulc_dl), alternative = c("stationary"), k = 2)
adf.SWE.P_dl <- adf.test((SWE$P_dl), alternative = c("stationary"), k = 2)
adf.SWE.Pm_dl <- adf.test((SWE$Pm_dl), alternative = c("stationary"), k = 2)
adf.SWE.Px_dl <- adf.test((SWE$Px_dl), alternative = c("stationary"), k = 2)
adf.SWE.X_dl <- adf.test((SWE$X_dl), alternative = c("stationary"), k = 2)
adf.SWE.M_dl <- adf.test((SWE$M_dl), alternative = c("stationary"), k = 2)
adf.SWE.I_dl <- adf.test((SWE$I_dl), alternative = c("stationary"), k = 2)
adf.SWE.C_dl <- adf.test((SWE$C_dl), alternative = c("stationary"), k = 2)
adf.SWE.Ipr_dl <- adf.test((SWE$Ipr_dl), alternative = c("stationary"), k = 2)
adf.SWE.Ips_dl <- adf.test((SWE$Ips_dl), alternative = c("stationary"), k = 2)
adf.SWE.It_dl <- adf.test((SWE$It_dl), alternative = c("stationary"), k = 2)
adf.SWE.Itcurr_dl <- adf.test((SWE$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.SWE.Yf_dl <- adf.test((SWE$Yf_dl), alternative = c("stationary"), k = 2)
adf.SWE.W_dl <- adf.test((SWE$W_dl), alternative = c("stationary"), k = 2)

adf.SWE.WS_dl.pval <- adf.SWE.WS_dl$p.value
adf.SWE.PS_dl.pval <- adf.SWE.PS_dl$p.value
adf.SWE.Y_dl.pval <- adf.SWE.Y_dl$p.value
adf.SWE.Yrw_dl.pval <- adf.SWE.Yrw_dl$p.value
adf.SWE.r_dl.pval <- adf.SWE.r_dl$p.value
adf.SWE.R_dl.pval <- adf.SWE.R_dl$p.value
adf.SWE.Tau_dl.pval <- adf.SWE.Tau_dl$p.value
adf.SWE.rulc_dl.pval <- adf.SWE.rulc_dl$p.value
adf.SWE.ulc_dl.pval <- adf.SWE.ulc_dl$p.value
adf.SWE.P_dl.pval <- adf.SWE.P_dl$p.value
adf.SWE.Pm_dl.pval <- adf.SWE.Pm_dl$p.value
adf.SWE.Px_dl.pval <- adf.SWE.Px_dl$p.value
adf.SWE.X_dl.pval <- adf.SWE.X_dl$p.value
adf.SWE.M_dl.pval <- adf.SWE.M_dl$p.value
adf.SWE.I_dl.pval <- adf.SWE.I_dl$p.value
adf.SWE.C_dl.pval <- adf.SWE.C_dl$p.value
adf.SWE.Ipr_dl.pval <- adf.SWE.Ipr_dl$p.value
adf.SWE.Ips_dl.pval <- adf.SWE.Ips_dl$p.value
adf.SWE.It_dl.pval <- adf.SWE.It_dl$p.value
adf.SWE.Itcurr_dl.pval <- adf.SWE.Itcurr_dl$p.value
adf.SWE.Yf_dl.pval <- adf.SWE.Yf_dl$p.value
adf.SWE.W_dl.pval <- adf.SWE.W_dl$p.value

adf.SWE_dl <- rbind(adf.SWE.WS_dl.pval,adf.SWE.PS_dl.pval,adf.SWE.Y_dl.pval,adf.SWE.Yrw_dl.pval,adf.SWE.r_dl.pval,adf.SWE.R_dl.pval,adf.SWE.Tau_dl.pval,adf.SWE.rulc_dl.pval,adf.SWE.ulc_dl.pval,adf.SWE.P_dl.pval,adf.SWE.Pm_dl.pval,adf.SWE.Px_dl.pval,adf.SWE.X_dl.pval,adf.SWE.M_dl.pval,adf.SWE.I_dl.pval,adf.SWE.C_dl.pval,adf.SWE.Ipr_dl.pval,adf.SWE.Ips_dl.pval,adf.SWE.It_dl.pval,adf.SWE.Itcurr_dl.pval,adf.SWE.Yf_dl.pval,adf.SWE.W_dl.pval)
colnames(adf.SWE_dl) <- c("SWE")
rownames(adf.SWE_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.SWE_dl
##                     SWE
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.01462179
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01000000
## dlog(Tau)    0.03952552
## dlog(rulc)   0.01000000
## dlog(ulc)    0.01519439
## dlog(P)      0.18574975
## dlog(Pm)     0.02878673
## dlog(Px)     0.01066969
## dlog(X)      0.01078184
## dlog(M)      0.02289827
## dlog(I)      0.02510804
## dlog(C)      0.12152481
## dlog(Ipr)    0.04288613
## dlog(Ips)    0.04894810
## dlog(It)     0.01741872
## dlog(Itcurr) 0.03416446
## dlog(Yf)     0.01000000
## dlog(W)      0.04768002
adf.SWE <- NULL
adf.SWE <- rbind(adf.SWE_non,adf.SWE_dl)

Økonometriske test

#Consumption (C)
SWE_consumption <- dynlm(SWE$C_dl~SWE$R_dl+SWE$W_dl)
SWE_CR <- summary(SWE_consumption)$coefficients["SWE$R_dl","Estimate"]
SWE_CW <- summary(SWE_consumption)$coefficients["SWE$W_dl","Estimate"]
SWE_Ceffekt <- (SWE_CR*mean(SWE$C/SWE$R))-(SWE_CW*mean(SWE$C/SWE$W))
summary(SWE_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$C_dl ~ SWE$R_dl + SWE$W_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0254030 -0.0099102  0.0004064  0.0077436  0.0271217 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.008936   0.002396   3.730     0.000535 ***
## SWE$R_dl    0.108093   0.035328   3.060     0.003726 ** 
## SWE$W_dl    0.519053   0.079267   6.548 0.0000000478 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01322 on 45 degrees of freedom
## Multiple R-squared:  0.5068, Adjusted R-squared:  0.4849 
## F-statistic: 23.12 on 2 and 45 DF,  p-value: 0.0000001237
#Investments (I)
SWE_investment <- dynlm(SWE$I_dl~SWE$PS_dl+SWE$Y_dl)
SWE_iPS <- summary(SWE_investment)$coefficients["SWE$PS_dl","Estimate"]
SWE_Ieffekt <- SWE_iPS*mean(SWE$I/SWE$R)
summary(SWE_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$I_dl ~ SWE$PS_dl + SWE$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.088815 -0.014984  0.003028  0.019672  0.065384 
## 
## Coefficients:
##              Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) -0.048655   0.008049  -6.045 0.00000026792251815 ***
## SWE$PS_dl   -0.570816   0.138391  -4.125            0.000158 ***
## SWE$Y_dl     3.470529   0.288991  12.009 0.00000000000000124 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03688 on 45 degrees of freedom
## Multiple R-squared:  0.7624, Adjusted R-squared:  0.7519 
## F-statistic: 72.22 on 2 and 45 DF,  p-value: 0.000000000000009006
#Price deflator (P)
SWE_deflator <- dynlm(SWE$P_dl~L(SWE$ulc_dl)+SWE$Pm_dl)
SWE_ePULC <- summary(SWE_deflator)$coefficients["L(SWE$ulc_dl)","Estimate"]
summary(SWE_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$P_dl ~ L(SWE$ulc_dl) + SWE$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.033673 -0.011688 -0.000383  0.014266  0.034113 
## 
## Coefficients:
##               Estimate Std. Error t value         Pr(>|t|)    
## (Intercept)   0.013686   0.003583   3.820         0.000407 ***
## L(SWE$ulc_dl) 0.636345   0.066840   9.520 0.00000000000237 ***
## SWE$Pm_dl     0.164019   0.042191   3.887         0.000330 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0173 on 45 degrees of freedom
## Multiple R-squared:  0.7772, Adjusted R-squared:  0.7673 
## F-statistic:  78.5 on 2 and 45 DF,  p-value: 0.000000000000002125
#Export price deflator (Px)
SWE_exportdeflator <- dynlm(SWE$Px_dl~SWE$ulc_dl+SWE$Pm_dl)
SWE_ePX <- summary(SWE_exportdeflator)$coefficients["SWE$ulc_dl","Estimate"]
summary(SWE_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$Px_dl ~ SWE$ulc_dl + SWE$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042075 -0.010454 -0.001784  0.009900  0.068791 
## 
## Coefficients:
##               Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) -0.0003758  0.0038648  -0.097              0.9230    
## SWE$ulc_dl   0.1634180  0.0720955   2.267              0.0283 *  
## SWE$Pm_dl    0.7129935  0.0455087  15.667 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01866 on 45 degrees of freedom
## Multiple R-squared:  0.8785, Adjusted R-squared:  0.8731 
## F-statistic: 162.6 on 2 and 45 DF,  p-value: < 0.00000000000000022
#Exports (X)
SWE_exports <- dynlm(SWE$X_dl~L(SWE$dPxdPm)+SWE$Yrw_dl)
SWE_eXP <- summary(SWE_exports)$coefficients["L(SWE$dPxdPm)","Estimate"]
SWE_Xeffekt <- -(SWE_eXP*SWE_ePX*(1/(1-SWE_ePULC))*mean(SWE$Yf/SWE$Y)*(mean(SWE$X/SWE$Y)/mean(SWE$rulc)))
summary(SWE_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$X_dl ~ L(SWE$dPxdPm) + SWE$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.079333 -0.025656 -0.001319  0.029532  0.078020 
## 
## Coefficients:
##               Estimate Std. Error t value    Pr(>|t|)    
## (Intercept)   -0.01113    0.01066  -1.044      0.3022    
## L(SWE$dPxdPm) -0.51756    0.22256  -2.326      0.0246 *  
## SWE$Yrw_dl     2.02626    0.35056   5.780 0.000000661 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03816 on 45 degrees of freedom
## Multiple R-squared:  0.4754, Adjusted R-squared:  0.452 
## F-statistic: 20.39 on 2 and 45 DF,  p-value: 0.0000004977
#Imports (M)
SWE_imports <- dynlm(SWE$M_dl~SWE$dPdPm+L(SWE$Y_l))
SWE_eMP <- summary(SWE_imports)$coefficients["SWE$dPdPm","Estimate"]
SWE_eMP <- 0
SWE_Meffekt <- -(SWE_eMP*SWE_ePULC*(1/(1-SWE_ePULC))*mean(SWE$Yf/SWE$Y)*(mean(SWE$M/SWE$Y)/mean(SWE$rulc)))
summary(SWE_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$M_dl ~ SWE$dPdPm + L(SWE$Y_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.195649 -0.033081  0.009609  0.031311  0.085026 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.15833    0.21025  -0.753    0.455
## SWE$dPdPm   -0.21598    0.15155  -1.425    0.161
## L(SWE$Y_l)   0.02475    0.02660   0.931    0.357
## 
## Residual standard error: 0.05482 on 45 degrees of freedom
## Multiple R-squared:  0.05558,    Adjusted R-squared:  0.0136 
## F-statistic: 1.324 on 2 and 45 DF,  p-value: 0.2762
names(SWE_consumption$coefficients) <- sub("SWE$","",names(SWE_consumption$coefficients),fixed=TRUE)
names(SWE_investment$coefficients) <- sub("SWE$","",names(SWE_investment$coefficients),fixed=TRUE)
names(SWE_deflator$coefficients) <- sub("SWE$","",names(SWE_deflator$coefficients),fixed=TRUE)
names(SWE_exportdeflator$coefficients) <- sub("SWE$","",names(SWE_exportdeflator$coefficients),fixed=TRUE)
names(SWE_exports$coefficients) <- sub("SWE$","",names(SWE_exports$coefficients),fixed=TRUE)
names(SWE_imports$coefficients) <- sub("SWE$","",names(SWE_imports$coefficients),fixed=TRUE)

SWE_Xeffekt
## [1] 0.1091359
SWE_Meffekt
## [1] 0
#Nettoeksport (NX)
SWE_NXeffekt <- SWE_Xeffekt - SWE_Meffekt

SWE_NXeffekt
## [1] 0.1091359
#Nettoeffekten
SWE_Neteffekt = SWE_Ceffekt + SWE_Ieffekt + SWE_NXeffekt

SWE_Neteffekt
## [1] -0.5152475
SWE_Lukket <- SWE_Ceffekt + SWE_Ieffekt
SWE_Lukket_Konklusion <- ifelse(SWE_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
SWE_Lukket_Konklusion
## [1] "Wage-led domestic"
SWE_Def <- ifelse(SWE_Neteffekt > 0, "Profit-led", "Wage-led")
SWE_Def
## [1] "Wage-led"

Kointegrations-test

summary(ur.df(y=SWE_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.019486 -0.002811  0.001171  0.006195  0.018796 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.46037    0.86583  -1.687    0.106
## z.diff.lag1   0.70339    0.84713   0.830    0.415
## z.diff.lag2   0.55823    0.79240   0.704    0.489
## z.diff.lag3   0.46324    0.72555   0.638    0.530
## z.diff.lag4   0.45419    0.65878   0.689    0.498
## z.diff.lag5   0.35426    0.56979   0.622    0.541
## z.diff.lag6   0.19098    0.52216   0.366    0.718
## z.diff.lag7   0.27679    0.46648   0.593    0.559
## z.diff.lag8  -0.09998    0.42065  -0.238    0.814
## z.diff.lag9  -0.10822    0.37356  -0.290    0.775
## z.diff.lag10 -0.10841    0.31938  -0.339    0.738
## z.diff.lag11 -0.01298    0.24770  -0.052    0.959
## z.diff.lag12  0.20371    0.18359   1.110    0.279
## 
## Residual standard error: 0.0112 on 22 degrees of freedom
## Multiple R-squared:  0.6727, Adjusted R-squared:  0.4792 
## F-statistic: 3.478 on 13 and 22 DF,  p-value: 0.004925
## 
## 
## Value of test-statistic is: -1.6867 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=SWE_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.066448 -0.022526  0.001866  0.019644  0.046352 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.94580    0.59057  -1.601    0.124
## z.diff.lag1   0.22084    0.55905   0.395    0.697
## z.diff.lag2   0.19656    0.51830   0.379    0.708
## z.diff.lag3   0.19481    0.48524   0.401    0.692
## z.diff.lag4  -0.09509    0.44923  -0.212    0.834
## z.diff.lag5   0.10298    0.41690   0.247    0.807
## z.diff.lag6   0.19626    0.38385   0.511    0.614
## z.diff.lag7   0.09119    0.35287   0.258    0.798
## z.diff.lag8   0.11221    0.31655   0.354    0.726
## z.diff.lag9   0.09311    0.28298   0.329    0.745
## z.diff.lag10  0.04402    0.25165   0.175    0.863
## z.diff.lag11 -0.11570    0.21134  -0.547    0.590
## z.diff.lag12 -0.03170    0.17006  -0.186    0.854
## 
## Residual standard error: 0.03612 on 22 degrees of freedom
## Multiple R-squared:  0.5327, Adjusted R-squared:  0.2565 
## F-statistic: 1.929 on 13 and 22 DF,  p-value: 0.08422
## 
## 
## Value of test-statistic is: -1.6015 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=SWE_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.071343 -0.011478  0.000174  0.020593  0.068579 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.31178    0.43809  -0.712   0.4841  
## z.diff.lag1  -0.52163    0.44179  -1.181   0.2503  
## z.diff.lag2  -0.52132    0.41990  -1.242   0.2275  
## z.diff.lag3  -0.50721    0.39246  -1.292   0.2096  
## z.diff.lag4  -0.26501    0.36024  -0.736   0.4697  
## z.diff.lag5  -0.38894    0.32947  -1.181   0.2504  
## z.diff.lag6  -0.33873    0.28780  -1.177   0.2518  
## z.diff.lag7  -0.45502    0.27367  -1.663   0.1106  
## z.diff.lag8  -0.42914    0.26123  -1.643   0.1146  
## z.diff.lag9  -0.51794    0.26108  -1.984   0.0599 .
## z.diff.lag10 -0.52060    0.26395  -1.972   0.0613 .
## z.diff.lag11 -0.07638    0.22761  -0.336   0.7404  
## z.diff.lag12 -0.27342    0.20249  -1.350   0.1907  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03618 on 22 degrees of freedom
## Multiple R-squared:  0.5715, Adjusted R-squared:  0.3183 
## F-statistic: 2.257 on 13 and 22 DF,  p-value: 0.04458
## 
## 
## Value of test-statistic is: -0.7117 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=SWE_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.17443 -0.01172  0.01044  0.03267  0.09634 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.34088    0.95686  -1.401    0.175
## z.diff.lag1   0.41590    0.91384   0.455    0.653
## z.diff.lag2   0.23409    0.87108   0.269    0.791
## z.diff.lag3   0.28739    0.83170   0.346    0.733
## z.diff.lag4   0.15604    0.77210   0.202    0.842
## z.diff.lag5   0.01073    0.71389   0.015    0.988
## z.diff.lag6  -0.04253    0.64444  -0.066    0.948
## z.diff.lag7  -0.22114    0.57356  -0.386    0.704
## z.diff.lag8  -0.11398    0.49687  -0.229    0.821
## z.diff.lag9  -0.21663    0.43743  -0.495    0.625
## z.diff.lag10  0.11146    0.41042   0.272    0.788
## z.diff.lag11 -0.04838    0.33304  -0.145    0.886
## z.diff.lag12 -0.02737    0.25189  -0.109    0.914
## 
## Residual standard error: 0.06124 on 22 degrees of freedom
## Multiple R-squared:  0.5791, Adjusted R-squared:  0.3304 
## F-statistic: 2.328 on 13 and 22 DF,  p-value: 0.0389
## 
## 
## Value of test-statistic is: -1.4013 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(SWE_consumption)

plot(SWE_investment)

plot(SWE_deflator)

plot(SWE_exportdeflator)

plot(SWE_exports)

plot(SWE_imports)

bptest(SWE_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  SWE_consumption
## BP = 10.584, df = 2, p-value = 0.005031
bptest(SWE_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  SWE_investment
## BP = 10.922, df = 2, p-value = 0.004249
bptest(SWE_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  SWE_deflator
## BP = 3.5668, df = 2, p-value = 0.1681
bptest(SWE_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  SWE_exportdeflator
## BP = 9.989, df = 2, p-value = 0.006775
bptest(SWE_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  SWE_exports
## BP = 0.38823, df = 2, p-value = 0.8236
bptest(SWE_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  SWE_imports
## BP = 0.011861, df = 2, p-value = 0.9941
resettest(SWE_consumption)
## 
##  RESET test
## 
## data:  SWE_consumption
## RESET = 2.2482, df1 = 2, df2 = 43, p-value = 0.1179
resettest(SWE_investment)
## 
##  RESET test
## 
## data:  SWE_investment
## RESET = 4.8913, df1 = 2, df2 = 43, p-value = 0.01219
resettest(SWE_deflator)
## 
##  RESET test
## 
## data:  SWE_deflator
## RESET = 7.2287, df1 = 2, df2 = 43, p-value = 0.001966
resettest(SWE_exportdeflator)
## 
##  RESET test
## 
## data:  SWE_exportdeflator
## RESET = 0.43105, df1 = 2, df2 = 43, p-value = 0.6526
resettest(SWE_exports)
## 
##  RESET test
## 
## data:  SWE_exports
## RESET = 5.8302, df1 = 2, df2 = 43, p-value = 0.005749
resettest(SWE_imports)
## 
##  RESET test
## 
## data:  SWE_imports
## RESET = 0.013636, df1 = 2, df2 = 43, p-value = 0.9865

Resultater

SWE_regtab <- matrix(c(SWE_Ceffekt, SWE_Ieffekt, SWE_Lukket, SWE_Xeffekt, SWE_Meffekt, SWE_NXeffekt, SWE_Neteffekt,SWE_Lukket_Konklusion, SWE_Def),ncol=9,byrow=TRUE)
colnames(SWE_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(SWE_regtab) <- c("SWE")
SWE_regtab <- as.table(SWE_regtab)
SWE_regtab
##     consumption        investment         Lukket neteffekt  
## SWE -0.292965118668464 -0.331418305062981 -0.624383423731445
##     exports           imports netexports        neteffect         
## SWE 0.109135915707448 0       0.109135915707448 -0.515247508023996
##     Lukket konklusion Konklusion
## SWE Wage-led domestic Wage-led
SWE_smoke <- matrix(c(mean(SWE$C/SWE$R), mean(SWE$C/SWE$W), mean(SWE$I/SWE$R), SWE_CR, SWE_CW, SWE_iPS, SWE_ePULC, (1/(1-SWE_ePULC)), SWE_eXP, SWE_ePX, SWE_eMP, mean(SWE$Yf/SWE$Y), mean(SWE$X/SWE$Y), mean(SWE$rulc), (mean(SWE$X/SWE$Y)/mean(SWE$rulc))),ncol=15,byrow=TRUE)
colnames(SWE_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(SWE_smoke) <- c("SWE")
SWE_smoke <- as.table(SWE_smoke)
SWE_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## SWE  1.5013259  0.8770756  0.5806044  0.1080935  0.5190529 -0.5708160
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## SWE  0.6363445  2.7498554 -0.5175607  0.1634180  0.0000000  0.8582063
##            X/Y       RULC (X/Y)/rulc
## SWE  0.2964661  0.5422133  0.5467703

Summary af regressioner

summary(SWE_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$C_dl ~ SWE$R_dl + SWE$W_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0254030 -0.0099102  0.0004064  0.0077436  0.0271217 
## 
## Coefficients:
##             Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) 0.008936   0.002396   3.730     0.000535 ***
## R_dl        0.108093   0.035328   3.060     0.003726 ** 
## W_dl        0.519053   0.079267   6.548 0.0000000478 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01322 on 45 degrees of freedom
## Multiple R-squared:  0.5068, Adjusted R-squared:  0.4849 
## F-statistic: 23.12 on 2 and 45 DF,  p-value: 0.0000001237
summary(SWE_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$I_dl ~ SWE$PS_dl + SWE$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.088815 -0.014984  0.003028  0.019672  0.065384 
## 
## Coefficients:
##              Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) -0.048655   0.008049  -6.045 0.00000026792251815 ***
## PS_dl       -0.570816   0.138391  -4.125            0.000158 ***
## Y_dl         3.470529   0.288991  12.009 0.00000000000000124 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03688 on 45 degrees of freedom
## Multiple R-squared:  0.7624, Adjusted R-squared:  0.7519 
## F-statistic: 72.22 on 2 and 45 DF,  p-value: 0.000000000000009006
summary(SWE_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$P_dl ~ L(SWE$ulc_dl) + SWE$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.033673 -0.011688 -0.000383  0.014266  0.034113 
## 
## Coefficients:
##             Estimate Std. Error t value         Pr(>|t|)    
## (Intercept) 0.013686   0.003583   3.820         0.000407 ***
## L(ulc_dl)   0.636345   0.066840   9.520 0.00000000000237 ***
## Pm_dl       0.164019   0.042191   3.887         0.000330 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0173 on 45 degrees of freedom
## Multiple R-squared:  0.7772, Adjusted R-squared:  0.7673 
## F-statistic:  78.5 on 2 and 45 DF,  p-value: 0.000000000000002125
summary(SWE_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$Px_dl ~ SWE$ulc_dl + SWE$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042075 -0.010454 -0.001784  0.009900  0.068791 
## 
## Coefficients:
##               Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) -0.0003758  0.0038648  -0.097              0.9230    
## ulc_dl       0.1634180  0.0720955   2.267              0.0283 *  
## Pm_dl        0.7129935  0.0455087  15.667 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01866 on 45 degrees of freedom
## Multiple R-squared:  0.8785, Adjusted R-squared:  0.8731 
## F-statistic: 162.6 on 2 and 45 DF,  p-value: < 0.00000000000000022
summary(SWE_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$X_dl ~ L(SWE$dPxdPm) + SWE$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.079333 -0.025656 -0.001319  0.029532  0.078020 
## 
## Coefficients:
##             Estimate Std. Error t value    Pr(>|t|)    
## (Intercept) -0.01113    0.01066  -1.044      0.3022    
## L(dPxdPm)   -0.51756    0.22256  -2.326      0.0246 *  
## Yrw_dl       2.02626    0.35056   5.780 0.000000661 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03816 on 45 degrees of freedom
## Multiple R-squared:  0.4754, Adjusted R-squared:  0.452 
## F-statistic: 20.39 on 2 and 45 DF,  p-value: 0.0000004977
summary(SWE_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 48
## 
## Call:
## dynlm(formula = SWE$M_dl ~ SWE$dPdPm + L(SWE$Y_l))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.195649 -0.033081  0.009609  0.031311  0.085026 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.15833    0.21025  -0.753    0.455
## dPdPm       -0.21598    0.15155  -1.425    0.161
## L(Y_l)       0.02475    0.02660   0.931    0.357
## 
## Residual standard error: 0.05482 on 45 degrees of freedom
## Multiple R-squared:  0.05558,    Adjusted R-squared:  0.0136 
## F-statistic: 1.324 on 2 and 45 DF,  p-value: 0.2762

Storbritannien analyse

Test for NA værdier

GBR_df[!complete.cases(GBR_df),]
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1960 0.6382676 -0.4489977           NA 0.3617324 -1.016850           NA
## 1961 0.6502917 -0.4303342  0.018663531 0.3497083 -1.050656 -0.033805569
## 1962 0.6534649 -0.4254664  0.004867788 0.3465351 -1.059771 -0.009115264
## 1963 0.6575339 -0.4192590  0.006207377 0.3424661 -1.071582 -0.011811202
## 2019 0.6681585 -0.4032299  0.014620460 0.3318415 -1.103098 -0.028805067
## 2020 0.6422196 -0.4428249 -0.039595007 0.3577804 -1.027836  0.075261730
## 2021 0.6604535 -0.4148286  0.027996330 0.3395465 -1.080144 -0.052308321
## 2022        NA         NA           NA        NA        NA           NA
##             Y      Y_l        Y_dl            Yrw    Yrw_l     Yrw_dl
## 1960  516.432 6.246944          NA  8985242930475 29.82660         NA
## 1961  530.382 6.273598  0.02665388  9409128615642 29.87270 0.04609679
## 1962  536.209 6.284524  0.01092651  9961984988738 29.92980 0.05709600
## 1963  562.267 6.331977  0.04745282 10506649545398 29.98303 0.05323200
## 2019 2045.738 7.623514  0.01398821             NA       NA         NA
## 2020 1875.440 7.536599 -0.08691531             NA       NA         NA
## 2021 1987.679 7.594723  0.05812433             NA       NA         NA
## 2022       NA       NA          NA             NA       NA         NA
##           Tax       Yf     Yf_l       Yf_dl        C      C_l        C_dl
## 1960       NA       NA       NA          NA  297.606 5.695770          NA
## 1961       NA       NA       NA          NA  304.330 5.718113  0.02234217
## 1962       NA       NA       NA          NA  311.309 5.740786  0.02267335
## 1963   3.4890  558.778 6.325752          NA  325.673 5.785894  0.04510782
## 2019 288.6430 1757.095 7.471417  0.01136884 1344.318 7.203642  0.01074397
## 2020 250.3027 1625.137 7.393348 -0.07806957 1206.099 7.095146 -0.10849564
## 2021 268.5029 1719.176 7.449600  0.05625286 1289.749 7.162203  0.06705644
## 2022       NA       NA       NA          NA       NA       NA          NA
##              W      W_l        W_dl        R      R_l         R_dl
## 1960        NA       NA          NA       NA       NA           NA
## 1961        NA       NA          NA       NA       NA           NA
## 1962        NA       NA          NA       NA       NA           NA
## 1963  367.4155 5.906493          NA 191.3625 5.254170           NA
## 2019 1174.0179 7.068187  0.02598930 583.0771 6.368319 -0.017436232
## 2020 1043.6951 6.950523 -0.11766458 581.4422 6.365512 -0.002807843
## 2021 1135.4358 7.034772  0.08424919 583.7403 6.369456  0.003944539
## 2022        NA       NA          NA       NA       NA           NA
##            It     It_l        It_dl   Itcurr Itcurr_l   Itcurr_dl      Ipr
## 1960  86.6574 4.461962           NA   4.5170 1.507848          NA   3.4708
## 1961  93.6713 4.539792  0.077829432   5.0900 1.627278  0.11942977   3.9617
## 1962  94.5386 4.549008  0.009216371   5.2300 1.654411  0.02713345   3.9905
## 1963  96.7568 4.572201  0.023192397   5.6300 1.728109  0.07369816   4.2877
## 2019 343.0900 5.837993  0.005616606 377.6610 5.933997  0.04058912 315.4910
## 2020 294.1437 5.684068 -0.153924380 326.5000 5.788430 -0.14556702 265.5671
## 2021 327.8656 5.792604  0.108535345 367.9521 5.907953  0.11952282 300.7979
## 2022       NA       NA           NA       NA       NA          NA       NA
##         Ipr_l      Ipr_dl       Ips      Ips_l       Ips_dl         I
## 1960 1.244385          NA 0.7683861 -0.2634629           NA  66.58634
## 1961 1.376673  0.13228811 0.7783301 -0.2506046  0.012858337  72.90719
## 1962 1.383917  0.00724331 0.7630019 -0.2704947 -0.019890137  72.13313
## 1963 1.455750  0.07183392 0.7615808 -0.2723590 -0.001864242  73.68812
## 2019 5.754130  0.03219674 0.8353815 -0.1798668 -0.008392375 286.61103
## 2020 5.581868 -0.17226262 0.8133755 -0.2065624 -0.026695597 239.24928
## 2021 5.706439  0.12457107 0.8174920 -0.2015142  0.005048253 268.02751
## 2022       NA          NA        NA         NA           NA        NA
##           I_l         I_dl          r      r_l        r_dl          P
## 1960 4.198499           NA         NA       NA          NA   5.067272
## 1961 4.289187  0.090687769  2.4119388 2.531582          NA   5.258661
## 1962 4.278513 -0.010673766  2.2079893 2.515229 -0.01635373   5.448617
## 1963 4.299842  0.021328155  3.8797786 2.641998  0.12676907   5.529404
## 2019 5.658126 -0.002775769 -0.9590883 2.219460 -0.02653518 108.268429
## 2020 5.477506 -0.180619977         NA       NA          NA 110.108696
## 2021 5.591090  0.113583598         NA       NA          NA 111.799048
## 2022       NA           NA         NA       NA          NA         NA
##           P_l       P_dl         Pm     Pm_l         Pm_dl         Px
## 1960 1.622803         NA   9.327473 2.232964            NA   8.427734
## 1961 1.659876 0.03707383   9.370993 2.237619  0.0046549249   8.573049
## 1962 1.695362 0.03548540   9.377532 2.238317  0.0006975589   8.676569
## 1963 1.710080 0.01471813   9.748730 2.277137  0.0388203522   8.839182
## 2019 4.684614 0.01839868 112.969749 4.727120  0.0095609567 113.947302
## 2020 4.701468 0.01685443 110.710354 4.706917 -0.0202027076 111.668356
## 2021 4.716703 0.01523502 112.703140 4.724757  0.0178399184 113.678386
## 2022       NA         NA         NA       NA            NA         NA
##          Px_l       Px_dl        X      X_l        X_dl        M      M_l
## 1960 2.131528          NA  62.2706 4.131489          NA  60.3593 4.100315
## 1961 2.148623  0.01709556  63.9796 4.158564  0.02707488  59.7269 4.089783
## 1962 2.160626  0.01200274  64.7952 4.171232  0.01266724  60.7516 4.106793
## 1963 2.179194  0.01856813  67.6307 4.214062  0.04283050  62.7672 4.139433
## 2019 4.735736  0.01505082 613.1132 6.418550  0.04717554 641.3407 6.463561
## 2020 4.715533 -0.02020271 547.2049 6.304823 -0.11372626 577.6383 6.358948
## 2021 4.733373  0.01783992 574.9007 6.354197  0.04937401 612.9667 6.418311
## 2022       NA          NA       NA       NA          NA       NA       NA
##             M_dl      rulc     rulc_l     rulc_dl       ulc    ulc_l
## 1960          NA        NA         NA          NA        NA       NA
## 1961 -0.01053253        NA         NA          NA        NA       NA
## 1962  0.01701091        NA         NA          NA        NA       NA
## 1963  0.03263922 0.6534537 -0.4254836          NA  3.613209 1.284596
## 2019  0.04468591 0.5738848 -0.5553266  0.01200108 62.133603 4.129287
## 2020 -0.10461293 0.5565068 -0.5860759 -0.03074927 61.276237 4.115392
## 2021  0.05936272 0.5712370 -0.5599511  0.02612486 63.863755 4.156752
## 2022          NA        NA         NA          NA        NA       NA
##           ulc_dl       Tau    Tau_l       Tau_dl              dPxdPm
## 1960          NA  48.05785 3.872405           NA                  NA
## 1961          NA  48.57847 3.883180  0.010775035  0.0124406336854785
## 1962          NA  48.50771 3.881723 -0.001457748  0.0113051812349378
## 1963          NA  50.42223 3.920432  0.038709509 -0.0202522221818010
## 2019  0.03039976 101.82436 4.623249  0.003470776  0.0054898663692696
## 2020 -0.01389485  94.90513 4.552878 -0.070371689  0.0000000006111159
## 2021  0.04135988  99.43603 4.599515  0.046636782 -0.0000000003826990
## 2022          NA        NA       NA           NA                  NA
##             dPdPm     Trade
## 1960           NA 0.2374560
## 1961  0.032418900 0.2332404
## 1962  0.034787842 0.2341378
## 1963 -0.024102224 0.2319146
## 2019  0.008837720 0.6132036
## 2020  0.037057133 0.5997756
## 2021 -0.002604903 0.5976153
## 2022           NA        NA
GBR <- GBR_df[5:59,]
GBR[!complete.cases(GBR),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
GBR %>% head()
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1964 0.6562090 -0.4212760 -0.002016992 0.3437910 -1.067721  0.003861251
## 1965 0.6575344 -0.4192582  0.002017772 0.3424656 -1.071584 -0.003862749
## 1966 0.6651569 -0.4077324  0.011525849 0.3348431 -1.094093 -0.022509104
## 1967 0.6642117 -0.4091543 -0.001421899 0.3357883 -1.091274  0.002818581
## 1968 0.6538210 -0.4249217 -0.015767444 0.3461790 -1.060799  0.030475338
## 1969 0.6489308 -0.4324292 -0.007507413 0.3510692 -1.046772  0.014027157
##            Y      Y_l       Y_dl            Yrw    Yrw_l     Yrw_dl   Tax
## 1964 593.725 6.386416 0.05443942 11193697765659 30.04637 0.06334257 3.848
## 1965 606.373 6.407495 0.02107906 11809330972756 30.09991 0.05353906 4.289
## 1966 615.877 6.423047 0.01555196 12524829900085 30.15873 0.05882309 4.810
## 1967 632.973 6.450428 0.02738050 13104444494539 30.20397 0.04523838 5.678
## 1968 667.613 6.503709 0.05328090 13922375578350 30.26452 0.06054585 6.471
## 1969 680.559 6.522915 0.01920585 14732189603727 30.32106 0.05653757 7.611
##           Yf     Yf_l      Yf_dl       C      C_l        C_dl        W
## 1964 589.877 6.379914 0.05416178 336.548 5.818741 0.032846973 387.0826
## 1965 602.084 6.400397 0.02048293 341.197 5.832460 0.013719239 395.8909
## 1966 611.067 6.415207 0.01480964 347.825 5.851699 0.019239457 406.4554
## 1967 627.295 6.441417 0.02621031 357.058 5.877898 0.026198754 416.6567
## 1968 661.142 6.493969 0.05255172 367.962 5.907980 0.030081438 432.2685
## 1969 672.948 6.511668 0.01769942 370.840 5.915771 0.007791031 436.6967
##           W_l       W_dl        R      R_l         R_dl       It     It_l
## 1964 5.958638 0.05214479 202.7944 5.312193  0.058023035 112.4261 4.722296
## 1965 5.981139 0.02250070 206.1931 5.328813  0.016620181 117.6945 4.768092
## 1966 6.007474 0.02633549 204.6116 5.321114 -0.007699465 117.4420 4.765945
## 1967 6.032263 0.02478842 210.6383 5.350142  0.029028896 127.6921 4.849622
## 1968 6.069047 0.03678427 228.8735 5.433169  0.083027057 141.6982 4.953699
## 1969 6.079239 0.01019200 236.2513 5.464896  0.031726575 140.4452 4.944817
##             It_dl Itcurr Itcurr_l  Itcurr_dl    Ipr    Ipr_l     Ipr_dl
## 1964  0.150095503  6.645 1.893865 0.16575525 4.9972 1.608878 0.15312730
## 1965  0.045796167  7.197 1.973664 0.07979958 5.4383 1.693467 0.08458876
## 1966 -0.002147690  7.687 2.039531 0.06586632 5.7221 1.744336 0.05086936
## 1967  0.083677303  8.336 2.120583 0.08105289 6.0759 1.804330 0.05999426
## 1968  0.104077546  9.548 2.256332 0.13574822 7.0481 1.952758 0.14842795
## 1969 -0.008882067 10.176 2.320032 0.06370030 7.5850 2.026173 0.07341454
##            Ips      Ips_l       Ips_dl         I      I_l          I_dl
## 1964 0.7520241 -0.2849869 -0.012627953  84.54713 4.437309  0.1374675502
## 1965 0.7556343 -0.2801978  0.004789176  88.93400 4.487895  0.0505853434
## 1966 0.7443866 -0.2951947 -0.014996959  87.42225 4.470750 -0.0171446485
## 1967 0.7288748 -0.3162534 -0.021058639  93.07155 4.533369  0.0626186636
## 1968 0.7381755 -0.3035736  0.012679727 104.59814 4.650126  0.1167572734
## 1969 0.7453813 -0.2938594  0.009714238 104.68522 4.650958  0.0008321711
##              r      r_l        r_dl        P      P_l       P_dl       Pm
## 1964 2.3101905 2.523457 -0.11854062 5.727740 1.745321 0.03524111 10.01170
## 1965 0.5866345 2.374727 -0.14872979 6.067884 1.803010 0.05768882 10.19566
## 1966 1.5171487 2.457758  0.08303046 6.392018 1.855050 0.05204019 10.41352
## 1967 3.7326738 2.631466  0.17370804 6.581644 1.884285 0.02923441 10.58619
## 1968 3.2576697 2.596680 -0.03478548 6.859061 1.925571 0.04128606 11.78372
## 1969 2.2765495 2.520756 -0.07592429 7.313986 1.989788 0.06421777 12.13419
##          Pm_l      Pm_dl        Px     Px_l      Px_dl       X      X_l
## 1964 2.303755 0.02661770  9.082066 2.206302 0.02710737 69.5767 4.242430
## 1965 2.321962 0.01820743  9.324238 2.232617 0.02631557 72.2740 4.280464
## 1966 2.343105 0.02114293  9.643818 2.266317 0.03369983 75.7169 4.327001
## 1967 2.359551 0.01644561  9.936362 2.296201 0.02988387 75.8829 4.329191
## 1968 2.466719 0.10716842 10.771684 2.376921 0.08071990 85.0006 4.442658
## 1969 2.496027 0.02930780 11.051149 2.402534 0.02561352 93.0130 4.532739
##             X_dl       M      M_l        M_dl      rulc     rulc_l
## 1964 0.028367719 69.2090 4.237131 0.097698268 0.6519560 -0.4277782
## 1965 0.038034711 69.6080 4.242880 0.005748591 0.6528835 -0.4263566
## 1966 0.046536933 71.1287 4.264491 0.021611409 0.6599620 -0.4155731
## 1967 0.002189977 75.9007 4.329426 0.064934995 0.6582535 -0.4181651
## 1968 0.113466953 81.4089 4.399485 0.070058697 0.6474836 -0.4346618
## 1969 0.090080953 83.8952 4.429568 0.030083797 0.6416735 -0.4436756
##           rulc_dl      ulc    ulc_l     ulc_dl      Tau    Tau_l
## 1964 -0.002294631 3.734235 1.317543 0.03294648 52.32401 3.957455
## 1965  0.001421643 3.961621 1.376653 0.05911046 52.56182 3.961990
## 1966  0.010783528 4.218489 1.439477 0.06282372 52.65253 3.963714
## 1967 -0.002592083 4.332390 1.466119 0.02664233 53.97079 3.988443
## 1968 -0.016496623 4.441130 1.490909 0.02478944 56.36394 4.031830
## 1969 -0.009013850 4.693191 1.546113 0.05520392 56.71095 4.037967
##           Tau_dl        dPxdPm        dPdPm     Trade
## 1964 0.037023130  0.0004896735  0.008623411 0.2337542
## 1965 0.004534752  0.0081081371  0.039481391 0.2339847
## 1966 0.001724187  0.0125569027  0.030897263 0.2384333
## 1967 0.024728740  0.0134382560  0.012788801 0.2397947
## 1968 0.043386679 -0.0264485173 -0.065882352 0.2492604
## 1969 0.006137673 -0.0036942832  0.034909967 0.2599454

DATA

GBR %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1964 0.6562090 -0.4212760 -0.0020169921 0.3437910 -1.0677212  0.0038612510
## 1965 0.6575344 -0.4192582  0.0020177723 0.3424656 -1.0715840 -0.0038627490
## 1966 0.6651569 -0.4077324  0.0115258486 0.3348431 -1.0940931 -0.0225091039
## 1967 0.6642117 -0.4091543 -0.0014218993 0.3357883 -1.0912745  0.0028185815
## 1968 0.6538210 -0.4249217 -0.0157674439 0.3461790 -1.0607992  0.0304753381
## 1969 0.6489308 -0.4324292 -0.0075074132 0.3510692 -1.0467720  0.0140271571
## 1970 0.6487704 -0.4326765 -0.0002473096 0.3512296 -1.0463150  0.0004569764
## 1971 0.6401806 -0.4460049 -0.0133284340 0.3598194 -1.0221531  0.0241618787
## 1972 0.6337031 -0.4561747 -0.0101698226 0.3662969 -1.0043111  0.0178420516
## 1973 0.6266247 -0.4674075 -0.0112327321 0.3733753 -0.9851712  0.0191398415
## 1974 0.6666546 -0.4054833  0.0619241926 0.3333454 -1.0985760 -0.1134047375
## 1975 0.7021169 -0.3536553  0.0518279303 0.2978831 -1.2110542 -0.1124782479
## 1976 0.6844989 -0.3790682 -0.0254128714 0.3155011 -1.1535932  0.0574610360
## 1977 0.6482732 -0.4334431 -0.0543749418 0.3517268 -1.0449004  0.1086927974
## 1978 0.6421398 -0.4429493 -0.0095061746 0.3578602 -1.0276127  0.0172876643
## 1979 0.6404843 -0.4455307 -0.0025813455 0.3595157 -1.0229974  0.0046152926
## 1980 0.6574404 -0.4194011  0.0261295303 0.3425596 -1.0713097 -0.0483122411
## 1981 0.6560595 -0.4215039 -0.0021027280 0.3439405 -1.0672865  0.0040232123
## 1982 0.6397001 -0.4467558 -0.0252519353 0.3602999 -1.0208186  0.0464679156
## 1983 0.6248567 -0.4702330 -0.0234771883 0.3751433 -0.9804471  0.0403714455
## 1984 0.6278547 -0.4654466  0.0047864127 0.3721453 -0.9884708 -0.0080236921
## 1985 0.6175080 -0.4820633 -0.0166166810 0.3824920 -0.9610475  0.0274232586
## 1986 0.6244560 -0.4708745  0.0111887699 0.3755440 -0.9793795 -0.0183319689
## 1987 0.6100432 -0.4942256 -0.0233510752 0.3899568 -0.9417192  0.0376602819
## 1988 0.6080419 -0.4975114 -0.0032858522 0.3919581 -0.9366005  0.0051187831
## 1989 0.6151985 -0.4858102  0.0117011639 0.3848015 -0.9550277 -0.0184272978
## 1990 0.6231559 -0.4729585  0.0128517075 0.3768441 -0.9759237 -0.0208959783
## 1991 0.6352281 -0.4537711  0.0191874500 0.3647719 -1.0084831 -0.0325594029
## 1992 0.6331918 -0.4569819 -0.0032108306 0.3668082 -1.0029162  0.0055669757
## 1993 0.6191347 -0.4794323 -0.0224504265 0.3808653 -0.9653096  0.0376065203
## 1994 0.5946163 -0.5198389 -0.0404065986 0.4053837 -0.9029213  0.0623883628
## 1995 0.5962538 -0.5170888  0.0027501320 0.4037462 -0.9069689 -0.0040476228
## 1996 0.5813583 -0.5423880 -0.0252992052 0.4186417 -0.8707399  0.0362290369
## 1997 0.5991318 -0.5122736  0.0301143786 0.4008682 -0.9141226 -0.0433827777
## 1998 0.6022918 -0.5070133  0.0052603666 0.3977082 -0.9220367 -0.0079140167
## 1999 0.6236282 -0.4722009  0.0348123518 0.3763718 -0.9771778 -0.0551411464
## 2000 0.6325330 -0.4580229  0.0141780214 0.3674670 -1.0011217 -0.0239439415
## 2001 0.6427005 -0.4420764  0.0159464623 0.3572995 -1.0291809 -0.0280591972
## 2002 0.6349742 -0.4541709 -0.0120944620 0.3650258 -1.0077873  0.0213936708
## 2003 0.6366011 -0.4516121  0.0025588071 0.3633989 -1.0122541 -0.0044667888
## 2004 0.6465142 -0.4361601  0.0154520349 0.3534858 -1.0399121 -0.0276580208
## 2005 0.6410110 -0.4447086 -0.0085485475 0.3589890 -1.0244636  0.0154484398
## 2006 0.6483633 -0.4333041  0.0114045461 0.3516367 -1.0451568 -0.0206931665
## 2007 0.6572009 -0.4197655  0.0135385601 0.3427991 -1.0706108 -0.0254539661
## 2008 0.6466677 -0.4359228 -0.0161572557 0.3533323 -1.0403462  0.0302645273
## 2009 0.6562473 -0.4212176  0.0147051403 0.3437527 -1.0678327 -0.0274864715
## 2010 0.6645877 -0.4085885  0.0126291161 0.3354123 -1.0923946 -0.0245619150
## 2011 0.6606425 -0.4145425 -0.0059539767 0.3393575 -1.0807011  0.0116935510
## 2012 0.6553768 -0.4225450 -0.0080025260 0.3446232 -1.0653035  0.0153975530
## 2013 0.6585809 -0.4176679  0.0048771059 0.3414191 -1.0746446 -0.0093410338
## 2014 0.6527370 -0.4265809 -0.0089130401 0.3472630 -1.0576730  0.0169715945
## 2015 0.6495139 -0.4315311 -0.0049501776 0.3504861 -1.0484341  0.0092388593
## 2016 0.6530808 -0.4260545  0.0054766569 0.3469192 -1.0586633 -0.0102292132
## 2017 0.6553362 -0.4226069  0.0034475497 0.3446638 -1.0651858 -0.0065224909
## 2018 0.6584607 -0.4178504  0.0047565294 0.3415393 -1.0742927 -0.0091068453
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1964  593.725 6.386416  0.054439423 11193697765659 30.04637  0.0633425737
## 1965  606.373 6.407495  0.021079059 11809330972756 30.09991  0.0535390590
## 1966  615.877 6.423047  0.015551960 12524829900085 30.15873  0.0588230867
## 1967  632.973 6.450428  0.027380499 13104444494539 30.20397  0.0452383810
## 1968  667.613 6.503709  0.053280897 13922375578350 30.26452  0.0605458527
## 1969  680.559 6.522915  0.019205855 14732189603727 30.32106  0.0565375690
## 1970  698.993 6.549641  0.026726209 15112061434360 30.34651  0.0254583268
## 1971  723.490 6.584087  0.034445996 15708324142611 30.38521  0.0386975766
## 1972  754.757 6.626396  0.042309119 16585864068630 30.43957  0.0543599984
## 1973  803.996 6.689594  0.063198451 17631662237408 30.50072  0.0611455061
## 1974  784.022 6.664437 -0.025157213 17844505254283 30.51272  0.0119993554
## 1975  772.468 6.649591 -0.014846497 17831317011109 30.51198 -0.0007393379
## 1976  794.949 6.678278  0.028687378 18715706155631 30.56038  0.0484067787
## 1977  814.487 6.702558  0.024280506 19439373866102 30.59832  0.0379375173
## 1978  848.730 6.743741  0.041182647 20240453943853 30.63870  0.0403826822
## 1979  880.549 6.780546  0.036804462 21076262721252 30.67917  0.0404641455
## 1980  862.662 6.760023 -0.020522619 21387527072965 30.69383  0.0146604874
## 1981  855.866 6.752114 -0.007909136 21810877231554 30.71343  0.0196008959
## 1982  872.940 6.771867  0.019753003 21795628767517 30.71273 -0.0006993665
## 1983  909.794 6.813218  0.041351375 22388363617368 30.73956  0.0268319081
## 1984  930.438 6.835655  0.022437243 23413913955763 30.78435  0.0447891166
## 1985  969.028 6.876294  0.040638064 24253385127720 30.81958  0.0352257414
## 1986  999.555 6.907310  0.031016673 25037051854124 30.85138  0.0318006013
## 1987 1053.459 6.959834  0.052524135 25908054567390 30.88558  0.0341971057
## 1988 1113.847 7.015575  0.055740754 27152806455237 30.93250  0.0469265020
## 1989 1142.558 7.041025  0.025449819 28207199134551 30.97060  0.0380968243
## 1990 1150.941 7.048335  0.007310260 29094528147759 31.00157  0.0309728865
## 1991 1138.245 7.037243 -0.011092266 29533106130067 31.01653  0.0149617555
## 1992 1142.810 7.041245  0.004002539 30146878067347 31.03710  0.0205694953
## 1993 1171.264 7.065839  0.024593366 30514537392299 31.04922  0.0121218347
## 1994 1216.311 7.103578  0.037739000 31490295277533 31.08070  0.0314762061
## 1995 1247.100 7.128576  0.024998349 32406798489945 31.10939  0.0286888188
## 1996 1278.172 7.153186  0.024610076 33365475584241 31.13854  0.0291534695
## 1997 1327.444 7.191011  0.037824356 34479944619342 31.17140  0.0328561394
## 1998 1375.828 7.226811  0.035800443 35415244010804 31.19816  0.0267645096
## 1999 1422.994 7.260518  0.033707371 36568495823187 31.23021  0.0320447507
## 2000 1471.907 7.294314  0.033795736 38042799012980 31.26973  0.0395247159
## 2001 1515.686 7.323623  0.029309303 38613141558950 31.28461  0.0148808577
## 2002 1550.918 7.346602  0.022978872 39200868817582 31.29972  0.0151062368
## 2003 1601.887 7.378938  0.032335296 40065755737355 31.32154  0.0218230876
## 2004 1639.915 7.402400  0.023462102 41397193111212 31.35423  0.0326910815
## 2005 1692.061 7.433703  0.031302901 42586090725886 31.38255  0.0283146119
## 2006 1739.240 7.461204  0.027500924 43923218473900 31.41346  0.0309153837
## 2007 1781.514 7.485219  0.024015328 45149118206221 31.44099  0.0275276745
## 2008 1776.507 7.482404 -0.002814488 45322341134259 31.44482  0.0038293433
## 2009 1701.044 7.438997 -0.043406897 43817604786903 31.41106 -0.0337644203
## 2010 1734.207 7.458306  0.019308068 45118771452429 31.44032  0.0292627060
## 2011 1760.917 7.473590  0.015284448 45965840432733 31.45892  0.0186001430
## 2012 1786.961 7.488272  0.014681716 46567501326265 31.47192  0.0130043801
## 2013 1825.194 7.509442  0.021169871 47243295440305 31.48633  0.0144078470
## 2014 1872.786 7.535182  0.025740879 48203235596278 31.50645  0.0201153989
## 2015 1916.896 7.558462  0.023280049 49327748529768 31.52951  0.0230606259
## 2016 1953.667 7.577463  0.019000908 50172269892698 31.54648  0.0169757083
## 2017 1990.632 7.596207  0.018744057 51324825105798 31.56920  0.0227120738
## 2018 2017.321 7.609526  0.013318217 52472918805396 31.59132  0.0221226489
##          Tax       Yf     Yf_l         Yf_dl        C      C_l
## 1964   3.848  589.877 6.379914  0.0541617841  336.548 5.818741
## 1965   4.289  602.084 6.400397  0.0204829299  341.197 5.832460
## 1966   4.810  611.067 6.415207  0.0148096390  347.825 5.851699
## 1967   5.678  627.295 6.441417  0.0262103149  357.058 5.877898
## 1968   6.471  661.142 6.493969  0.0525517184  367.962 5.907980
## 1969   7.611  672.948 6.511668  0.0176994179  370.840 5.915771
## 1970   8.266  690.727 6.537745  0.0260766054  382.005 5.945434
## 1971   8.265  715.225 6.572597  0.0348525124  394.755 5.978265
## 1972   8.456  746.301 6.615129  0.0425318256  420.417 6.041247
## 1973   8.876  795.120 6.678493  0.0633640426  443.824 6.095428
## 1974   9.908  774.114 6.651719 -0.0267738971  438.130 6.082516
## 1975  12.081  760.387 6.633828 -0.0178916354  437.391 6.080828
## 1976  14.054  780.895 6.660441  0.0266131836  439.827 6.086381
## 1977  18.187  796.300 6.679976  0.0195353015  438.536 6.083442
## 1978  21.567  827.163 6.718002  0.0380257743  461.998 6.135561
## 1979  29.279  851.270 6.746729  0.0287275785  483.725 6.181517
## 1980  35.747  826.915 6.717702 -0.0290274434  484.360 6.182828
## 1981  41.097  814.769 6.702905 -0.0147972711  486.168 6.186554
## 1982  43.243  829.697 6.721061  0.0181559364  492.305 6.199098
## 1983  45.277  864.517 6.762171  0.0411103956  513.967 6.242159
## 1984  47.339  883.099 6.783437  0.0212663426  526.981 6.267164
## 1985  49.694  919.334 6.823649  0.0402121827  553.991 6.317148
## 1986  55.046  944.509 6.850665  0.0270157209  586.727 6.374560
## 1987  60.076  993.383 6.901116  0.0504510738  616.960 6.424804
## 1988  66.048 1047.799 6.954447  0.0533307630  662.185 6.495545
## 1989  69.926 1072.632 6.977871  0.0234236676  687.612 6.533225
## 1990  74.248 1076.693 6.981650  0.0037788653  695.423 6.544520
## 1991  82.272 1055.973 6.962218 -0.0194316897  691.791 6.539284
## 1992  86.050 1056.760 6.962963  0.0007450066  698.362 6.548738
## 1993  88.127 1083.137 6.987617  0.0246538371  719.399 6.578416
## 1994  94.034 1122.277 7.023115  0.0354981967  742.997 6.610692
## 1995 101.266 1145.834 7.043888  0.0207730989  759.254 6.632336
## 1996 105.996 1172.176 7.066617  0.0227290944  787.315 6.668628
## 1997 112.548 1214.896 7.102414  0.0357966259  827.278 6.718141
## 1998 119.172 1256.656 7.136210  0.0337957483  862.507 6.759843
## 1999 128.610 1294.384 7.165790  0.0295806816  901.107 6.803624
## 2000 136.606 1335.301 7.196912  0.0311218283  941.998 6.848003
## 2001 139.321 1376.365 7.227201  0.0302892314  975.435 6.882884
## 2002 145.570 1405.348 7.248040  0.0208389930 1007.074 6.914804
## 2003 152.615 1449.272 7.278817  0.0307764024 1041.278 6.948204
## 2004 160.770 1479.145 7.299219  0.0204028568 1074.733 6.979828
## 2005 164.480 1527.581 7.331441  0.0322212203 1102.227 7.005088
## 2006 173.654 1565.586 7.356015  0.0245747563 1120.010 7.021093
## 2007 182.553 1598.961 7.377109  0.0210938485 1146.528 7.044494
## 2008 180.782 1595.725 7.375083 -0.0020258649 1142.063 7.040592
## 2009 169.941 1531.103 7.333744 -0.0413397877 1110.809 7.012844
## 2010 195.649 1538.558 7.338601  0.0048572234 1124.666 7.025241
## 2011 211.572 1549.345 7.345588  0.0069866468 1124.582 7.025167
## 2012 217.849 1569.112 7.358265  0.0126775933 1142.544 7.041013
## 2013 228.255 1596.939 7.375844  0.0175788176 1173.195 7.067486
## 2014 239.731 1633.055 7.398208  0.0223638219 1200.057 7.090124
## 2015 247.771 1669.125 7.420055  0.0218470433 1235.883 7.119541
## 2016 259.076 1694.591 7.435197  0.0151418768 1280.947 7.155355
## 2017 270.471 1720.161 7.450173  0.0149764773 1309.260 7.177217
## 2018 280.089 1737.232 7.460048  0.0098751509 1329.952 7.192898
##                C_dl         W      W_l          W_dl        R      R_l
## 1964  0.03284697331  387.0826 5.958638  0.0521447919 202.7944 5.312193
## 1965  0.01371923930  395.8909 5.981139  0.0225007022 206.1931 5.328813
## 1966  0.01923945665  406.4554 6.007474  0.0263354876 204.6116 5.321114
## 1967  0.02619875384  416.6567 6.032263  0.0247884156 210.6383 5.350142
## 1968  0.03008143840  432.2685 6.069047  0.0367842745 228.8735 5.433169
## 1969  0.00779103077  436.6967 6.079239  0.0101920046 236.2513 5.464896
## 1970  0.02966299479  448.1232 6.105068  0.0258292958 242.6038 5.491430
## 1971  0.03283162177  457.8732 6.126592  0.0215240784 257.3518 5.550444
## 1972  0.06298175656  472.9333 6.158954  0.0323620030 273.3677 5.610818
## 1973  0.05418101159  498.2418 6.211086  0.0521313105 296.8782 5.693322
## 1974 -0.01291241746  516.0666 6.246236  0.0351502955 258.0474 5.553143
## 1975 -0.00168813809  533.8806 6.280172  0.0339362949 226.5064 5.422773
## 1976  0.00555393588  534.5218 6.281372  0.0012003122 246.3732 5.506847
## 1977 -0.00293956127  516.2199 6.246533 -0.0348396403 280.0801 5.635076
## 1978  0.05211865556  531.1542 6.275052  0.0285195997 296.0088 5.690389
## 1979  0.04595600135  545.2251 6.301199  0.0261462330 306.0449 5.723732
## 1980  0.00131186846  543.6473 6.298301 -0.0028979132 283.2677 5.646392
## 1981  0.00372581129  534.5369 6.281401 -0.0168999992 280.2321 5.635618
## 1982  0.01254419994  530.7573 6.274305 -0.0070959988 298.9397 5.700242
## 1983  0.04306061794  540.1992 6.291938  0.0176332073 324.3178 5.781724
## 1984  0.02500543370  554.4578 6.317991  0.0260527553 328.6412 5.794967
## 1985  0.04998394637  567.6961 6.341586  0.0235955017 351.6379 5.862602
## 1986  0.05741119386  589.8043 6.379791  0.0382044908 354.7047 5.871286
## 1987  0.05024455700  606.0065 6.406891  0.0270999987 387.3765 5.959397
## 1988  0.07074078111  637.1057 6.456936  0.0500449109 410.6933 6.017847
## 1989  0.03767975227  659.8816 6.492060  0.0351248314 412.7504 6.022843
## 1990  0.01129556815  670.9476 6.508691  0.0166305728 405.7454 6.005726
## 1991 -0.00523640664  670.7838 6.508447 -0.0002442397 385.1892 5.953735
## 1992  0.00945370609  669.1318 6.505981 -0.0024658240 387.6282 5.960047
## 1993  0.02967854825  670.6078 6.508184  0.0022034106 412.5292 6.022307
## 1994  0.03227586581  667.3242 6.503276 -0.0049084019 454.9528 6.120194
## 1995  0.02164436524  683.2079 6.526799  0.0235232309 462.6261 6.136919
## 1996  0.03629205020  681.4542 6.524229 -0.0025701108 490.7218 6.195877
## 1997  0.04951237085  727.8829 6.590140  0.0659110044 487.0131 6.188291
## 1998  0.04170247150  756.8736 6.629196  0.0390561149 499.7824 6.214173
## 1999  0.04378074268  807.2144 6.693589  0.0643930334 487.1696 6.188612
## 2000  0.04437914394  844.6219 6.738889  0.0452998497 490.6791 6.195790
## 2001  0.03488037392  884.5905 6.785125  0.0462356936 491.7745 6.198020
## 2002  0.03192085027  892.3597 6.793869  0.0087445309 512.9883 6.240253
## 2003  0.03339970826  922.6081 6.827205  0.0333352095 526.6639 6.266563
## 2004  0.03162345374  956.2883 6.863059  0.0358548917 522.8567 6.259307
## 2005  0.02526041999  979.1963 6.886732  0.0236726728 548.3847 6.306977
## 2006  0.01600493521 1015.0685 6.922711  0.0359793025 550.5175 6.310859
## 2007  0.02340063133 1050.8386 6.957344  0.0346324087 548.1224 6.306499
## 2008 -0.00390196908 1031.9038 6.939161 -0.0181831206 563.8212 6.334737
## 2009 -0.02774769740 1004.7822 6.912526 -0.0266346474 526.3208 6.265911
## 2010  0.01239752400 1022.5067 6.930012  0.0174863395 516.0513 6.246206
## 2011 -0.00007469163 1023.5631 6.931045  0.0010326701 525.7819 6.264886
## 2012  0.01584594402 1028.3595 6.935720  0.0046750672 540.7525 6.292962
## 2013  0.02647344118 1051.7135 6.958176  0.0224559235 545.2255 6.301199
## 2014  0.02263825940 1065.9555 6.971627  0.0134507818 567.0995 6.340535
## 2015  0.02941663869 1084.1198 6.988524  0.0168968657 585.0052 6.371621
## 2016  0.03581395377 1106.7048 7.009142  0.0206185336 587.8862 6.376533
## 2017  0.02186244398 1127.2838 7.027566  0.0184240270 592.8772 6.384987
## 2018  0.01568075925 1143.8991 7.042198  0.0146316803 593.3329 6.385756
##               R_dl       It     It_l        It_dl  Itcurr Itcurr_l
## 1964  0.0580230351 112.4261 4.722296  0.150095503   6.645 1.893865
## 1965  0.0166201809 117.6945 4.768092  0.045796167   7.197 1.973664
## 1966 -0.0076994649 117.4420 4.765945 -0.002147690   7.687 2.039531
## 1967  0.0290288964 127.6921 4.849622  0.083677303   8.336 2.120583
## 1968  0.0830270565 141.6982 4.953699  0.104077546   9.548 2.256332
## 1969  0.0317265750 140.4452 4.944817 -0.008882067  10.176 2.320032
## 1970  0.0265335819 145.6207 4.981005  0.036187919  12.299 2.509518
## 1971  0.0590143911 156.2017 5.051148  0.070142825  13.829 2.626768
## 1972  0.0603738771 163.6893 5.097970  0.046821998  15.446 2.737350
## 1973  0.0825038841 166.8140 5.116879  0.018909300  18.647 2.925685
## 1974 -0.1401786346 154.3760 5.039391 -0.077488234  21.114 3.049936
## 1975 -0.1303698833 145.1626 4.977854 -0.061536692  23.618 3.162009
## 1976  0.0840742196 146.1640 4.984729  0.006874786  27.076 3.298648
## 1977  0.1282280989 148.4458 5.000220  0.015490629  30.886 3.430303
## 1978  0.0553134386 159.3919 5.071366  0.071146041  37.062 3.612592
## 1979  0.0333428711 173.0868 5.153793  0.082427253  46.007 3.828794
## 1980 -0.0773396846 161.9087 5.087033 -0.066760607  52.043 3.952070
## 1981 -0.0107740588 151.1593 5.018334 -0.068698348  54.178 3.992275
## 1982  0.0646238520 158.9348 5.068494  0.050159808  59.421 4.084648
## 1983  0.0814818411 170.4271 5.138308  0.069813584  65.436 4.181073
## 1984  0.0132426506 181.4006 5.200708  0.062400206  74.255 4.307505
## 1985  0.0676354413 185.0294 5.220515  0.019806886  82.317 4.410578
## 1986  0.0086837520 182.6663 5.207661 -0.012853740  88.348 4.481284
## 1987  0.0881113557 205.3113 5.324527  0.116866373 104.632 4.650449
## 1988  0.0584495462 237.0846 5.468417  0.143889676 126.593 4.840977
## 1989  0.0049963698 248.5857 5.515788  0.047370616 148.884 5.003167
## 1990 -0.0171171130 242.2228 5.489858 -0.025929692 156.632 5.053899
## 1991 -0.0519910926 222.9717 5.407045 -0.082813106 148.178 4.998414
## 1992  0.0063119823 219.3635 5.390730 -0.016314686 141.848 4.954756
## 1993  0.0622603574 221.0325 5.398310  0.007579578 143.399 4.965631
## 1994  0.0978865596 224.5585 5.414136  0.015826503 147.832 4.996076
## 1995  0.0167254761 223.4984 5.409404 -0.004731997 153.304 5.032423
## 1996  0.0589581313 233.9305 5.455024  0.045619808 168.531 5.127120
## 1997 -0.0075861518 230.2626 5.439220 -0.015803666 162.077 5.088072
## 1998  0.0258817316 247.9269 5.513134  0.073913548 174.437 5.161564
## 1999 -0.0255604648 253.4959 5.535348  0.022213705 182.204 5.205127
## 2000  0.0071778868 264.5487 5.578025  0.042677706 195.233 5.274194
## 2001  0.0022300341 270.7099 5.601048  0.023022412 203.930 5.317777
## 2002  0.0422326638 280.1994 5.635501  0.034453725 213.105 5.361785
## 2003  0.0263096136 286.9793 5.659410  0.023908595 219.566 5.391653
## 2004 -0.0072551641 290.9017 5.672985  0.013575322 228.283 5.430586
## 2005  0.0476696602 305.1007 5.720642  0.047656477 242.883 5.492580
## 2006  0.0038815898 315.7404 5.754920  0.034278471 261.507 5.566461
## 2007 -0.0043601176 327.5215 5.791554  0.036633345 279.677 5.633635
## 2008  0.0282386624 310.2742 5.737456 -0.054097279 277.288 5.625057
## 2009 -0.0688262592 271.7554 5.604902 -0.132554026 246.211 5.506189
## 2010 -0.0197046915 281.4171 5.639838  0.034935513 253.187 5.534128
## 2011  0.0186801979 278.4080 5.629088 -0.010750247 255.822 5.544482
## 2012  0.0280751463 283.8928 5.648597  0.019509038 265.435 5.581370
## 2013  0.0082377838 293.7268 5.682650  0.034053382 279.564 5.633231
## 2014  0.0393354163 313.0915 5.746495  0.063845396 304.707 5.719351
## 2015  0.0310859026 324.6230 5.782665  0.036169029 324.623 5.782665
## 2016  0.0049126635 336.4433 5.818430  0.035765127 343.694 5.839752
## 2017  0.0084539865 341.9369 5.834626  0.016196581 357.080 5.877960
## 2018  0.0007683055 341.1684 5.832376 -0.002250020 362.639 5.893408
##         Itcurr_dl      Ipr    Ipr_l      Ipr_dl       Ips       Ips_l
## 1964  0.165755250   4.9972 1.608878  0.15312730 0.7520241 -0.28498694
## 1965  0.079799580   5.4383 1.693467  0.08458876 0.7556343 -0.28019776
## 1966  0.065866318   5.7221 1.744336  0.05086936 0.7443866 -0.29519472
## 1967  0.081052895   6.0759 1.804330  0.05999426 0.7288748 -0.31625336
## 1968  0.135748223   7.0481 1.952758  0.14842795 0.7381755 -0.30357363
## 1969  0.063700298   7.5850 2.026173  0.07341454 0.7453813 -0.29385939
## 1970  0.189485952   9.4365 2.244585  0.21841254 0.7672575 -0.26493281
## 1971  0.117249878  10.7615 2.375975  0.13138980 0.7781835 -0.25079289
## 1972  0.110582234  12.1479 2.497156  0.12118137 0.7864755 -0.24019375
## 1973  0.188335205  14.3493 2.663701  0.16654485 0.7695232 -0.26198411
## 1974  0.124251052  16.0301 2.774468  0.11076704 0.7592166 -0.27546812
## 1975  0.112072806  17.8125 2.879900  0.10543225 0.7541917 -0.28210868
## 1976  0.136638593  20.6812 3.029225  0.14932462 0.7638204 -0.26942265
## 1977  0.131655280  24.9488 3.216826  0.18760065 0.8077705 -0.21347728
## 1978  0.182289179  30.8473 3.429049  0.21222350 0.8323161 -0.18354296
## 1979  0.216201373  38.8542 3.659816  0.23076695 0.8445280 -0.16897738
## 1980  0.123276741  44.1113 3.786716  0.12689981 0.8475933 -0.16535431
## 1981  0.040204622  46.8410 3.846759  0.06004290 0.8645760 -0.14551603
## 1982  0.092372777  51.9533 3.950345  0.10358635 0.8743256 -0.13430246
## 1983  0.096424866  56.2870 4.030464  0.08011836 0.8601840 -0.15060896
## 1984  0.126432550  63.8404 4.156386  0.12592262 0.8597455 -0.15111890
## 1985  0.103072532  71.1388 4.264633  0.10824668 0.8642054 -0.14594475
## 1986  0.070705914  76.0718 4.331678  0.06704473 0.8610472 -0.14960593
## 1987  0.169165871  91.5400 4.516776  0.18509840 0.8748758 -0.13367340
## 1988  0.190527784 114.2950 4.738783  0.22200679 0.9028540 -0.10219439
## 1989  0.162190263 132.2400 4.884618  0.14583563 0.8882083 -0.11854903
## 1990  0.050731626 136.4770 4.916156  0.03153765 0.8713226 -0.13774300
## 1991 -0.055484851 128.7910 4.858191 -0.05796517 0.8691641 -0.14022332
## 1992 -0.043658192 123.3610 4.815115 -0.04307592 0.8696704 -0.13964105
## 1993  0.010874893 125.4860 4.832194  0.01707918 0.8750828 -0.13343676
## 1994  0.030445539 129.0370 4.860099  0.02790499 0.8728624 -0.13597731
## 1995  0.036346384 135.6060 4.909754  0.04965444 0.8845562 -0.12266926
## 1996  0.094696831 153.5500 5.034026  0.12427262 0.9111083 -0.09309346
## 1997 -0.039048178 146.6440 4.988008 -0.04601837 0.9047798 -0.10006365
## 1998  0.073492114 157.3580 5.058523  0.07051558 0.9020907 -0.10304018
## 1999  0.043563294 164.3290 5.101871  0.04334705 0.9018957 -0.10325642
## 2000  0.069066779 176.9480 5.175856  0.07398539 0.9063427 -0.09833781
## 2001  0.043583081 182.1640 5.204907  0.02905148 0.8932673 -0.11286942
## 2002  0.044008204 189.3470 5.243581  0.03867393 0.8885151 -0.11820369
## 2003  0.029867869 193.2780 5.264130  0.02054826 0.8802729 -0.12752330
## 2004  0.038933217 196.4300 5.280306  0.01617657 0.8604671 -0.15027995
## 2005  0.061993759 222.5850 5.405309  0.12500292 0.9164289 -0.08727079
## 2006  0.073881206 225.0520 5.416331  0.01102244 0.8605965 -0.15012957
## 2007  0.067174314 241.1620 5.485469  0.06913742 0.8622876 -0.14816646
## 2008 -0.008578689 230.4320 5.439956 -0.04551310 0.8310205 -0.18510087
## 2009 -0.118867785 195.4790 5.275453 -0.16450285 0.7939491 -0.23073594
## 2010  0.027939454 202.6510 5.311485  0.03603233 0.8004005 -0.22264306
## 2011  0.010353544 207.5350 5.335300  0.02381471 0.8112477 -0.20918189
## 2012  0.036888099 219.2800 5.390349  0.05504945 0.8261156 -0.19102054
## 2013  0.051861257 233.9050 5.454915  0.06456560 0.8366778 -0.17831620
## 2014  0.086119412 253.8020 5.536554  0.08163939 0.8329379 -0.18279622
## 2015  0.063313850 273.4650 5.611174  0.07461921 0.8424080 -0.17149087
## 2016  0.057087218 291.2760 5.674271  0.06309763 0.8474864 -0.16548046
## 2017  0.038208120 301.7900 5.709731  0.03546014 0.8451607 -0.16822844
## 2018  0.015448003 305.4950 5.721933  0.01220200 0.8424218 -0.17147444
##             Ips_dl         I      I_l          I_dl          r      r_l
## 1964 -0.0126279531  84.54713 4.437309  0.1374675502  2.3101905 2.523457
## 1965  0.0047891761  88.93400 4.487895  0.0505853434  0.5866345 2.374727
## 1966 -0.0149969590  87.42225 4.470750 -0.0171446485  1.5171487 2.457758
## 1967 -0.0210586391  93.07155 4.533369  0.0626186636  3.7326738 2.631466
## 1968  0.0126797271 104.59814 4.650126  0.1167572734  3.2576697 2.596680
## 1969  0.0097142377 104.68522 4.650958  0.0008321711  2.2765495 2.520756
## 1970  0.0289265842 111.72857 4.716072  0.0651145031 -0.3417375 2.284392
## 1971  0.0141399233 121.55359 4.800355  0.0842827481  0.5767355 2.373806
## 1972  0.0105991315 128.73762 4.857776  0.0574211294  1.2985806 2.438865
## 1973 -0.0217903599 128.36725 4.854895 -0.0028810594  1.8247054 2.483752
## 1974 -0.0134840079 117.20483 4.763923 -0.0909722421 -1.0044588 2.214517
## 1975 -0.0066405525 109.48043 4.695746 -0.0681772441 -9.1614473 0.000000
## 1976  0.0126860235 111.64304 4.715307  0.0195608090 -0.8350063 2.232853
## 1977  0.0559453697 119.91014 4.786743  0.0714359991 -1.1352413 2.200132
## 1978  0.0299343223 132.66445 4.887823  0.1010803633  0.7225635 2.387295
## 1979  0.0145655799 146.17665 4.984816  0.0969928332 -1.2709849 2.184979
## 1980  0.0036230653 137.23274 4.921678 -0.0631375414 -5.1972303 1.602256
## 1981  0.0198382803 130.68871 4.872818 -0.0488600682  2.0911200 2.505735
## 1982  0.0112135731 138.96076 4.934192  0.0613733807  4.3374913 2.674075
## 1983 -0.0163065020 146.59866 4.987699  0.0535070821  4.9602558 2.716131
## 1984 -0.0005099336 155.95834 5.049589  0.0618902724  5.6216893 2.758942
## 1985  0.0051741472 159.90342 5.074570  0.0249810333  5.2897477 2.737686
## 1986 -0.0036611806 157.28431 5.058055 -0.0165149210  5.4077533 2.745295
## 1987  0.0159325332 179.62188 5.190854  0.1327989061  3.9561724 2.647424
## 1988  0.0314790064 214.05279 5.366223  0.1753686819  3.5454511 2.617899
## 1989 -0.0163546351 220.79587 5.397239  0.0310159807  2.1932920 2.514040
## 1990 -0.0191939770 211.05420 5.352115 -0.0451236685  3.4602290 2.611662
## 1991 -0.0024803157 193.79900 5.266822 -0.0852934218  3.2559946 2.596555
## 1992  0.0005822727 190.77393 5.251089 -0.0157324137  5.7334514 2.765998
## 1993  0.0062042895 193.42174 5.264873  0.0137838679  4.6985300 2.698672
## 1994 -0.0025405529 196.00868 5.278159  0.0132859499  6.7144439 2.825886
## 1995  0.0133080531 197.69689 5.286735  0.0085760560  5.7459762 2.766786
## 1996  0.0295757936 213.13603 5.361931  0.0751956011  3.6686737 2.626849
## 1997 -0.0069701879 208.33696 5.339157 -0.0227738538  5.9973571 2.782465
## 1998 -0.0029765305 223.65256 5.410094  0.0709370173  4.6059246 2.692420
## 1999 -0.0002162420 228.62686 5.432091  0.0219974627  4.0649186 2.655097
## 2000  0.0049186097 239.77178 5.479688  0.0475963157  3.4058345 2.607661
## 2001 -0.0145316045 241.81630 5.488178  0.0084908080  3.9743553 2.648711
## 2002 -0.0053342740 248.96138 5.517298  0.0291194508  2.7392003 2.557278
## 2003 -0.0093196122 252.62010 5.531887  0.0145889829  2.2723759 2.520420
## 2004 -0.0227566499 250.31133 5.522705 -0.0091813282  2.3228183 2.524469
## 2005  0.0630091588 279.60310 5.633371  0.1106656354  1.9037333 2.490324
## 2006 -0.0628587704 271.72507 5.604791 -0.0285802995  1.5595022 2.461378
## 2007  0.0019631061 282.41772 5.643387  0.0385964510  2.4130441 2.531670
## 2008 -0.0369344102 257.84421 5.552356 -0.0910316893  1.5773214 2.462897
## 2009 -0.0456350659 215.75995 5.374166 -0.1781890916  1.6790174 2.471523
## 2010  0.0080928766 225.24639 5.417195  0.0430283901  1.7990757 2.481611
## 2011  0.0134611685 225.85784 5.419906  0.0027109217  0.9895372 2.411528
## 2012  0.0181613524 234.52828 5.457576  0.0376703908  0.0771059 2.326160
## 2013  0.0127043409 245.75470 5.504334  0.0467577224  0.1319000 2.331498
## 2014 -0.0044800270 260.78577 5.563699  0.0593653695  0.3085229 2.348511
## 2015  0.0113053576 273.46500 5.611174  0.0474743865  1.2018546 2.430389
## 2016  0.0060104107 285.13113 5.652949  0.0417755374 -0.9008473 2.225769
## 2017 -0.0027479797 288.99165 5.666398  0.0134486018 -0.7461361 2.242337
## 2018 -0.0032460022 287.40770 5.660902 -0.0054960222 -0.7116334 2.245995
##              r_dl          P      P_l        P_dl        Pm     Pm_l
## 1964 -0.118540619   5.727740 1.745321 0.035241110  10.01170 2.303755
## 1965 -0.148729789   6.067884 1.803010 0.057688822  10.19566 2.321962
## 1966  0.083030463   6.392018 1.855050 0.052040191  10.41352 2.343105
## 1967  0.173708044   6.581644 1.884285 0.029234414  10.58619 2.359551
## 1968 -0.034785476   6.859061 1.925571 0.041286064  11.78372 2.466719
## 1969 -0.075924287   7.313986 1.989788 0.064217770  12.13419 2.496027
## 1970 -0.236364475   8.019397 2.081863 0.092074931  12.99246 2.564369
## 1971  0.089414306   8.683046 2.161372 0.079509049  13.55017 2.606399
## 1972  0.065059270   9.340619 2.234373 0.073000214  13.97566 2.637317
## 1973  0.044886896  10.162109 2.318666 0.084293493  17.35715 2.854005
## 1974 -0.269234684  11.809108 2.468871 0.150205085  24.55875 3.201068
## 1975 -2.214517358  14.890322 2.700711 0.231840321  27.96801 3.331061
## 1976  2.232853484  17.203492 2.845112 0.144400924  33.93861 3.524553
## 1977 -0.032721360  19.583125 2.974668 0.129555872  38.64267 3.654357
## 1978  0.187162689  21.898245 3.086407 0.111738269  39.97743 3.688315
## 1979 -0.202315752  25.059135 3.221238 0.134831937  43.78379 3.779264
## 1980 -0.582723481  30.099160 3.404497 0.183258823  48.24593 3.876311
## 1981  0.903479909  33.831333 3.521387 0.116890099  52.21622 3.955393
## 1982  0.168339956  36.539626 3.598397 0.077009934  56.04017 4.026069
## 1983  0.042055557  38.565643 3.652362 0.053964490  60.37896 4.100641
## 1984  0.042811063  40.576892 3.703199 0.050836945  65.85071 4.187390
## 1985 -0.021255720  42.765965 3.755743 0.052543843  68.64703 4.228978
## 1986  0.007608296  44.681872 3.799568 0.043825291  65.87008 4.187684
## 1987 -0.097871001  47.094777 3.852162 0.052594223  67.76395 4.216030
## 1988 -0.029524402  49.880358 3.909627 0.057465201  67.40543 4.210726
## 1989 -0.103859501  53.783536 3.984967 0.075340109  71.97517 4.276321
## 1990  0.097622631  58.118945 4.062492 0.077524283  74.65093 4.312823
## 1991 -0.015106875  61.976809 4.126760 0.064268577  75.23827 4.320660
## 1992  0.169442726  63.926702 4.157737 0.030976871  75.40870 4.322923
## 1993 -0.067326710  65.667749 4.184608 0.026870778  82.11528 4.408124
## 1994  0.127214536  66.551132 4.197971 0.013362634  84.68885 4.438984
## 1995 -0.059100160  68.171091 4.222021 0.024050042  89.77625 4.497320
## 1996 -0.139936992  70.979856 4.262396 0.040375533  90.16952 4.501692
## 1997  0.155616170  71.738317 4.273025 0.010628889  85.25225 4.445615
## 1998 -0.090044919  72.420050 4.282483 0.009458181  82.16464 4.408725
## 1999 -0.037323149  73.077744 4.291524 0.009040661  81.64998 4.402442
## 2000 -0.047435852  74.437567 4.309961 0.018436892  83.58601 4.425876
## 2001  0.041049626  75.179008 4.319872 0.009911298  83.25353 4.421890
## 2002 -0.091433259  76.767483 4.340781 0.020909100  80.93562 4.393654
## 2003 -0.036857075  78.499627 4.363094 0.022312721  81.65827 4.402543
## 2004  0.004048663  80.499794 4.388255 0.025160761  81.21804 4.397137
## 2005 -0.034145432  82.519141 4.413030 0.024775647  83.73426 4.427648
## 2006 -0.028945872  84.802727 4.440328 0.027297423  85.64114 4.450166
## 2007  0.070292474  86.994529 4.465845 0.025517527  86.60157 4.461318
## 2008 -0.068773342  89.497617 4.494212 0.028366777  96.95027 4.574198
## 2009  0.008625949  90.977214 4.510609 0.016397077  98.23714 4.587384
## 2010  0.010088600  92.372203 4.525826 0.015217016 101.79364 4.622948
## 2011 -0.070083687  94.256848 4.546023 0.020197388 108.45056 4.686294
## 2012 -0.085367469  95.823032 4.562503 0.016479591 108.28596 4.684775
## 2013  0.005337473  97.639453 4.581282 0.018778571 109.23588 4.693510
## 2014  0.017013385  99.422197 4.599375 0.018093755 105.43528 4.658097
## 2015  0.081877853 100.000000 4.605170 0.005794785 100.00000 4.605170
## 2016 -0.204620190 102.140126 4.626346 0.021175474 103.24668 4.637121
## 2017  0.016568374 104.070820 4.645072 0.018725968 108.79685 4.689482
## 2018  0.003657833 106.294647 4.666215 0.021143297 111.89480 4.717559
##             Pm_dl         Px     Px_l         Px_dl        X      X_l
## 1964  0.026617699   9.082066 2.206302  0.0271073727  69.5767 4.242430
## 1965  0.018207431   9.324238 2.232617  0.0263155681  72.2740 4.280464
## 1966  0.021142928   9.643818 2.266317  0.0336998309  75.7169 4.327001
## 1967  0.016445613   9.936362 2.296201  0.0298838691  75.8829 4.329191
## 1968  0.107168417  10.771684 2.376921  0.0807198993  85.0006 4.442658
## 1969  0.029307803  11.051149 2.402534  0.0256135193  93.0130 4.532739
## 1970  0.068342222  12.031251 2.487508  0.0849731282  97.6457 4.581346
## 1971  0.042030025  12.666899 2.538992  0.0514847379 104.2955 4.647228
## 1972  0.030918022  13.251501 2.584111  0.0451185539 105.3692 4.657470
## 1973  0.216687395  14.879684 2.699997  0.1158859862 118.1073 4.771594
## 1974  0.347063457  18.609594 2.923677  0.2236804616 126.6282 4.841255
## 1975  0.129993293  22.544458 3.115489  0.1918120033 122.8994 4.811366
## 1976  0.193492142  27.058072 3.297985  0.1824960989 133.7309 4.895830
## 1977  0.129803604  31.294198 3.443433  0.1454473438 142.4130 4.958731
## 1978  0.033957923  33.771238 3.519610  0.0761768052 144.6497 4.974315
## 1979  0.090948669  37.747211 3.630912  0.1113020842 149.7488 5.008959
## 1980  0.097047805  43.283787 3.767778  0.1368665389 148.9380 5.003530
## 1981  0.079081701  47.114284 3.852576  0.0847980942 147.8978 4.996521
## 1982  0.070675689  50.516179 3.922294  0.0697174347 149.1126 5.004702
## 1983  0.074571787  54.679756 4.001494  0.0791998923 151.6814 5.021782
## 1984  0.086749558  58.971489 4.077054  0.0755605352 161.4238 5.084033
## 1985  0.041587616  62.122130 4.129102  0.0520482079 170.4465 5.138421
## 1986 -0.041293449  57.388422 4.049843 -0.0792597187 177.1769 5.177149
## 1987  0.028346053  59.265985 4.082036  0.0321929672 188.2108 5.237563
## 1988 -0.005304792  59.777364 4.090627  0.0085915231 189.8344 5.246152
## 1989  0.065595640  64.826202 4.171710  0.0810828062 198.5817 5.291201
## 1990  0.036501685  67.949448 4.218764  0.0470541392 208.9642 5.342163
## 1991  0.007837067  69.385754 4.239682  0.0209175631 208.6322 5.340573
## 1992  0.002262593  70.058928 4.249337  0.0096551424 217.6511 5.382893
## 1993  0.085201496  76.651456 4.339269  0.0899318881 226.9233 5.424612
## 1994  0.030859902  77.847354 4.354750  0.0154813009 247.1028 5.509804
## 1995  0.058336506  80.597337 4.389466  0.0347157076 269.5623 5.596800
## 1996  0.004371006  82.180255 4.408915  0.0194494583 288.6959 5.665374
## 1997 -0.056076992  78.233554 4.359699 -0.0492164378 311.0085 5.739820
## 1998 -0.036889418  75.344517 4.322071 -0.0376274716 319.6225 5.767141
## 1999 -0.006283501  75.734149 4.327229  0.0051580024 328.4965 5.794526
## 2000  0.023434615  77.104750 4.345165  0.0179357278 358.0739 5.880739
## 2001 -0.003985721  78.212017 4.359423  0.0142584137 364.7572 5.899232
## 2002 -0.028236418  77.686629 4.352683 -0.0067401508 369.5243 5.912217
## 2003  0.008889043  79.343739 4.373790  0.0211063903 378.0903 5.935133
## 2004 -0.005405705  79.355254 4.373935  0.0001451150 394.4767 5.977560
## 2005  0.030510779  81.845028 4.404828  0.0308929001 426.0491 6.054555
## 2006  0.022517640  83.501465 4.424864  0.0200366175 478.6982 6.171070
## 2007  0.011152065  83.451956 4.424271 -0.0005930852 468.7380 6.150044
## 2008  0.112880277  90.351981 4.503713  0.0794418568 474.9348 6.163178
## 2009  0.013186174  93.208496 4.534839  0.0311259271 437.8785 6.081941
## 2010  0.035563309  97.781132 4.582732  0.0478927599 463.2243 6.138211
## 2011  0.063346735 102.557468 4.630423  0.0476916659 496.8473 6.208283
## 2012 -0.001518921 102.731596 4.632120  0.0016964210 499.6223 6.213852
## 2013  0.008734118 105.596921 4.659629  0.0275094935 505.4958 6.225540
## 2014 -0.035412267 103.901460 4.643443 -0.0161862694 510.7705 6.235920
## 2015 -0.052927129 100.000000 4.605170 -0.0382727601 530.0490 6.272969
## 2016  0.031950887 104.214516 4.646451  0.0412812426 544.5489 6.299958
## 2017  0.052361280 108.881057 4.690256  0.0438046394 577.7727 6.359181
## 2018  0.028076761 112.245143 4.720685  0.0304291872 584.8609 6.371374
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1964  0.028367719  69.2090 4.237131  0.097698268 0.6519560 -0.4277782
## 1965  0.038034711  69.6080 4.242880  0.005748591 0.6528835 -0.4263566
## 1966  0.046536933  71.1287 4.264491  0.021611409 0.6599620 -0.4155731
## 1967  0.002189977  75.9007 4.329426  0.064934995 0.6582535 -0.4181651
## 1968  0.113466953  81.4089 4.399485  0.070058697 0.6474836 -0.4346618
## 1969  0.090080953  83.8952 4.429568  0.030083797 0.6416735 -0.4436756
## 1970  0.048606353  87.7355 4.474327  0.044758206 0.6410983 -0.4445725
## 1971  0.065882595  92.1686 4.523620  0.049292902 0.6328673 -0.4574944
## 1972  0.010242157 100.8110 4.613247  0.089627968 0.6266033 -0.4674416
## 1973  0.114123160 111.5794 4.714736  0.101488968 0.6197069 -0.4785087
## 1974  0.069661700 112.6564 4.724342  0.009606033 0.6582298 -0.4182012
## 1975 -0.029889099 105.2131 4.655988 -0.068354661 0.6911362 -0.3694184
## 1976  0.084463437 110.3551 4.703703  0.047715531 0.6723976 -0.3969055
## 1977  0.062901715 112.2438 4.720673  0.016969943 0.6337976 -0.4560256
## 1978  0.015583671 116.1480 4.754865  0.034191949 0.6258224 -0.4686887
## 1979  0.034644266 126.9397 4.843712  0.088846931 0.6191877 -0.4793469
## 1980 -0.005429112 122.4311 4.807548 -0.036163748 0.6301974 -0.4617222
## 1981 -0.007008617 118.9113 4.778378 -0.029170586 0.6245568 -0.4707130
## 1982  0.008180231 124.2858 4.822584  0.044205915 0.6080112 -0.4975620
## 1983  0.017080543 131.9268 4.882247  0.059663471 0.5937599 -0.5212802
## 1984  0.062250936 144.3872 4.972499  0.090251357 0.5959106 -0.5176647
## 1985  0.054388260 147.7500 4.995522  0.023023076 0.5858408 -0.5347073
## 1986  0.038727204 157.5799 5.059933  0.064410975 0.5900668 -0.5275194
## 1987  0.060413943 169.7643 5.134411  0.074478373 0.5752540 -0.5529436
## 1988  0.008589502 190.7383 5.250902  0.116491327 0.5719868 -0.5586394
## 1989  0.045048489 204.3010 5.319594  0.068692065 0.5775476 -0.5489644
## 1990  0.050962343 205.1214 5.323602  0.004007602 0.5829557 -0.5396441
## 1991 -0.001590052 195.8697 5.277450 -0.046152357 0.5893140 -0.5287961
## 1992  0.042320429 208.7040 5.340917  0.063467338 0.5855144 -0.5352644
## 1993  0.041718753 215.1159 5.371177  0.030259972 0.5725505 -0.5576544
## 1994  0.085192369 227.4243 5.426817  0.055640483 0.5486460 -0.6003018
## 1995  0.086995088 239.4208 5.478223  0.051405237 0.5478373 -0.6017769
## 1996  0.068574353 261.4254 5.566149  0.087926292 0.5331475 -0.6289571
## 1997  0.074446358 279.8366 5.634206  0.068056896 0.5483341 -0.6008705
## 1998  0.027320369 300.5782 5.705708  0.071502092 0.5501222 -0.5976148
## 1999  0.027385571 322.3687 5.775696  0.069987968 0.5672648 -0.5669291
## 2000  0.086213206 353.0399 5.866581  0.090885160 0.5738283 -0.5554250
## 2001  0.018492537 372.7926 5.921022  0.054441151 0.5836238 -0.5384986
## 2002  0.012984576 392.5811 5.972743  0.051720907 0.5753752 -0.5527330
## 2003  0.022916553 401.2894 5.994683  0.021939723 0.5759508 -0.5517330
## 2004  0.042427020 426.8534 6.056441  0.061757766 0.5831328 -0.5393402
## 2005  0.076994521 456.4989 6.123586  0.067145662 0.5787003 -0.5469705
## 2006  0.116515738 502.1091 6.218817  0.095231136 0.5836276 -0.5384921
## 2007 -0.021026359 487.1159 6.188502 -0.030315344 0.5898571 -0.5278750
## 2008  0.013133554 477.8914 6.169384 -0.019118572 0.5808611 -0.5432437
## 2009 -0.081236057 440.7590 6.088498 -0.080885269 0.5906856 -0.5264714
## 2010  0.056269911 476.3814 6.166219  0.077720553 0.5896105 -0.5282931
## 2011  0.070071349 483.6969 6.181458  0.015239677 0.5812671 -0.5425449
## 2012  0.005569678 492.5311 6.199558  0.018099135 0.5754796 -0.5525516
## 2013  0.011687317 509.4837 6.233398  0.033840254 0.5762201 -0.5512655
## 2014  0.010380640 527.9627 6.269026  0.035627777 0.5691817 -0.5635556
## 2015  0.037049085 556.5070 6.321680  0.052654112 0.5655601 -0.5699388
## 2016  0.026988290 580.9601 6.364682  0.043002331 0.5664757 -0.5683212
## 2017  0.059222793 601.3152 6.399119  0.034437176 0.5662944 -0.5686412
## 2018  0.012193502 613.3127 6.418875  0.019755664 0.5670387 -0.5673277
##            rulc_dl       ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1964 -0.0022946312  3.734235 1.317543  0.0329464790  52.32401 3.957455
## 1965  0.0014216431  3.961621 1.376653  0.0591104648  52.56182 3.961990
## 1966  0.0107835276  4.218489 1.439477  0.0628237186  52.65253 3.963714
## 1967 -0.0025920833  4.332390 1.466119  0.0266423305  53.97079 3.988443
## 1968 -0.0164966227  4.441130 1.490909  0.0247894418  56.36394 4.031830
## 1969 -0.0090138503  4.693191 1.546113  0.0552039195  56.71095 4.037967
## 1970 -0.0008969128  5.141222 1.637291  0.0911780182  57.60480 4.053606
## 1971 -0.0129219180  5.495216 1.703878  0.0665871313  59.14418 4.079978
## 1972 -0.0099471159  5.852863 1.766931  0.0630530985  60.96708 4.110334
## 1973 -0.0110671404  6.297529 1.840157  0.0732263527  63.43451 4.150008
## 1974  0.0603075083  7.773107 2.050670  0.2105125932  61.03427 4.111435
## 1975  0.0487827921 10.291240 2.331293  0.2806231134  59.78009 4.090673
## 1976 -0.0274870655 11.567586 2.448207  0.1169138587  61.51290 4.119247
## 1977 -0.0591201458 12.411738 2.518643  0.0704357265  62.70225 4.138397
## 1978 -0.0126630477 13.704412 2.617718  0.0990752213  64.56933 4.167740
## 1979 -0.0106582291 15.516307 2.741892  0.1241737083  65.94924 4.188885
## 1980  0.0176247061 18.968412 2.942775  0.2008835294  64.65386 4.169048
## 1981 -0.0089908636 21.129588 3.050674  0.1078992355  65.20292 4.177504
## 1982 -0.0268490020 22.216500 3.100835  0.0501609325  66.99867 4.204673
## 1983 -0.0237181680 22.898733 3.131082  0.0302463220  69.75541 4.244995
## 1984  0.0036155126 24.180198 3.185534  0.0544524575  70.09937 4.249914
## 1985 -0.0170425625 25.054046 3.221035  0.0355012809  72.07161 4.277660
## 1986  0.0071878181 26.365291 3.272048  0.0510131087  73.80927 4.301484
## 1987 -0.0254241360 27.091459 3.299219  0.0271700873  75.92649 4.329766
## 1988 -0.0056958427 28.530905 3.350988  0.0517693585  77.39193 4.348882
## 1989  0.0096750122 31.062553 3.436003  0.0850151216  77.18999 4.346270
## 1990  0.0093203125 33.880770 3.522848  0.0868445951  76.67201 4.339537
## 1991  0.0108480264 36.523803 3.597964  0.0751166032  76.57051 4.338212
## 1992 -0.0064683633 37.430007 3.622473  0.0245085080  77.26426 4.347232
## 1993 -0.0223899552 37.598100 3.626954  0.0044808230  79.11372 4.370886
## 1994 -0.0426474018 36.513014 3.597669 -0.0292847679  81.28652 4.397980
## 1995 -0.0014751176 37.346667 3.620244  0.0225749247  82.24783 4.409737
## 1996 -0.0271801871 37.842735 3.633439  0.0131953462  83.19781 4.421221
## 1997  0.0280866480 39.336568 3.672155  0.0387155373  84.93220 4.441853
## 1998  0.0032556719 39.839880 3.684868  0.0127138531  86.79149 4.463509
## 1999  0.0306856624 41.454430 3.724595  0.0397263229  88.33630 4.481151
## 2000  0.0115041134 42.714385 3.754536  0.0299410053  89.99753 4.499782
## 2001  0.0169263909 43.876262 3.781373  0.0268376894  91.48695 4.516196
## 2002 -0.0142343410 44.170105 3.788048  0.0066747588  92.41070 4.526243
## 2003  0.0009999138 45.211923 3.811361  0.0233126351  94.17449 4.545149
## 2004  0.0123927898 46.942074 3.848914  0.0375535508  95.07571 4.554674
## 2005 -0.0076302285 47.753855 3.866060  0.0171454185  96.68808 4.571490
## 2006  0.0084783788 49.493216 3.901836  0.0357758018  97.97629 4.584725
## 2007  0.0106170803 51.314338 3.937970  0.0361346070  98.98812 4.595000
## 2008 -0.0153686328 51.985683 3.950968  0.0129981439  97.58323 4.580706
## 2009  0.0167722492 53.738929 3.984138  0.0331693262  94.13862 4.544768
## 2010 -0.0018217287 54.463620 3.997533  0.0133952875  95.59793 4.560151
## 2011 -0.0142517775 54.788405 4.003479  0.0059456104  96.60444 4.570625
## 2012 -0.0100066483 55.144197 4.009952  0.0064729427  97.23219 4.577102
## 2013  0.0012860524 56.261819 4.030016  0.0200646231  98.39556 4.588996
## 2014 -0.0122900971 56.589293 4.035820  0.0058036581  99.18146 4.596951
## 2015 -0.0063831838 56.556006 4.035231 -0.0005883984 100.00000 4.605170
## 2016  0.0016176253 57.859896 4.058024  0.0227930991 100.49112 4.610069
## 2017 -0.0003200298 58.934723 4.076430  0.0184059384 101.27159 4.617806
## 2018  0.0013134630 60.273178 4.098887  0.0224567597 101.47157 4.619779
##            Tau_dl        dPxdPm         dPdPm     Trade
## 1964  0.037023130  0.0004896735  0.0086234111 0.2337542
## 1965  0.004534752  0.0081081371  0.0394813907 0.2339847
## 1966  0.001724187  0.0125569027  0.0308972629 0.2384333
## 1967  0.024728740  0.0134382560  0.0127888008 0.2397947
## 1968  0.043386679 -0.0264485173 -0.0658823521 0.2492604
## 1969  0.006137673 -0.0036942832  0.0349099673 0.2599454
## 1970  0.015638482  0.0166309061  0.0237327089 0.2652118
## 1971  0.026372335  0.0094547124  0.0374790239 0.2715505
## 1972  0.030355837  0.0142005323  0.0420821928 0.2731743
## 1973  0.039673954 -0.1008014086 -0.1323939016 0.2856814
## 1974 -0.038572487 -0.1233829951 -0.1968583719 0.3052014
## 1975 -0.020762768  0.0618187107  0.1018470287 0.2953035
## 1976  0.028574190 -0.0109960435 -0.0490912182 0.3070461
## 1977  0.019150401  0.0156437402 -0.0002477313 0.3126591
## 1978  0.029342283  0.0422188822  0.0777803461 0.3072799
## 1979  0.021145842  0.0203534149  0.0438832681 0.3142227
## 1980 -0.019837568  0.0398187334  0.0862110179 0.3145718
## 1981  0.008456474  0.0057163934  0.0378083983 0.3117417
## 1982  0.027168394 -0.0009582546  0.0063342451 0.3131927
## 1983  0.040322257  0.0046281057 -0.0206072966 0.3117279
## 1984  0.004918762 -0.0111890224 -0.0359126127 0.3286742
## 1985  0.027746467  0.0104605923  0.0109562278 0.3283667
## 1986  0.023824163 -0.0379662692  0.0851187400 0.3349058
## 1987  0.028281240  0.0038469145  0.0242481706 0.3398092
## 1988  0.019116881  0.0138963152  0.0627699933 0.3416741
## 1989 -0.002612700  0.0154871659  0.0097444690 0.3526147
## 1990 -0.006733125  0.0105524538  0.0410225972 0.3597800
## 1991 -0.001324665  0.0130804965  0.0564315102 0.3553733
## 1992  0.009019555  0.0073925495  0.0287142784 0.3730761
## 1993  0.023654762  0.0047303921 -0.0583307179 0.3774036
## 1994  0.027093928 -0.0153786006 -0.0174972677 0.3901363
## 1995  0.011756710 -0.0236207986 -0.0342864639 0.4081333
## 1996  0.011484069  0.0150784524  0.0360045273 0.4303969
## 1997  0.020632301  0.0068605541  0.0667058813 0.4450998
## 1998  0.021655218 -0.0007380532  0.0463475996 0.4507836
## 1999  0.017642626  0.0114415036  0.0153241616 0.4573914
## 2000  0.018631042 -0.0054988877 -0.0049977235 0.4831241
## 2001  0.016414073  0.0182441348  0.0138970196 0.4866112
## 2002  0.010046532  0.0214962668  0.0491455174 0.4913899
## 2003  0.018906567  0.0122173473  0.0134236783 0.4865385
## 2004  0.009524181  0.0055508203  0.0305664664 0.5008370
## 2005  0.016816542  0.0003821208 -0.0057351323 0.5215817
## 2006  0.013235364 -0.0024810226  0.0047797829 0.5639287
## 2007  0.010274356 -0.0117451503  0.0143654617 0.5365402
## 2008 -0.014294170 -0.0334384204 -0.0845135005 0.5363481
## 2009 -0.035937318  0.0179397533  0.0032109032 0.5165284
## 2010  0.015382807  0.0123294510 -0.0203462927 0.5418071
## 2011  0.010473530 -0.0156550691 -0.0431493470 0.5568373
## 2012  0.006477196  0.0032153421  0.0179985121 0.5552183
## 2013  0.011893781  0.0187753751  0.0100444522 0.5560940
## 2014  0.007955423  0.0192259978  0.0535060225 0.5546460
## 2015  0.008219112  0.0146543693  0.0587219148 0.5668310
## 2016  0.004899149  0.0093303552 -0.0107754137 0.5761007
## 2017  0.007736592 -0.0085566404 -0.0336353116 0.5923184
## 2018  0.001972708  0.0023524259 -0.0069334646 0.5939430

Adjusted Dickey-fuller testet I(0)

adf.GBR.WS <- adf.test((GBR$WS), alternative = c("stationary"), k = 2)
adf.GBR.PS <- adf.test((GBR$PS), alternative = c("stationary"), k = 2)
adf.GBR.Y <- adf.test((GBR$Y), alternative = c("stationary"), k = 2)
adf.GBR.Yrw <- adf.test((GBR$Yrw), alternative = c("stationary"), k = 2)
adf.GBR.r <- adf.test((GBR$r), alternative = c("stationary"), k = 2)
adf.GBR.R <- adf.test((GBR$R), alternative = c("stationary"), k = 2)
adf.GBR.Tau <- adf.test((GBR$Tau), alternative = c("stationary"), k = 2)
adf.GBR.rulc <- adf.test((GBR$rulc), alternative = c("stationary"), k = 2)
adf.GBR.ulc <- adf.test((GBR$ulc), alternative = c("stationary"), k = 2)
adf.GBR.P <- adf.test((GBR$P), alternative = c("stationary"), k = 2)
adf.GBR.Pm <- adf.test((GBR$Pm), alternative = c("stationary"), k = 2)
adf.GBR.Px <- adf.test((GBR$Px), alternative = c("stationary"), k = 2)
adf.GBR.X <- adf.test((GBR$X), alternative = c("stationary"), k = 2)
adf.GBR.M <- adf.test((GBR$M), alternative = c("stationary"), k = 2)
adf.GBR.I <- adf.test((GBR$I), alternative = c("stationary"), k = 2)
adf.GBR.C <- adf.test((GBR$C), alternative = c("stationary"), k = 2)
adf.GBR.Ipr <- adf.test((GBR$Ipr), alternative = c("stationary"), k = 2)
adf.GBR.Ips <- adf.test((GBR$Ips), alternative = c("stationary"), k = 2)
adf.GBR.It <- adf.test((GBR$It), alternative = c("stationary"), k = 2)
adf.GBR.Itcurr <- adf.test((GBR$Itcurr), alternative = c("stationary"), k = 2)
adf.GBR.Yf <- adf.test((GBR$Yf), alternative = c("stationary"), k = 2)
adf.GBR.W <- adf.test((GBR$W), alternative = c("stationary"), k = 2)

adf.GBR.WS.pval <- adf.GBR.WS$p.value
adf.GBR.PS.pval <- adf.GBR.PS$p.value
adf.GBR.Y.pval <- adf.GBR.Y$p.value
adf.GBR.Yrw.pval <- adf.GBR.Yrw$p.value
adf.GBR.r.pval <- adf.GBR.r$p.value
adf.GBR.R.pval <- adf.GBR.R$p.value
adf.GBR.Tau.pval <- adf.GBR.Tau$p.value
adf.GBR.rulc.pval <- adf.GBR.rulc$p.value
adf.GBR.ulc.pval <- adf.GBR.ulc$p.value
adf.GBR.P.pval <- adf.GBR.P$p.value
adf.GBR.Pm.pval <- adf.GBR.Pm$p.value
adf.GBR.Px.pval <- adf.GBR.Px$p.value
adf.GBR.X.pval <- adf.GBR.X$p.value
adf.GBR.M.pval <- adf.GBR.M$p.value
adf.GBR.I.pval <- adf.GBR.I$p.value
adf.GBR.C.pval <- adf.GBR.C$p.value
adf.GBR.Ipr.pval <- adf.GBR.Ipr$p.value
adf.GBR.Ips.pval <- adf.GBR.Ips$p.value
adf.GBR.It.pval <- adf.GBR.It$p.value
adf.GBR.Itcurr.pval <- adf.GBR.Itcurr$p.value
adf.GBR.Yf.pval <- adf.GBR.Yf$p.value
adf.GBR.W.pval <- adf.GBR.W$p.value

adf.GBR_non <- rbind(adf.GBR.WS.pval,adf.GBR.PS.pval,adf.GBR.Y.pval,adf.GBR.Yrw.pval,adf.GBR.r.pval,adf.GBR.R.pval,adf.GBR.Tau.pval,adf.GBR.rulc.pval,adf.GBR.ulc.pval,adf.GBR.P.pval,adf.GBR.Pm.pval,adf.GBR.Px.pval,adf.GBR.X.pval,adf.GBR.M.pval,adf.GBR.I.pval,adf.GBR.C.pval,adf.GBR.Ipr.pval,adf.GBR.Ips.pval,adf.GBR.It.pval,adf.GBR.Itcurr.pval,adf.GBR.Yf.pval,adf.GBR.W.pval)


colnames(adf.GBR_non) <- c("GBR")
rownames(adf.GBR_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.GBR_non
##               GBR
## WS     0.50256586
## PS     0.50256586
## Y      0.59894258
## Yrw    0.62081531
## r      0.56394057
## R      0.25798017
## Tau    0.71476222
## rulc   0.53668267
## ulc    0.40154074
## P      0.47452317
## Pm     0.64134215
## Px     0.58467983
## X      0.81239839
## M      0.74367133
## I      0.06132643
## C      0.46999129
## Ipr    0.05740594
## Ips    0.71481404
## It     0.07232361
## Itcurr 0.21137751
## Yf     0.50550390
## W      0.57133761

Adjusted Dickey-fuller testet I(1)

adf.GBR.WS_dl <- adf.test((GBR$WS_dl), alternative = c("stationary"), k = 2)
adf.GBR.PS_dl <- adf.test((GBR$PS_dl), alternative = c("stationary"), k = 2)
adf.GBR.Y_dl <- adf.test((GBR$Y_dl), alternative = c("stationary"), k = 2)
adf.GBR.Yrw_dl <- adf.test((GBR$Yrw_dl), alternative = c("stationary"), k = 2)
adf.GBR.r_dl <- adf.test((GBR$r_dl), alternative = c("stationary"), k = 2)
adf.GBR.R_dl <- adf.test((GBR$R_dl), alternative = c("stationary"), k = 2)
adf.GBR.Tau_dl <- adf.test((GBR$Tau_dl), alternative = c("stationary"), k = 2)
adf.GBR.rulc_dl <- adf.test((GBR$rulc_dl), alternative = c("stationary"), k = 2)
adf.GBR.ulc_dl <- adf.test((GBR$ulc_dl), alternative = c("stationary"), k = 2)
adf.GBR.P_dl <- adf.test((GBR$P_dl), alternative = c("stationary"), k = 2)
adf.GBR.Pm_dl <- adf.test((GBR$Pm_dl), alternative = c("stationary"), k = 2)
adf.GBR.Px_dl <- adf.test((GBR$Px_dl), alternative = c("stationary"), k = 2)
adf.GBR.X_dl <- adf.test((GBR$X_dl), alternative = c("stationary"), k = 2)
adf.GBR.M_dl <- adf.test((GBR$M_dl), alternative = c("stationary"), k = 2)
adf.GBR.I_dl <- adf.test((GBR$I_dl), alternative = c("stationary"), k = 2)
adf.GBR.C_dl <- adf.test((GBR$C_dl), alternative = c("stationary"), k = 2)
adf.GBR.Ipr_dl <- adf.test((GBR$Ipr_dl), alternative = c("stationary"), k = 2)
adf.GBR.Ips_dl <- adf.test((GBR$Ips_dl), alternative = c("stationary"), k = 2)
adf.GBR.It_dl <- adf.test((GBR$It_dl), alternative = c("stationary"), k = 2)
adf.GBR.Itcurr_dl <- adf.test((GBR$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.GBR.Yf_dl <- adf.test((GBR$Yf_dl), alternative = c("stationary"), k = 2)
adf.GBR.W_dl <- adf.test((GBR$W_dl), alternative = c("stationary"), k = 2)

adf.GBR.WS_dl.pval <- adf.GBR.WS_dl$p.value
adf.GBR.PS_dl.pval <- adf.GBR.PS_dl$p.value
adf.GBR.Y_dl.pval <- adf.GBR.Y_dl$p.value
adf.GBR.Yrw_dl.pval <- adf.GBR.Yrw_dl$p.value
adf.GBR.r_dl.pval <- adf.GBR.r_dl$p.value
adf.GBR.R_dl.pval <- adf.GBR.R_dl$p.value
adf.GBR.Tau_dl.pval <- adf.GBR.Tau_dl$p.value
adf.GBR.rulc_dl.pval <- adf.GBR.rulc_dl$p.value
adf.GBR.ulc_dl.pval <- adf.GBR.ulc_dl$p.value
adf.GBR.P_dl.pval <- adf.GBR.P_dl$p.value
adf.GBR.Pm_dl.pval <- adf.GBR.Pm_dl$p.value
adf.GBR.Px_dl.pval <- adf.GBR.Px_dl$p.value
adf.GBR.X_dl.pval <- adf.GBR.X_dl$p.value
adf.GBR.M_dl.pval <- adf.GBR.M_dl$p.value
adf.GBR.I_dl.pval <- adf.GBR.I_dl$p.value
adf.GBR.C_dl.pval <- adf.GBR.C_dl$p.value
adf.GBR.Ipr_dl.pval <- adf.GBR.Ipr_dl$p.value
adf.GBR.Ips_dl.pval <- adf.GBR.Ips_dl$p.value
adf.GBR.It_dl.pval <- adf.GBR.It_dl$p.value
adf.GBR.Itcurr_dl.pval <- adf.GBR.Itcurr_dl$p.value
adf.GBR.Yf_dl.pval <- adf.GBR.Yf_dl$p.value
adf.GBR.W_dl.pval <- adf.GBR.W_dl$p.value

adf.GBR_dl <- rbind(adf.GBR.WS_dl.pval,adf.GBR.PS_dl.pval,adf.GBR.Y_dl.pval,adf.GBR.Yrw_dl.pval,adf.GBR.r_dl.pval,adf.GBR.R_dl.pval,adf.GBR.Tau_dl.pval,adf.GBR.rulc_dl.pval,adf.GBR.ulc_dl.pval,adf.GBR.P_dl.pval,adf.GBR.Pm_dl.pval,adf.GBR.Px_dl.pval,adf.GBR.X_dl.pval,adf.GBR.M_dl.pval,adf.GBR.I_dl.pval,adf.GBR.C_dl.pval,adf.GBR.Ipr_dl.pval,adf.GBR.Ips_dl.pval,adf.GBR.It_dl.pval,adf.GBR.Itcurr_dl.pval,adf.GBR.Yf_dl.pval,adf.GBR.W_dl.pval)
colnames(adf.GBR_dl) <- c("GBR")
rownames(adf.GBR_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.GBR_dl
##                     GBR
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.01000000
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01000000
## dlog(Tau)    0.01000000
## dlog(rulc)   0.01000000
## dlog(ulc)    0.08211543
## dlog(P)      0.31132783
## dlog(Pm)     0.14116250
## dlog(Px)     0.20820023
## dlog(X)      0.01000000
## dlog(M)      0.01000000
## dlog(I)      0.01000000
## dlog(C)      0.04435590
## dlog(Ipr)    0.01164540
## dlog(Ips)    0.01000000
## dlog(It)     0.01000000
## dlog(Itcurr) 0.01041577
## dlog(Yf)     0.01000000
## dlog(W)      0.05527507
adf.GBR <- NULL
adf.GBR <- rbind(adf.GBR_non,adf.GBR_dl)

Økonometriske test

#Consumption (C)
GBR_consumption <- dynlm(GBR$C_dl~GBR$R_dl+GBR$W_dl)
GBR_CR <- summary(GBR_consumption)$coefficients["GBR$R_dl","Estimate"]
GBR_CW <- summary(GBR_consumption)$coefficients["GBR$W_dl","Estimate"]
GBR_Ceffekt <- (GBR_CR*mean(GBR$C/GBR$R))-(GBR_CW*mean(GBR$C/GBR$W))
summary(GBR_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$C_dl ~ GBR$R_dl + GBR$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.022380 -0.004548 -0.001046  0.005853  0.022626 
## 
## Coefficients:
##             Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.007035   0.002106   3.341           0.00155 ** 
## GBR$R_dl    0.223432   0.028332   7.886 0.000000000192776 ***
## GBR$W_dl    0.675589   0.067382  10.026 0.000000000000095 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01044 on 52 degrees of freedom
## Multiple R-squared:  0.7388, Adjusted R-squared:  0.7288 
## F-statistic: 73.56 on 2 and 52 DF,  p-value: 0.0000000000000006907
#Investments (I)
GBR_investment <- dynlm(GBR$I_dl~GBR$PS_dl+GBR$Y_dl+L(GBR$r_dl,2))
GBR_iPS <- summary(GBR_investment)$coefficients["GBR$PS_dl","Estimate"]
GBR_Ieffekt <- GBR_iPS*mean(GBR$I/GBR$R)
summary(GBR_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$I_dl ~ GBR$PS_dl + GBR$Y_dl + L(GBR$r_dl, 
##     2))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.125619 -0.020355  0.005741  0.027394  0.073185 
## 
## Coefficients:
##                 Estimate Std. Error t value       Pr(>|t|)    
## (Intercept)    -0.029128   0.008369  -3.481        0.00103 ** 
## GBR$PS_dl       0.340874   0.174934   1.949        0.05686 .  
## GBR$Y_dl        2.313895   0.286514   8.076 0.000000000111 ***
## L(GBR$r_dl, 2) -0.019910   0.012537  -1.588        0.11844    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03761 on 51 degrees of freedom
## Multiple R-squared:  0.6696, Adjusted R-squared:  0.6502 
## F-statistic: 34.46 on 3 and 51 DF,  p-value: 0.000000000002593
#Price deflator (P)
GBR_deflator <- dynlm(GBR$P_dl~L(GBR$ulc_dl)+GBR$Pm_dl)
GBR_ePULC <- summary(GBR_deflator)$coefficients["L(GBR$ulc_dl)","Estimate"]
summary(GBR_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$P_dl ~ L(GBR$ulc_dl) + GBR$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.053276 -0.009357 -0.002046  0.009887  0.052851 
## 
## Coefficients:
##               Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)   0.010915   0.003115   3.504             0.000951 ***
## L(GBR$ulc_dl) 0.750933   0.052008  14.439 < 0.0000000000000002 ***
## GBR$Pm_dl     0.099363   0.041418   2.399             0.020059 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01668 on 52 degrees of freedom
## Multiple R-squared:  0.8837, Adjusted R-squared:  0.8793 
## F-statistic: 197.6 on 2 and 52 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
GBR_exportdeflator <- dynlm(GBR$Px_dl~GBR$ulc_dl+GBR$Pm_dl)
GBR_ePX <- summary(GBR_exportdeflator)$coefficients["GBR$ulc_dl","Estimate"]
summary(GBR_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$Px_dl ~ GBR$ulc_dl + GBR$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.071866 -0.006383  0.002223  0.010418  0.040183 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.003479   0.003650   0.953                0.345    
## GBR$ulc_dl  0.292934   0.060951   4.806            0.0000135 ***
## GBR$Pm_dl   0.625195   0.048540  12.880 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01955 on 52 degrees of freedom
## Multiple R-squared:  0.8866, Adjusted R-squared:  0.8822 
## F-statistic: 203.2 on 2 and 52 DF,  p-value: < 0.00000000000000022
#Exports (X)
GBR_exports <- dynlm(GBR$X_dl~L(GBR$dPxdPm)+GBR$Yrw_dl)
GBR_eXP <- summary(GBR_exports)$coefficients["L(GBR$dPxdPm)","Estimate"]
GBR_Xeffekt <- -(GBR_eXP*GBR_ePX*(1/(1-GBR_ePULC))*mean(GBR$Yf/GBR$Y)*(mean(GBR$X/GBR$Y)/mean(GBR$rulc)))
summary(GBR_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$X_dl ~ L(GBR$dPxdPm) + GBR$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.065624 -0.017281 -0.000221  0.020893  0.073148 
## 
## Coefficients:
##                Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)    0.008105   0.007345   1.104    0.27487    
## L(GBR$dPxdPm) -0.534180   0.135379  -3.946    0.00024 ***
## GBR$Yrw_dl     1.097751   0.214982   5.106 0.00000474 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02762 on 52 degrees of freedom
## Multiple R-squared:  0.4862, Adjusted R-squared:  0.4664 
## F-statistic:  24.6 on 2 and 52 DF,  p-value: 0.00000003029
#Imports (M)
GBR_imports <- dynlm(GBR$M_dl~GBR$dPdPm+L(GBR$Y_dl))
GBR_eMP <- summary(GBR_imports)$coefficients["GBR$dPdPm","Estimate"]
GBR_eMP <- 0
GBR_Meffekt <- -(GBR_eMP*GBR_ePULC*(1/(1-GBR_ePULC))*mean(GBR$Yf/GBR$Y)*(mean(GBR$M/GBR$Y)/mean(GBR$rulc)))
summary(GBR_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$M_dl ~ GBR$dPdPm + L(GBR$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.072651 -0.015322 -0.002302  0.015976  0.056257 
## 
## Coefficients:
##              Estimate Std. Error t value          Pr(>|t|)    
## (Intercept)  0.002973   0.005365   0.554             0.582    
## GBR$dPdPm   -0.088270   0.067425  -1.309             0.196    
## L(GBR$Y_dl)  1.691852   0.173744   9.738 0.000000000000258 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02585 on 52 degrees of freedom
## Multiple R-squared:  0.6493, Adjusted R-squared:  0.6358 
## F-statistic: 48.14 on 2 and 52 DF,  p-value: 0.00000000000147
names(GBR_consumption$coefficients) <- sub("GBR$","",names(GBR_consumption$coefficients),fixed=TRUE)
names(GBR_investment$coefficients) <- sub("GBR$","",names(GBR_investment$coefficients),fixed=TRUE)
names(GBR_deflator$coefficients) <- sub("GBR$","",names(GBR_deflator$coefficients),fixed=TRUE)
names(GBR_exportdeflator$coefficients) <- sub("GBR$","",names(GBR_exportdeflator$coefficients),fixed=TRUE)
names(GBR_exports$coefficients) <- sub("GBR$","",names(GBR_exports$coefficients),fixed=TRUE)
names(GBR_imports$coefficients) <- sub("GBR$","",names(GBR_imports$coefficients),fixed=TRUE)

GBR_Xeffekt
## [1] 0.1992125
GBR_Meffekt
## [1] 0
#Nettoeksport (NX)
GBR_NXeffekt <- GBR_Xeffekt - GBR_Meffekt

GBR_NXeffekt
## [1] 0.1992125
#Nettoeffekten
GBR_Neteffekt = GBR_Ceffekt + GBR_Ieffekt + GBR_NXeffekt

GBR_Neteffekt
## [1] 0.07685367
GBR_Lukket <- GBR_Ceffekt + GBR_Ieffekt
GBR_Lukket_Konklusion <- ifelse(GBR_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
GBR_Lukket_Konklusion
## [1] "Wage-led domestic"
GBR_Def <- ifelse(GBR_Neteffekt > 0, "Profit-led", "Wage-led")
GBR_Def
## [1] "Profit-led"

Kointegrations-test

summary(ur.df(y=GBR_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.012720 -0.003191  0.001790  0.005409  0.016449 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.58156    0.28487  -2.042   0.0504 .
## z.diff.lag1  -0.15323    0.28373  -0.540   0.5933  
## z.diff.lag2   0.03812    0.27017   0.141   0.8888  
## z.diff.lag3   0.15029    0.27073   0.555   0.5831  
## z.diff.lag4   0.16859    0.27475   0.614   0.5442  
## z.diff.lag5  -0.04172    0.26666  -0.156   0.8768  
## z.diff.lag6   0.15465    0.25305   0.611   0.5459  
## z.diff.lag7   0.26706    0.23174   1.152   0.2586  
## z.diff.lag8   0.53187    0.21985   2.419   0.0221 *
## z.diff.lag9   0.21882    0.22714   0.963   0.3433  
## z.diff.lag10  0.03592    0.21444   0.168   0.8681  
## z.diff.lag11  0.08876    0.17626   0.504   0.6184  
## z.diff.lag12 -0.10354    0.13278  -0.780   0.4418  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.007636 on 29 degrees of freedom
## Multiple R-squared:   0.63,  Adjusted R-squared:  0.4642 
## F-statistic: 3.799 on 13 and 29 DF,  p-value: 0.001357
## 
## 
## Value of test-statistic is: -2.0415 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=GBR_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074418 -0.024768  0.007786  0.022754  0.080224 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -1.028669   0.739535  -1.391    0.175
## z.diff.lag1  -0.030219   0.715508  -0.042    0.967
## z.diff.lag2   0.007084   0.684844   0.010    0.992
## z.diff.lag3   0.078240   0.652840   0.120    0.905
## z.diff.lag4   0.082218   0.610257   0.135    0.894
## z.diff.lag5   0.040224   0.560937   0.072    0.943
## z.diff.lag6  -0.112647   0.515202  -0.219    0.828
## z.diff.lag7  -0.161845   0.468696  -0.345    0.732
## z.diff.lag8  -0.141303   0.425870  -0.332    0.742
## z.diff.lag9  -0.067225   0.389002  -0.173    0.864
## z.diff.lag10 -0.046334   0.330283  -0.140    0.889
## z.diff.lag11 -0.058508   0.253325  -0.231    0.819
## z.diff.lag12  0.021547   0.172969   0.125    0.902
## 
## Residual standard error: 0.04008 on 29 degrees of freedom
## Multiple R-squared:  0.551,  Adjusted R-squared:  0.3497 
## F-statistic: 2.737 on 13 and 29 DF,  p-value: 0.01179
## 
## 
## Value of test-statistic is: -1.391 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=GBR_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.060376 -0.015019 -0.001191  0.018978  0.070787 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.88445    0.51995  -1.701   0.0996 .
## z.diff.lag1  -0.07331    0.49794  -0.147   0.8840  
## z.diff.lag2   0.02369    0.48490   0.049   0.9614  
## z.diff.lag3  -0.05950    0.47540  -0.125   0.9013  
## z.diff.lag4  -0.17714    0.46460  -0.381   0.7058  
## z.diff.lag5   0.14642    0.45193   0.324   0.7483  
## z.diff.lag6   0.21335    0.43098   0.495   0.6243  
## z.diff.lag7   0.16917    0.40995   0.413   0.6829  
## z.diff.lag8   0.14864    0.37577   0.396   0.6953  
## z.diff.lag9   0.28549    0.31012   0.921   0.3649  
## z.diff.lag10  0.26373    0.27975   0.943   0.3536  
## z.diff.lag11  0.31978    0.24435   1.309   0.2009  
## z.diff.lag12  0.13462    0.21715   0.620   0.5401  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02809 on 29 degrees of freedom
## Multiple R-squared:  0.5787, Adjusted R-squared:  0.3899 
## F-statistic: 3.065 on 13 and 29 DF,  p-value: 0.005912
## 
## 
## Value of test-statistic is: -1.701 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=GBR_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.039585 -0.013591  0.004926  0.017580  0.041832 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1      -0.98339    0.66579  -1.477    0.150
## z.diff.lag1  -0.17271    0.63641  -0.271    0.788
## z.diff.lag2  -0.20866    0.61461  -0.339    0.737
## z.diff.lag3  -0.37466    0.60478  -0.619    0.540
## z.diff.lag4  -0.10743    0.59053  -0.182    0.857
## z.diff.lag5   0.02678    0.57120   0.047    0.963
## z.diff.lag6   0.05470    0.54462   0.100    0.921
## z.diff.lag7   0.10160    0.51757   0.196    0.846
## z.diff.lag8   0.10193    0.48852   0.209    0.836
## z.diff.lag9   0.03292    0.45201   0.073    0.942
## z.diff.lag10  0.21930    0.38942   0.563    0.578
## z.diff.lag11 -0.09161    0.31498  -0.291    0.773
## z.diff.lag12 -0.14790    0.21007  -0.704    0.487
## 
## Residual standard error: 0.02516 on 29 degrees of freedom
## Multiple R-squared:  0.7522, Adjusted R-squared:  0.6412 
## F-statistic: 6.773 on 13 and 29 DF,  p-value: 0.000009722
## 
## 
## Value of test-statistic is: -1.477 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61

Test plots

plot(GBR_consumption)

plot(GBR_investment)

plot(GBR_deflator)

plot(GBR_exportdeflator)

plot(GBR_exports)

plot(GBR_imports)

bptest(GBR_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  GBR_consumption
## BP = 4.8636, df = 2, p-value = 0.08788
bptest(GBR_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  GBR_investment
## BP = 6.2237, df = 3, p-value = 0.1012
bptest(GBR_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  GBR_deflator
## BP = 15.116, df = 2, p-value = 0.0005219
bptest(GBR_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  GBR_exportdeflator
## BP = 7.0032, df = 2, p-value = 0.03015
bptest(GBR_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  GBR_exports
## BP = 1.0499, df = 2, p-value = 0.5916
bptest(GBR_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  GBR_imports
## BP = 0.086692, df = 2, p-value = 0.9576
resettest(GBR_consumption)
## 
##  RESET test
## 
## data:  GBR_consumption
## RESET = 0.96057, df1 = 2, df2 = 50, p-value = 0.3896
resettest(GBR_investment)
## 
##  RESET test
## 
## data:  GBR_investment
## RESET = 0.77028, df1 = 2, df2 = 49, p-value = 0.4684
resettest(GBR_deflator)
## 
##  RESET test
## 
## data:  GBR_deflator
## RESET = 4.0189, df1 = 2, df2 = 50, p-value = 0.02407
resettest(GBR_exportdeflator)
## 
##  RESET test
## 
## data:  GBR_exportdeflator
## RESET = 13.48, df1 = 2, df2 = 50, p-value = 0.00002078
resettest(GBR_exports)
## 
##  RESET test
## 
## data:  GBR_exports
## RESET = 2.0893, df1 = 2, df2 = 50, p-value = 0.1344
resettest(GBR_imports)
## 
##  RESET test
## 
## data:  GBR_imports
## RESET = 1.1267, df1 = 2, df2 = 50, p-value = 0.3322

Resultater

GBR_regtab <- matrix(c(GBR_Ceffekt, GBR_Ieffekt, GBR_Lukket, GBR_Xeffekt, GBR_Meffekt, GBR_NXeffekt, GBR_Neteffekt,GBR_Lukket_Konklusion, GBR_Def),ncol=9,byrow=TRUE)
colnames(GBR_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(GBR_regtab) <- c("GBR")
GBR_regtab <- as.table(GBR_regtab)
GBR_regtab
##     consumption        investment        Lukket neteffekt  
## GBR -0.280552719300364 0.158193849731167 -0.122358869569198
##     exports           imports netexports        neteffect         
## GBR 0.199212536911048 0       0.199212536911048 0.0768536673418502
##     Lukket konklusion Konklusion
## GBR Wage-led domestic Profit-led
GBR_smoke <- matrix(c(mean(GBR$C/GBR$R), mean(GBR$C/GBR$W), mean(GBR$I/GBR$R), GBR_CR, GBR_CW, GBR_iPS, GBR_ePULC, (1/(1-GBR_ePULC)), GBR_eXP, GBR_ePX, GBR_eMP, mean(GBR$Yf/GBR$Y), mean(GBR$X/GBR$Y), mean(GBR$rulc), (mean(GBR$X/GBR$Y)/mean(GBR$rulc))),ncol=15,byrow=TRUE)
colnames(GBR_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(GBR_smoke) <- c("GBR")
GBR_smoke <- as.table(GBR_smoke)
GBR_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## GBR  1.8063573  1.0126717  0.4640836  0.2234315  0.6755890  0.3408736
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## GBR  0.7509329  4.0149831 -0.5341795  0.2929344  0.0000000  0.9335395
##            X/Y       RULC (X/Y)/rulc
## GBR  0.2030828  0.5979027  0.3396586

Summary af regressioner

summary(GBR_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$C_dl ~ GBR$R_dl + GBR$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.022380 -0.004548 -0.001046  0.005853  0.022626 
## 
## Coefficients:
##             Estimate Std. Error t value          Pr(>|t|)    
## (Intercept) 0.007035   0.002106   3.341           0.00155 ** 
## R_dl        0.223432   0.028332   7.886 0.000000000192776 ***
## W_dl        0.675589   0.067382  10.026 0.000000000000095 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01044 on 52 degrees of freedom
## Multiple R-squared:  0.7388, Adjusted R-squared:  0.7288 
## F-statistic: 73.56 on 2 and 52 DF,  p-value: 0.0000000000000006907
summary(GBR_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$I_dl ~ GBR$PS_dl + GBR$Y_dl + L(GBR$r_dl, 
##     2))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.125619 -0.020355  0.005741  0.027394  0.073185 
## 
## Coefficients:
##              Estimate Std. Error t value       Pr(>|t|)    
## (Intercept) -0.029128   0.008369  -3.481        0.00103 ** 
## PS_dl        0.340874   0.174934   1.949        0.05686 .  
## Y_dl         2.313895   0.286514   8.076 0.000000000111 ***
## L(r_dl, 2)  -0.019910   0.012537  -1.588        0.11844    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03761 on 51 degrees of freedom
## Multiple R-squared:  0.6696, Adjusted R-squared:  0.6502 
## F-statistic: 34.46 on 3 and 51 DF,  p-value: 0.000000000002593
summary(GBR_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$P_dl ~ L(GBR$ulc_dl) + GBR$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.053276 -0.009357 -0.002046  0.009887  0.052851 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.010915   0.003115   3.504             0.000951 ***
## L(ulc_dl)   0.750933   0.052008  14.439 < 0.0000000000000002 ***
## Pm_dl       0.099363   0.041418   2.399             0.020059 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01668 on 52 degrees of freedom
## Multiple R-squared:  0.8837, Adjusted R-squared:  0.8793 
## F-statistic: 197.6 on 2 and 52 DF,  p-value: < 0.00000000000000022
summary(GBR_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$Px_dl ~ GBR$ulc_dl + GBR$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.071866 -0.006383  0.002223  0.010418  0.040183 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.003479   0.003650   0.953                0.345    
## ulc_dl      0.292934   0.060951   4.806            0.0000135 ***
## Pm_dl       0.625195   0.048540  12.880 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01955 on 52 degrees of freedom
## Multiple R-squared:  0.8866, Adjusted R-squared:  0.8822 
## F-statistic: 203.2 on 2 and 52 DF,  p-value: < 0.00000000000000022
summary(GBR_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$X_dl ~ L(GBR$dPxdPm) + GBR$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.065624 -0.017281 -0.000221  0.020893  0.073148 
## 
## Coefficients:
##              Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)  0.008105   0.007345   1.104    0.27487    
## L(dPxdPm)   -0.534180   0.135379  -3.946    0.00024 ***
## Yrw_dl       1.097751   0.214982   5.106 0.00000474 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02762 on 52 degrees of freedom
## Multiple R-squared:  0.4862, Adjusted R-squared:  0.4664 
## F-statistic:  24.6 on 2 and 52 DF,  p-value: 0.00000003029
summary(GBR_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 55
## 
## Call:
## dynlm(formula = GBR$M_dl ~ GBR$dPdPm + L(GBR$Y_dl))
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.072651 -0.015322 -0.002302  0.015976  0.056257 
## 
## Coefficients:
##              Estimate Std. Error t value          Pr(>|t|)    
## (Intercept)  0.002973   0.005365   0.554             0.582    
## dPdPm       -0.088270   0.067425  -1.309             0.196    
## L(Y_dl)      1.691852   0.173744   9.738 0.000000000000258 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02585 on 52 degrees of freedom
## Multiple R-squared:  0.6493, Adjusted R-squared:  0.6358 
## F-statistic: 48.14 on 2 and 52 DF,  p-value: 0.00000000000147

De forenede stater analyse

Test for NA værdier

USA_df[!complete.cases(USA_df),]
##             WS       WS_l         WS_dl        PS       PS_l        PS_dl
## 1960 0.6831705 -0.3810108            NA 0.3168295 -1.1493915           NA
## 1961 0.6779188 -0.3887277 -0.0077169030 0.3220812 -1.1329517  0.016439823
## 2019 0.6061193 -0.5006785  0.0009501636 0.3938807 -0.9317072 -0.001460388
## 2020 0.6149378 -0.4862342  0.0144443030 0.3850622 -0.9543504 -0.022643207
## 2021 0.5951158 -0.5189993 -0.0327651816 0.4048842 -0.9041541  0.050196317
## 2022        NA         NA            NA        NA         NA           NA
##             Y      Y_l        Y_dl           Yrw    Yrw_l     Yrw_dl
## 1960  3413.79 8.135578          NA 8890010242468 29.81595         NA
## 1961  3501.22 8.160867  0.02528837 9308427119852 29.86194 0.04599193
## 2019 19972.85 9.902129  0.02306594            NA       NA         NA
## 2020 18683.10 9.835375 -0.06675448            NA       NA         NA
## 2021 19604.87 9.883533  0.04815863            NA       NA         NA
## 2022       NA       NA          NA            NA       NA         NA
##           Tax       Yf     Yf_l       Yf_dl        C      C_l        C_dl
## 1960   44.500  3369.29 8.122457          NA  2071.63 7.636091          NA
## 1961   47.000  3454.22 8.147352  0.02489463  2114.09 7.656380  0.02028872
## 2019 1494.800 18478.05 9.824339  0.02201892 13684.59 9.524026  0.02558805
## 2020 1459.181 17223.92 9.754054 -0.07028448 12697.06 9.449126 -0.07489991
## 2021 1497.590 18107.28 9.804069  0.05001501 13776.67 9.530732  0.08160611
## 2022       NA       NA       NA          NA       NA       NA          NA
##              W      W_l        W_dl        R      R_l        R_dl       It
## 1960  2301.800 7.741446          NA 1067.490 6.973066          NA  560.521
## 1961  2341.681 7.758624  0.01717773 1112.539 7.014400  0.04133446  569.119
## 2019 11199.903 9.323660  0.02296908 7278.147 8.892632  0.02055853 4157.039
## 2020 10591.639 9.267820 -0.05584018 6632.280 8.799704 -0.09292769 3891.542
## 2021 10775.928 9.285070  0.01724983 7331.352 8.899915  0.10021133 3943.540
## 2022        NA       NA          NA       NA       NA          NA       NA
##          It_l       It_dl   Itcurr Itcurr_l   Itcurr_dl      Ipr    Ipr_l
## 1960 6.328867          NA  119.200 4.780803          NA   83.200 4.421247
## 1961 6.344090  0.01522284  123.500 4.816241  0.03543840   83.600 4.426044
## 2019 8.332558  0.01782556 4410.100 8.391653  0.03444043 3675.600 8.209472
## 2020 8.266561 -0.06599756 3970.071 8.286539 -0.10511339 3129.617 8.048666
## 2021 8.279834  0.01327332 4123.396 8.324432  0.03789312 3335.047 8.112242
## 2022       NA          NA       NA       NA          NA       NA       NA
##            Ipr_dl       Ips      Ips_l       Ips_dl         I      I_l
## 1960           NA 0.6979866 -0.3595554           NA  391.2361 5.969311
## 1961  0.004796172 0.6769231 -0.3901976 -0.030642229  385.2498 5.953892
## 2019  0.028142894 0.8334505 -0.1821810 -0.006297535 3464.6862 8.150377
## 2020 -0.160805752 0.7883025 -0.2378733 -0.055692366 3067.7124 8.028687
## 2021  0.063576139 0.8088107 -0.2121903  0.025683022 3189.5775 8.067644
## 2022           NA        NA         NA           NA        NA       NA
##             I_dl        r      r_l        r_dl         P      P_l
## 1960          NA       NA       NA          NA  15.88852 2.765597
## 1961 -0.01541939 2.828075 1.778511          NA  16.05724 2.776160
## 2019  0.01152802 0.389249 1.247666 -0.02091865 107.28415 4.675481
## 2020 -0.12168993       NA       NA          NA 106.62775 4.669344
## 2021  0.03895634       NA       NA          NA 108.22783 4.684239
## 2022          NA       NA       NA          NA        NA       NA
##              P_dl        Pm     Pm_l        Pm_dl        Px     Px_l
## 1960           NA  18.73518 2.930403           NA  25.07232 3.221764
## 1961  0.010562954  18.77792 2.932681  0.002278496  25.49399 3.238443
## 2019  0.017289302  99.99624 4.605133 -0.013687151 103.65564 4.641074
## 2020 -0.006137171  98.20450 4.587052 -0.018080569 102.12262 4.626174
## 2021  0.014894789 100.02816 4.605452  0.018399712 103.70365 4.641537
## 2022           NA        NA       NA           NA        NA       NA
##             Px_dl        X      X_l         X_dl        M      M_l
## 1960           NA  107.688 4.679238           NA  121.696 4.801526
## 1961  0.016678540  108.261 4.684545  0.005306821  120.887 4.794856
## 2019 -0.002393014 2415.981 7.789861  0.000000000 3136.218 8.050773
## 2020 -0.014899937 2091.484 7.645629 -0.144231554 2732.847 7.913099
## 2021  0.015362986 2306.555 7.743510  0.097881208 3092.839 8.036845
## 2022           NA       NA       NA           NA       NA       NA
##              M_dl      rulc     rulc_l        rulc_dl      ulc    ulc_l
## 1960           NA 0.6742651 -0.3941319             NA 10.71307 2.371465
## 1961 -0.006669907 0.6688185 -0.4022425 -0.00811063881 10.73938 2.373917
## 2019  0.009741133 0.5607564 -0.5784688 -0.00009685623 60.16027 4.097012
## 2020 -0.137673692 0.5669101 -0.5675545  0.01091429856 60.44835 4.101789
## 2021  0.123745516 0.5496557 -0.5984633 -0.03090880441 59.48804 4.085775
## 2022           NA        NA         NA             NA       NA       NA
##            ulc_dl       Tau    Tau_l       Tau_dl       dPxdPm
## 1960           NA  52.03706 3.951956           NA           NA
## 1961  0.002452315  52.90290 3.968458  0.016501927  0.014400044
## 2019  0.017192446 102.74226 4.632224  0.008336292  0.011294137
## 2020  0.004777128  99.44046 4.599559 -0.032664482  0.003180632
## 2021 -0.016014016 102.60602 4.630897  0.031337576 -0.003036725
## 2022           NA        NA       NA           NA           NA
##             dPdPm      Trade
## 1960           NA 0.06719335
## 1961  0.008284458 0.06544804
## 2019  0.030976453 0.27798732
## 2020  0.011943398 0.25821898
## 2021 -0.003504923 0.27541085
## 2022           NA         NA
USA <- USA_df[3:59,]
USA[!complete.cases(USA),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
USA %>% head()
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1962 0.6716970 -0.3979480 -0.009220267 0.3283030 -1.113818  0.019133474
## 1963 0.6684577 -0.4027822 -0.004834198 0.3315423 -1.104000  0.009818379
## 1964 0.6647163 -0.4083949 -0.005612715 0.3352837 -1.092778  0.011221495
## 1965 0.6559498 -0.4216709 -0.013276034 0.3440502 -1.066968  0.025810470
## 1966 0.6545491 -0.4238087 -0.002137726 0.3454509 -1.062905  0.004063068
## 1967 0.6628483 -0.4112091  0.012599554 0.3371517 -1.087222 -0.024317543
##            Y      Y_l       Y_dl            Yrw    Yrw_l     Yrw_dl  Tax
## 1962 3715.79 8.220347 0.05947983  9857985551658 29.91930 0.05736171 50.4
## 1963 3877.58 8.262967 0.04261994 10397353895289 29.97257 0.05326950 53.4
## 1964 4101.05 8.318998 0.05603179 11076704480468 30.03587 0.06329287 57.3
## 1965 4367.55 8.381957 0.06295917 11689708297532 30.08973 0.05386461 60.7
## 1966 4655.63 8.445833 0.06387503 12403784248097 30.14902 0.05929279 63.2
## 1967 4783.28 8.472882 0.02704926 12981685156702 30.19456 0.04553792 67.9
##           Yf     Yf_l      Yf_dl       C      C_l       C_dl        W
## 1962 3665.39 8.206690 0.05933807 2218.68 7.704668 0.04828796 2462.031
## 1963 3824.18 8.249099 0.04240932 2310.18 7.745081 0.04041302 2556.302
## 1964 4043.75 8.304928 0.05582841 2447.65 7.802884 0.05780294 2687.947
## 1965 4306.85 8.367962 0.06303430 2602.94 7.864397 0.06151319 2825.078
## 1966 4592.43 8.432165 0.06420252 2750.60 7.919574 0.05517749 3005.971
## 1967 4715.38 8.458585 0.02642021 2832.83 7.949031 0.02945714 3125.582
##           W_l       W_dl        R      R_l        R_dl      It     It_l
## 1962 7.808742 0.05011780 1203.359 7.092872 0.078471544 615.746 6.422835
## 1963 7.846317 0.03757513 1267.878 7.145100 0.052227703 664.523 6.499069
## 1964 7.896533 0.05021570 1355.803 7.212149 0.067049909 726.693 6.588504
## 1965 7.946291 0.04975826 1481.772 7.300994 0.088844769 797.130 6.681018
## 1966 8.008356 0.06206479 1586.459 7.369260 0.068265586 841.442 6.735117
## 1967 8.047376 0.03901976 1589.798 7.371362 0.002102668 832.018 6.723854
##            It_dl Itcurr Itcurr_l  Itcurr_dl   Ipr    Ipr_l     Ipr_dl
## 1962  0.07874499  133.5 4.894101 0.07786032  90.9 4.509760 0.08371648
## 1963  0.07623495  142.1 4.956531 0.06242956  97.7 4.581902 0.07214156
## 1964  0.08943461  153.7 5.035003 0.07847162 107.3 4.675629 0.09372709
## 1965  0.09251367  168.3 5.125748 0.09074545 120.4 4.790820 0.11519088
## 1966  0.05409931  184.2 5.216022 0.09027402 130.6 4.872139 0.08131968
## 1967 -0.01126301  190.5 5.249652 0.03363007 132.8 4.888844 0.01670502
##            Ips      Ips_l       Ips_dl        I      I_l        I_dl
## 1962 0.6808989 -0.3843415  0.005856159 419.2608 6.038493  0.08460115
## 1963 0.6875440 -0.3746295  0.009712001 456.8888 6.124440  0.08594695
## 1964 0.6981132 -0.3593740  0.015255475 507.3140 6.229130  0.10469009
## 1965 0.7153892 -0.3349286  0.024445433 570.2582 6.346089  0.11695910
## 1966 0.7090119 -0.3438829 -0.008954339 596.5924 6.391234  0.04514497
## 1967 0.6971129 -0.3608080 -0.016925051 580.0104 6.363046 -0.02818806
##             r      r_l        r_dl        P      P_l       P_dl       Pm
## 1962 2.692746 1.755390 -0.02312086 16.25226 2.788232 0.01207233 18.56688
## 1963 2.818047 1.776816  0.02142580 16.44067 2.799758 0.01152615 18.87937
## 1964 2.569107 1.733789 -0.04302720 16.69086 2.814861 0.01510334 19.29658
## 1965 2.320686 1.688922 -0.04486625 16.99579 2.832966 0.01810429 19.55401
## 1966 1.801658 1.588136 -0.10078662 17.47132 2.860561 0.02759506 20.05213
## 1967 1.916802 1.611388  0.02325213 17.97930 2.889221 0.02866003 20.09978
##          Pm_l        Pm_dl       Px     Px_l        Px_dl       X      X_l
## 1962 2.921380 -0.011301962 25.59419 3.242365  0.003922486 113.698 4.733546
## 1963 2.938070  0.016690128 25.53254 3.239954 -0.002411366 121.805 4.802421
## 1964 2.959928  0.021858053 25.69594 3.246333  0.006378958 136.208 4.914183
## 1965 2.973180  0.013252520 26.49552 3.276976  0.030642841 140.024 4.941814
## 1966 2.998335  0.025154936 27.32908 3.307951  0.030975549 149.657 5.008346
## 1967 3.000709  0.002373841 28.41442 3.346897  0.038945594 153.091 5.031033
##            X_dl       M      M_l       M_dl      rulc     rulc_l
## 1962 0.04900083 134.648 4.902664 0.10780774 0.6625862 -0.4116046
## 1963 0.06887559 138.246 4.929035 0.02637074 0.6592520 -0.4166494
## 1964 0.11176172 145.622 4.981014 0.05197952 0.6554289 -0.4224655
## 1965 0.02763071 161.092 5.081976 0.10096141 0.6468335 -0.4356664
## 1966 0.06653217 185.018 5.220453 0.13847749 0.6456636 -0.4374766
## 1967 0.02268651 198.510 5.290839 0.07038636 0.6534390 -0.4255061
##           rulc_dl      ulc    ulc_l      ulc_dl      Tau    Tau_l
## 1962 -0.009362025 10.76852 2.376627 0.002710305 55.05524 4.008337
## 1963 -0.005044815 10.83855 2.383109 0.006481340 56.79073 4.039373
## 1964 -0.005816092 10.93967 2.392396 0.009287245 58.47186 4.068546
## 1965 -0.013200908 10.99345 2.397299 0.004903384 60.40284 4.101036
## 1966 -0.001810237 11.28060 2.423084 0.025784824 62.03388 4.127681
## 1967  0.011970501 11.74837 2.463715 0.040630535 62.10106 4.128763
##           Tau_dl       dPxdPm        dPdPm      Trade
## 1962 0.039879007  0.015224448  0.023374292 0.06683532
## 1963 0.031036033 -0.019101494 -0.005163973 0.06706528
## 1964 0.029172464 -0.015479096 -0.006754717 0.06872143
## 1965 0.032490521  0.017390321  0.004851772 0.06894392
## 1966 0.026644594  0.005820613  0.002440125 0.07188608
## 1967 0.001082382  0.036571753  0.026286193 0.07350626

DATA

USA %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l         PS_dl
## 1962 0.6716970 -0.3979480 -0.0092202673 0.3283030 -1.1138182  0.0191334739
## 1963 0.6684577 -0.4027822 -0.0048341978 0.3315423 -1.1039998  0.0098183792
## 1964 0.6647163 -0.4083949 -0.0056127150 0.3352837 -1.0927783  0.0112214948
## 1965 0.6559498 -0.4216709 -0.0132760345 0.3440502 -1.0669678  0.0258104697
## 1966 0.6545491 -0.4238087 -0.0021377255 0.3454509 -1.0629048  0.0040630683
## 1967 0.6628483 -0.4112091  0.0125995539 0.3371517 -1.0872223 -0.0243175429
## 1968 0.6668813 -0.4051432  0.0060658955 0.3331187 -1.0992564 -0.0120340586
## 1969 0.6789211 -0.3872503  0.0178928989 0.3210789 -1.1360685 -0.0368120941
## 1970 0.6874078 -0.3748276  0.0124227178 0.3125922 -1.1628557 -0.0267872636
## 1971 0.6770281 -0.3900425 -0.0152148640 0.3229719 -1.1301900  0.0326657085
## 1972 0.6748367 -0.3932846 -0.0032420992 0.3251633 -1.1234277  0.0067623124
## 1973 0.6712451 -0.3986210 -0.0053364316 0.3287549 -1.1124426  0.0109850552
## 1974 0.6770519 -0.3900074  0.0086136425 0.3229481 -1.1302636 -0.0178209742
## 1975 0.6623764 -0.4119213 -0.0219138987 0.3376236 -1.0858237  0.0444399196
## 1976 0.6558083 -0.4218867 -0.0099654274 0.3441917 -1.0665566  0.0192670564
## 1977 0.6548050 -0.4234178 -0.0015311109 0.3451950 -1.0636458  0.0029108417
## 1978 0.6518857 -0.4278860 -0.0044682186 0.3481143 -1.0552244  0.0084213563
## 1979 0.6525488 -0.4268693  0.0010167272 0.3474512 -1.0571312 -0.0019067284
## 1980 0.6612833 -0.4135729  0.0132963420 0.3387167 -1.0825912 -0.0254600201
## 1981 0.6532723 -0.4257613 -0.0121883111 0.3467277 -1.0592155  0.0233757007
## 1982 0.6616859 -0.4129643  0.0127969375 0.3383141 -1.0837805 -0.0245650027
## 1983 0.6477897 -0.4341892 -0.0212248858 0.3522103 -1.0435268  0.0402537223
## 1984 0.6407926 -0.4450495 -0.0108602937 0.3592074 -1.0238552  0.0196715572
## 1985 0.6403206 -0.4457863 -0.0007367905 0.3596794 -1.0225422  0.0013130191
## 1986 0.6447276 -0.4389273  0.0068589756 0.3552724 -1.0348706 -0.0123283725
## 1987 0.6516154 -0.4283007  0.0106266217 0.3483846 -1.0544484 -0.0195778053
## 1988 0.6549949 -0.4231279  0.0051728117 0.3450051 -1.0641960 -0.0097476032
## 1989 0.6470110 -0.4353920 -0.0122641139 0.3529890 -1.0413184  0.0228776196
## 1990 0.6517638 -0.4280730  0.0073190149 0.3482362 -1.0548744 -0.0135560674
## 1991 0.6561075 -0.4214306  0.0066423978 0.3438925 -1.0674263 -0.0125518347
## 1992 0.6563138 -0.4211162  0.0003143472 0.3436862 -1.0680263 -0.0006000128
## 1993 0.6501969 -0.4304800 -0.0093637895 0.3498031 -1.0503849  0.0176413964
## 1994 0.6430158 -0.4415860 -0.0111059997 0.3569842 -1.0300637  0.0203211997
## 1995 0.6403374 -0.4457601 -0.0041740887 0.3596626 -1.0225888  0.0074748767
## 1996 0.6362153 -0.4522182 -0.0064580637 0.3637847 -1.0111932  0.0113956045
## 1997 0.6371208 -0.4507960  0.0014221981 0.3628792 -1.0136853 -0.0024921248
## 1998 0.6469782 -0.4354427  0.0153533200 0.3530218 -1.0412255 -0.0275401806
## 1999 0.6460450 -0.4368861 -0.0014434066 0.3539550 -1.0385856  0.0026399158
## 2000 0.6558906 -0.4217612  0.0151248162 0.3441094 -1.0667957 -0.0282101039
## 2001 0.6548973 -0.4232768 -0.0015155360 0.3451027 -1.0639133  0.0028823457
## 2002 0.6451353 -0.4382953 -0.0150184856 0.3548647 -1.0360186  0.0278947565
## 2003 0.6394713 -0.4471135 -0.0088182496 0.3605287 -1.0201837  0.0158348460
## 2004 0.6354760 -0.4533809 -0.0062673852 0.3645240 -1.0091630  0.0110207732
## 2005 0.6259076 -0.4685525 -0.0151716152 0.3740924 -0.9832525  0.0259105152
## 2006 0.6255380 -0.4691433 -0.0005907584 0.3744620 -0.9822648  0.0009876397
## 2007 0.6282584 -0.4648038  0.0043394725 0.3717416 -0.9895562 -0.0072913470
## 2008 0.6297207 -0.4624789  0.0023248808 0.3702793 -0.9934976 -0.0039414705
## 2009 0.6176715 -0.4817986 -0.0193196451 0.3823285 -0.9614750  0.0320226305
## 2010 0.6077360 -0.4980147 -0.0162161207 0.3922640 -0.9358202  0.0256547916
## 2011 0.6070107 -0.4992089 -0.0011942376 0.3929893 -0.9339728  0.0018474247
## 2012 0.6058292 -0.5011572 -0.0019483008 0.3941708 -0.9309709  0.0030019021
## 2013 0.6022416 -0.5070966 -0.0059393998 0.3977584 -0.9219104  0.0090604597
## 2014 0.6030915 -0.5056863  0.0014102959 0.3969085 -0.9240495 -0.0021391058
## 2015 0.6076630 -0.4981349  0.0075514710 0.3923370 -0.9356341 -0.0115845274
## 2016 0.6075571 -0.4983091 -0.0001742713 0.3924429 -0.9353642  0.0002698565
## 2017 0.6080964 -0.4974218  0.0008873335 0.3919036 -0.9367395 -0.0013752725
## 2018 0.6055437 -0.5016286 -0.0042068218 0.3944563 -0.9302468  0.0064926732
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1962  3715.79 8.220347  0.059479828  9857985551658 29.91930  0.0573617109
## 1963  3877.58 8.262967  0.042619941 10397353895289 29.97257  0.0532694980
## 1964  4101.05 8.318998  0.056031791 11076704480468 30.03587  0.0632928669
## 1965  4367.55 8.381957  0.062959173 11689708297532 30.08973  0.0538646145
## 1966  4655.63 8.445833  0.063875029 12403784248097 30.14902  0.0592927853
## 1967  4783.28 8.472882  0.027049264 12981685156702 30.19456  0.0455379227
## 1968  5018.37 8.520860  0.047978676 13798330135653 30.25557  0.0610080502
## 1969  5175.24 8.551641  0.030780535 14600020821203 30.31204  0.0564753746
## 1970  5184.87 8.553500  0.001859054 14975481714557 30.33744  0.0253913566
## 1971  5355.56 8.585891  0.032390505 15574778643648 30.37667  0.0392385409
## 1972  5637.25 8.637152  0.051261084 16453905652046 30.43158  0.0549100224
## 1973  5955.49 8.692069  0.054917125 17500802298438 30.49327  0.0616838508
## 1974  5923.34 8.686656 -0.005413004 17707458422176 30.50501  0.0117392051
## 1975  5911.09 8.684586 -0.002070231 17683974212249 30.50368 -0.0013271129
## 1976  6229.64 8.737074  0.052488299 18572308919457 30.55269  0.0490128859
## 1977  6517.71 8.782278  0.045204541 19305516610142 30.59141  0.0387191862
## 1978  6878.46 8.836150  0.053871702 20105384307117 30.63201  0.0405967654
## 1979  7096.28 8.867326  0.031175913 20937973767138 30.67259  0.0405767818
## 1980  7078.06 8.864755 -0.002570844 21250225320104 30.68739  0.0148030616
## 1981  7257.65 8.889811  0.025056226 21674356589551 30.70715  0.0197623392
## 1982  7126.85 8.871625 -0.018186743 21658492203609 30.70642 -0.0007322106
## 1983  7453.47 8.916435  0.044810354 22246019917576 30.73318  0.0267654854
## 1984  7992.87 8.986305  0.069870199 23257901179454 30.77767  0.0444817975
## 1985  8326.18 9.027160  0.040854873 24094796735296 30.81302  0.0353510041
## 1986  8614.47 9.061199  0.034038580 24876026027446 30.84493  0.0319086154
## 1987  8912.49 9.095209  0.034010316 25745609904472 30.87929  0.0343595939
## 1988  9284.76 9.136130  0.040920683 26993102364775 30.92660  0.0473172420
## 1989  9625.72 9.172194  0.036064336 28048948591931 30.96497  0.0383697825
## 1990  9807.30 9.190882  0.018688324 28940199000875 30.99625  0.0312804496
## 1991  9796.73 9.189804 -0.001078350 29389720940893 31.01167  0.0154133878
## 1992 10141.77 9.224418  0.034613883 30009058230314 31.03252  0.0208542917
## 1993 10420.95 9.251573  0.027155664 30379603602611 31.04479  0.0122721720
## 1994 10840.76 9.291068  0.039494901 31344830467265 31.07607  0.0312779070
## 1995 11131.77 9.317558  0.026490078 32256011089571 31.10473  0.0286550601
## 1996 11551.79 9.354596  0.037037221 33215674136321 31.13404  0.0293174608
## 1997 12065.43 9.398100  0.043503935 34327940218293 31.16698  0.0329377292
## 1998 12606.19 9.441943  0.043843624 35257832812352 31.19371  0.0267281058
## 1999 13205.38 9.488380  0.046436359 36403468465637 31.22569  0.0319763456
## 2000 13750.44 9.528826  0.040446501 37867472273283 31.26511  0.0394284346
## 2001 13887.72 9.538760  0.009934173 38436293570727 31.28002  0.0149096661
## 2002 14129.62 9.556029  0.017268307 39016923368455 31.29502  0.0149933262
## 2003 14533.83 9.584234  0.028205732 39870466114403 31.31666  0.0216403676
## 2004 15086.00 9.621522  0.037288126 41187742550339 31.34916  0.0325048490
## 2005 15615.98 9.656050  0.034527588 42365730203911 31.37736  0.0281990843
## 2006 16061.86 9.684203  0.028152769 43685839477319 31.40805  0.0306842246
## 2007 16363.13 9.702786  0.018583116 44901425650169 31.43549  0.0274455357
## 2008 16340.83 9.701422 -0.001363749 45076599704656 31.43938  0.0038937124
## 2009 15926.25 9.675724 -0.025698192 43584963497081 31.40573 -0.0336510414
## 2010 16334.65 9.701044  0.025319927 44861323740621 31.43460  0.0288638200
## 2011 16587.96 9.716432  0.015388513 45689238834427 31.45288  0.0182867592
## 2012 16961.07 9.738676  0.022243587 46284632700319 31.46583  0.0129472028
## 2013 17273.55 9.756932  0.018255712 46952839013791 31.48016  0.0143336738
## 2014 17709.80 9.781873  0.024941729 47900453546908 31.50015  0.0199813003
## 2015 18224.80 9.810539  0.028665145 49005691393054 31.52296  0.0228114693
## 2016 18523.35 9.826787  0.016248794 49841543840822 31.53987  0.0169124077
## 2017 18962.32 9.850209  0.023421754 50988668991365 31.56262  0.0227545815
## 2018 19517.43 9.879063  0.028854060 52129802672307 31.58476  0.0221333821
##         Tax       Yf     Yf_l        Yf_dl        C      C_l         C_dl
## 1962   50.4  3665.39 8.206690  0.059338070  2218.68 7.704668  0.048287965
## 1963   53.4  3824.18 8.249099  0.042409324  2310.18 7.745081  0.040413019
## 1964   57.3  4043.75 8.304928  0.055828414  2447.65 7.802884  0.057802937
## 1965   60.7  4306.85 8.367962  0.063034299  2602.94 7.864397  0.061513195
## 1966   63.2  4592.43 8.432165  0.064202517  2750.60 7.919574  0.055177494
## 1967   67.9  4715.38 8.458585  0.026420211  2832.83 7.949031  0.029457142
## 1968   76.4  4941.97 8.505519  0.046934530  2996.06 8.005053  0.056021880
## 1969   83.9  5091.34 8.535296  0.029777020  3107.76 8.041657  0.036604117
## 1970   91.4  5093.47 8.535715  0.000418270  3180.92 8.064926  0.023268254
## 1971  100.5  5255.06 8.566947  0.031232095  3302.41 8.102408  0.037482042
## 1972  107.9  5529.35 8.617826  0.050878846  3504.59 8.161829  0.059421033
## 1973  117.2  5838.29 8.672193  0.054367678  3678.12 8.210157  0.048328214
## 1974  124.9  5798.44 8.665344 -0.006849030  3647.31 8.201745 -0.008411842
## 1975  135.3  5775.79 8.661430 -0.003913872  3729.95 8.224150  0.022404919
## 1976  146.4  6083.24 8.713293  0.051862405  3937.90 8.278403  0.054252758
## 1977  159.7  6358.01 8.757471  0.044177987  4104.32 8.319795  0.041392491
## 1978  170.9  6707.56 8.810991  0.053519813  4283.92 8.362624  0.042828401
## 1979  180.1  6916.18 8.841619  0.030628346  4385.73 8.386111  0.023487610
## 1980  200.3  6877.76 8.836048 -0.005570577  4372.03 8.382983 -0.003128656
## 1981  235.6  7022.05 8.856810  0.020762181  4432.62 8.396746  0.013763399
## 1982  240.9  6885.95 8.837238 -0.019572094  4497.54 8.411286  0.014539749
## 1983  263.3  7190.17 8.880470  0.043231712  4752.16 8.466355  0.055068671
## 1984  289.8  7703.07 8.949374  0.068904135  5002.15 8.517623  0.051268568
## 1985  308.1  8018.08 8.989454  0.040080041  5261.11 8.568097  0.050474211
## 1986  323.4  8291.07 9.022934  0.033480040  5478.33 8.608556  0.040458279
## 1987  347.5  8564.99 9.055438  0.032503932  5664.33 8.641944  0.033388307
## 1988  374.5  8910.26 9.094959  0.039520458  5900.92 8.682864  0.040919654
## 1989  398.9  9226.82 9.129870  0.034911039  6073.01 8.711610  0.028746093
## 1990  425.0  9382.30 9.146580  0.016710475  6195.32 8.731549  0.019939805
## 1991  457.1  9339.63 9.142022 -0.004558299  6206.45 8.733344  0.001794906
## 1992  483.4  9658.37 9.175580  0.033558260  6434.90 8.769492  0.036147227
## 1993  503.1  9917.85 9.202091  0.026511267  6659.03 8.803729  0.034237527
## 1994  545.2 10295.56 9.239468  0.037376570  6917.05 8.841745  0.038015550
## 1995  557.9 10573.87 9.266141  0.026673129  7121.19 8.870830  0.029085468
## 1996  580.8 10970.99 9.303010  0.036868653  7368.29 8.904941  0.034110811
## 1997  611.6 11453.83 9.346079  0.043069656  7645.69 8.941897  0.036956433
## 1998  639.5 11966.69 9.389882  0.043802785  8051.80 8.993651  0.051753579
## 1999  673.6 12531.78 9.436023  0.046140861  8475.93 9.044986  0.051334713
## 2000  708.6 13041.84 9.475918  0.039894833  8906.66 9.094555  0.049568930
## 2001  727.7 13160.02 9.484939  0.009020795  9130.99 9.119429  0.024874811
## 2002  760.0 13369.62 9.500740  0.015801523  9365.53 9.144791  0.025361806
## 2003  805.6 13728.23 9.527210  0.026469328  9663.12 9.176072  0.031280649
## 2004  868.1 14217.90 9.562257  0.035047437 10025.64 9.212901  0.036829234
## 2005  942.4 14673.58 9.593804  0.031546864 10382.80 9.247906  0.035004779
## 2006  997.0 15064.86 9.620120  0.026316282 10700.79 9.278073  0.030166980
## 2007 1036.8 15326.33 9.637328  0.017207385 10938.62 9.300055  0.021982076
## 2008 1049.7 15291.13 9.635028 -0.002299343 10915.44 9.297934 -0.002121346
## 2009 1026.8 14899.45 9.609080 -0.025948622 10778.59 9.285317 -0.012616542
## 2010 1063.1 15271.55 9.633747  0.024667321 10967.17 9.302662  0.017344506
## 2011 1103.7 15484.26 9.647579  0.013832404 11174.08 9.321352  0.018690546
## 2012 1136.1 15824.97 9.669344  0.021765048 11342.05 9.336272  0.014920247
## 2013 1188.7 16084.85 9.685633  0.016288763 11507.03 9.350713  0.014441095
## 2014 1240.8 16469.00 9.709235  0.023601991 11847.59 9.379880  0.029166318
## 2015 1277.1 16947.70 9.737887  0.028652306 12284.30 9.416077  0.036197553
## 2016 1312.8 17210.55 9.753278  0.015390436 12620.54 9.443081  0.027003621
## 2017 1364.5 17597.82 9.775530  0.022252463 12949.67 9.468826  0.025744660
## 2018 1441.8 18075.63 9.802320  0.026789591 13338.87 9.498438  0.029612024
##              W      W_l           W_dl        R      R_l         R_dl
## 1962  2462.031 7.808742  0.05011780244 1203.359 7.092872  0.078471544
## 1963  2556.302 7.846317  0.03757512568 1267.878 7.145100  0.052227703
## 1964  2687.947 7.896533  0.05021569908 1355.803 7.212149  0.067049909
## 1965  2825.078 7.946291  0.04975826472 1481.772 7.300994  0.088844769
## 1966  3005.971 8.008356  0.06206479177 1586.459 7.369260  0.068265586
## 1967  3125.582 8.047376  0.03901976482 1589.798 7.371362  0.002102668
## 1968  3295.707 8.100376  0.05300042593 1646.263 7.406263  0.034900472
## 1969  3456.618 8.148046  0.04766991893 1634.722 7.399228 -0.007035074
## 1970  3501.291 8.160887  0.01284098777 1592.179 7.372859 -0.026368994
## 1971  3557.823 8.176904  0.01601723083 1697.237 7.436757  0.063897803
## 1972  3731.408 8.224541  0.04763674674 1797.942 7.494398  0.057641158
## 1973  3918.923 8.273572  0.04903124625 1919.367 7.559751  0.065352733
## 1974  3925.845 8.275337  0.00176461257 1872.595 7.535081 -0.024670004
## 1975  3825.747 8.249509 -0.02582777098 1950.043 7.575607  0.040526047
## 1976  3989.440 8.291406  0.04189697777 2093.800 7.646736  0.071129462
## 1977  4163.257 8.334053  0.04264687562 2194.753 7.693825  0.047088828
## 1978  4372.563 8.383105  0.04905159461 2334.997 7.755766  0.061941169
## 1979  4513.145 8.414750  0.03164507281 2403.035 7.784488  0.028721617
## 1980  4548.148 8.422475  0.00772576541 2329.612 7.753457 -0.031030597
## 1981  4587.311 8.431049  0.00857386959 2434.739 7.797595  0.044137881
## 1982  4556.336 8.424274 -0.00677515691 2329.614 7.753458 -0.044137097
## 1983  4657.718 8.446281  0.02200682586 2532.452 7.836943  0.083485434
## 1984  4936.070 8.504325  0.05804384157 2767.000 7.925519  0.088575692
## 1985  5134.142 8.543668  0.03934325049 2883.938 7.966912  0.041393060
## 1986  5345.482 8.584007  0.04033901589 2945.588 7.988064  0.021151668
## 1987  5581.080 8.627138  0.04313055397 2983.910 8.000990  0.012926127
## 1988  5836.175 8.671831  0.04469326918 3074.085 8.030763  0.029772854
## 1989  5969.854 8.694478  0.02264692479 3256.966 8.088551  0.057788658
## 1990  6115.044 8.718507  0.02402949001 3267.256 8.091706  0.003154408
## 1991  6127.802 8.720591  0.00208409915 3211.828 8.074596 -0.017110133
## 1992  6338.922 8.754464  0.03387260725 3319.448 8.107554  0.032958247
## 1993  6448.555 8.771611  0.01714747748 3469.295 8.151707  0.044152663
## 1994  6620.207 8.797882  0.02627057073 3675.353 8.209404  0.057697770
## 1995  6770.844 8.820381  0.02249904043 3803.026 8.243552  0.034148006
## 1996  6979.912 8.850792  0.03041058926 3991.078 8.291817  0.048264257
## 1997  7297.474 8.895283  0.04449185367 4156.356 8.332394  0.040577531
## 1998  7742.188 8.954440  0.05915610479 4224.502 8.348657  0.016262604
## 1999  8096.094 8.999137  0.04469745456 4435.686 8.397438  0.048780777
## 2000  8554.020 9.054157  0.05501964915 4487.820 8.409122  0.011684729
## 2001  8618.462 9.061662  0.00750525878 4541.558 8.421025  0.011903141
## 2002  8625.213 9.062445  0.00078303762 4744.407 8.464722  0.043696280
## 2003  8778.809 9.080096  0.01765107823 4949.421 8.507026  0.042304174
## 2004  9035.135 9.108876  0.02878005222 5182.765 8.553094  0.046068211
## 2005  9184.305 9.125251  0.01637524849 5489.275 8.610551  0.057457379
## 2006  9423.642 9.150977  0.02572552321 5641.218 8.637855  0.027303921
## 2007  9628.895 9.172524  0.02154685735 5697.435 8.647771  0.009916038
## 2008  9629.141 9.172549  0.00002553819 5661.989 8.641531 -0.006240813
## 2009  9202.965 9.127281 -0.04526826733 5696.485 8.647605  0.006074008
## 2010  9281.071 9.135732  0.00845120011 5990.479 8.697927  0.050322112
## 2011  9399.111 9.148370  0.01263816617 6085.149 8.713607  0.015679829
## 2012  9587.228 9.168187  0.01981674744 6237.742 8.738373  0.024766950
## 2013  9686.965 9.178536  0.01034936313 6397.885 8.763723  0.025349223
## 2014  9932.314 9.203549  0.02501228658 6536.686 8.785186  0.021462885
## 2015 10298.490 9.239753  0.03620377654 6649.210 8.802253  0.017067778
## 2016 10456.392 9.254969  0.01521616516 6754.158 8.817914  0.015660293
## 2017 10701.172 9.278109  0.02313979634 6896.648 8.838791  0.020877190
## 2018 10945.583 9.300691  0.02258276971 7130.047 8.872073  0.033282265
##            It     It_l        It_dl Itcurr Itcurr_l    Itcurr_dl    Ipr
## 1962  615.746 6.422835  0.078744990  133.5 4.894101  0.077860322   90.9
## 1963  664.523 6.499069  0.076234949  142.1 4.956531  0.062429557   97.7
## 1964  726.693 6.588504  0.089434615  153.7 5.035003  0.078471615  107.3
## 1965  797.130 6.681018  0.092513672  168.3 5.125748  0.090745451  120.4
## 1966  841.442 6.735117  0.054099310  184.2 5.216022  0.090274023  130.6
## 1967  832.018 6.723854 -0.011263012  190.5 5.249652  0.033630071  132.8
## 1968  881.125 6.781200  0.057345425  207.1 5.333202  0.083549574  147.9
## 1969  912.706 6.816414  0.035214313  223.9 5.411200  0.077997755  164.4
## 1970  883.275 6.783637 -0.032777223  227.8 5.428468  0.017268527  168.0
## 1971  892.417 6.793934  0.010296922  247.1 5.509793  0.081325062  188.6
## 1972  964.086 6.871181  0.077246990  279.7 5.633718  0.123924487  219.0
## 1973 1032.314 6.939558  0.068377661  316.6 5.757639  0.123921547  251.0
## 1974  992.021 6.899744 -0.039813887  336.7 5.819192  0.061553179  260.5
## 1975  919.603 6.823942 -0.075802221  347.9 5.851915  0.032722756  263.5
## 1976  993.466 6.901200  0.077257784  395.7 5.980656  0.128741266  306.1
## 1977 1096.080 6.999495  0.098295619  467.5 6.147399  0.166743000  374.3
## 1978 1212.847 7.100726  0.101230310  558.2 6.324717  0.177317972  452.6
## 1979 1281.966 7.156150  0.055424349  641.8 6.464277  0.139559408  521.7
## 1980 1226.938 7.112277 -0.043873202  672.3 6.510705  0.046427941  536.4
## 1981 1250.346 7.131176  0.018898678  748.7 6.618338  0.107633700  601.4
## 1982 1188.259 7.080244 -0.050931102  752.8 6.623800  0.005461219  595.9
## 1983 1274.518 7.150323  0.070078857  814.5 6.702574  0.078774840  643.3
## 1984 1465.813 7.290165  0.139841969  947.9 6.854249  0.151674583  754.7
## 1985 1568.489 7.357868  0.067702698 1027.7 6.935079  0.080829563  807.8
## 1986 1617.831 7.388842  0.030973628 1080.7 6.985364  0.050285684  842.6
## 1987 1646.436 7.406368  0.017526589 1119.6 7.020727  0.035362499  865.0
## 1988 1684.501 7.429225  0.022856426 1176.9 7.070639  0.049912384  918.5
## 1989 1733.866 7.458109  0.028884220 1242.4 7.124800  0.054161130  972.0
## 1990 1732.048 7.457060 -0.001049074 1269.3 7.146221  0.021420575  978.9
## 1991 1660.913 7.415123 -0.041937072 1238.8 7.121898 -0.024322398  944.7
## 1992 1729.011 7.455305  0.040182118 1292.8 7.164566  0.042667240  996.7
## 1993 1817.104 7.504999  0.049694456 1377.9 7.228316  0.063750192 1086.0
## 1994 1928.034 7.564256  0.059256806 1486.9 7.304449  0.076132815 1192.7
## 1995 2027.439 7.614529  0.050272589 1594.0 7.374002  0.069553165 1286.3
## 1996 2182.624 7.688283  0.073754402 1721.3 7.450835  0.076833239 1401.3
## 1997 2339.361 7.757633  0.069349992 1851.3 7.523643  0.072808276 1524.7
## 1998 2556.775 7.846502  0.088868884 2017.0 7.609367  0.085723164 1673.0
## 1999 2769.612 7.926463  0.079960539 2194.7 7.693801  0.084434104 1826.2
## 2000 2946.800 7.988475  0.062012598 2372.8 7.771826  0.078025329 1983.9
## 2001 2934.331 7.984235 -0.004240347 2385.0 7.776954  0.005128432 1973.1
## 2002 2884.574 7.967133 -0.017102260 2354.1 7.763914 -0.013040636 1910.4
## 2003 3006.713 8.008603  0.041470227 2477.2 7.814884  0.050970401 2013.0
## 2004 3186.994 8.066833  0.058230697 2703.4 7.902266  0.087381350 2217.2
## 2005 3380.233 8.125700  0.058866489 2990.5 8.003196  0.100930357 2477.2
## 2006 3470.545 8.152067  0.026367000 3182.9 8.065548  0.062352133 2632.0
## 2007 3450.197 8.146187 -0.005880311 3231.1 8.080578  0.015029906 2639.1
## 2008 3304.491 8.103038 -0.043148878 3136.5 8.050863 -0.029715108 2506.9
## 2009 2889.650 7.968891 -0.134147065 2723.3 7.909600 -0.141263148 2080.4
## 2010 2954.433 7.991062  0.022171367 2756.1 7.921572  0.011972257 2111.6
## 2011 3089.993 8.035924  0.044862071 2922.9 7.980332  0.058759637 2286.3
## 2012 3302.527 8.102443  0.066519107 3171.5 8.061960  0.081628388 2550.5
## 2013 3420.508 8.137544  0.035101145 3321.9 8.108292  0.046332246 2721.5
## 2014 3595.991 8.187575  0.050030536 3562.8 8.178302  0.070009844 2960.2
## 2015 3712.200 8.219380  0.031805079 3712.2 8.219380  0.041077940 3091.2
## 2016 3782.592 8.238165  0.018784796 3786.8 8.239277  0.019896642 3151.6
## 2017 3921.490 8.274227  0.036062195 3995.3 8.292874  0.053597335 3340.5
## 2018 4083.594 8.314733  0.040505799 4260.8 8.357212  0.064338266 3573.6
##         Ipr_l       Ipr_dl       Ips      Ips_l        Ips_dl         I
## 1962 4.509760  0.083716481 0.6808989 -0.3843415  0.0058561593  419.2608
## 1963 4.581902  0.072141558 0.6875440 -0.3746295  0.0097120006  456.8888
## 1964 4.675629  0.093727091 0.6981132 -0.3593740  0.0152554751  507.3140
## 1965 4.790820  0.115190883 0.7153892 -0.3349286  0.0244454326  570.2582
## 1966 4.872139  0.081319684 0.7090119 -0.3438829 -0.0089543387  596.5924
## 1967 4.888844  0.016705020 0.6971129 -0.3608080 -0.0169250505  580.0104
## 1968 4.996536  0.107692133 0.7141478 -0.3366654  0.0241425588  629.2534
## 1969 5.102302  0.105766113 0.7342564 -0.3088970  0.0277683577  670.1602
## 1970 5.123964  0.021661497 0.7374890 -0.3045041  0.0043929694  651.4056
## 1971 5.239628  0.115664391 0.7632537 -0.2701647  0.0343393288  681.1406
## 1972 5.389072  0.149443360 0.7829818 -0.2446459  0.0255188724  754.8618
## 1973 5.525453  0.136381209 0.7927985 -0.2321862  0.0124596621  818.4170
## 1974 5.562603  0.037149922 0.7736858 -0.2565895 -0.0244032567  767.5125
## 1975 5.574053  0.011450507 0.7574016 -0.2778617 -0.0212722492  696.5087
## 1976 5.723912  0.149858478 0.7735658 -0.2567445  0.0211172117  768.5114
## 1977 5.925058  0.201145769 0.8006417 -0.2223417  0.0344027686  877.5674
## 1978 6.115009  0.189951118 0.8108205 -0.2097086  0.0126331459  983.4012
## 1979 6.257093  0.142083977 0.8128701 -0.2071840  0.0025245693 1042.0718
## 1980 6.284880  0.027787441 0.7978581 -0.2258245 -0.0186404994  978.9224
## 1981 6.399260  0.114380119 0.8032590 -0.2190781  0.0067464194 1004.3517
## 1982 6.390073 -0.009187403 0.7915781 -0.2337267 -0.0146486218  940.5998
## 1983 6.466611  0.076538311 0.7898097 -0.2359632 -0.0022365291 1006.6267
## 1984 6.626320  0.159709141 0.7961810 -0.2279287  0.0080345575 1167.0525
## 1985 6.694315  0.067994184 0.7860271 -0.2407641 -0.0128353793 1232.8748
## 1986 6.736492  0.042177846 0.7796798 -0.2488719 -0.0081078373 1261.3902
## 1987 6.762730  0.026237157 0.7725974 -0.2579973 -0.0091253419 1272.0321
## 1988 6.822742  0.060012398 0.7804401 -0.2478972  0.0101000135 1314.6522
## 1989 6.879356  0.056613900 0.7823567 -0.2454445  0.0024527699 1356.5017
## 1990 6.886429  0.007073688 0.7712125 -0.2597914 -0.0143468868 1335.7770
## 1991 6.850867 -0.035562075 0.7625928 -0.2710310 -0.0112396772 1266.6003
## 1992 6.904450  0.053582405 0.7709623 -0.2601159  0.0109151655 1333.0022
## 1993 6.990257  0.085806679 0.7881559 -0.2380594  0.0220564863 1432.1612
## 1994 7.083975  0.093718423 0.8021387 -0.2204738  0.0175856084 1546.5506
## 1995 7.159525  0.075550236 0.8069636 -0.2144767  0.0059970709 1636.0695
## 1996 7.245156  0.085630497 0.8140940 -0.2056794  0.0087972582 1776.8611
## 1997 7.329553  0.084397292 0.8235834 -0.1940904  0.0115890165 1926.6590
## 1998 7.422374  0.092820753 0.8294497 -0.1869928  0.0070975886 2120.7162
## 1999 7.509993  0.087618883 0.8320955 -0.1838081  0.0031847792 2304.5817
## 2000 7.592820  0.082827299 0.8361008 -0.1790061  0.0048019697 2463.8219
## 2001 7.587361 -0.005458694 0.8272956 -0.1895932 -0.0105871263 2427.5591
## 2002 7.555068 -0.032293266 0.8115203 -0.2088458 -0.0192526303 2340.8904
## 2003 7.607381  0.052313502 0.8126110 -0.2075027  0.0013431012 2443.2881
## 2004 7.704000  0.096618992 0.8201524 -0.1982651  0.0092376419 2613.8208
## 2005 7.814884  0.110883752 0.8283565 -0.1883117  0.0099533941 2800.0378
## 2006 7.875499  0.060615123 0.8269188 -0.1900487 -0.0017370100 2869.8591
## 2007 7.878193  0.002693936 0.8167807 -0.2023847 -0.0123359691 2818.0542
## 2008 7.826802 -0.051391020 0.7992667 -0.2240606 -0.0216759119 2641.1696
## 2009 7.640315 -0.186486747 0.7639261 -0.2692842 -0.0452235988 2207.4791
## 2010 7.655201  0.014885771 0.7661551 -0.2663707  0.0029135143 2263.5538
## 2011 7.734690  0.079488836 0.7822026 -0.2456415  0.0207291992 2417.0006
## 2012 7.844045  0.109354628 0.8041936 -0.2179152  0.0277262400 2655.8711
## 2013 7.908938  0.064893781 0.8192601 -0.1993537  0.0185615342 2802.2856
## 2014 7.993012  0.084073635 0.8308634 -0.1852899  0.0140637905 2987.7772
## 2015 8.036315  0.043302531 0.8327138 -0.1830653  0.0022245912 3091.2000
## 2016 8.055666  0.019350895 0.8322594 -0.1836111 -0.0005457471 3148.0979
## 2017 8.113876  0.058210236 0.8361074 -0.1789982  0.0046129010 3278.7869
## 2018 8.181329  0.067452995 0.8387157 -0.1758834  0.0031147289 3424.9745
##           I_l         I_dl          r      r_l           r_dl         P
## 1962 6.038493  0.084601149  2.6927460 1.755390 -0.02312086354  16.25226
## 1963 6.124440  0.085946950  2.8180469 1.776816  0.02142580426  16.44067
## 1964 6.229130  0.104690090  2.5691069 1.733789 -0.04302720329  16.69086
## 1965 6.346089  0.116959105  2.3206858 1.688922 -0.04486625399  16.99579
## 1966 6.391234  0.045144971  1.8016578 1.588136 -0.10078661591  17.47132
## 1967 6.363046 -0.028188062  1.9168015 1.611388  0.02325212624  17.97930
## 1968 6.444534  0.081487984  0.9787756 1.404069 -0.20731906444  18.74513
## 1969 6.507517  0.062982671  1.2241872 1.462594  0.05852549856  19.66287
## 1970 6.479133 -0.028384254  1.2275316 1.463369  0.00077437873  20.70061
## 1971 6.523769  0.044636251  0.6230958 1.312662 -0.15070643792  21.75123
## 1972 6.626535  0.102765863  1.2590408 1.470635  0.15797294290  22.69014
## 1973 6.707372  0.080837323  0.8030045 1.359941 -0.11069447872  23.93424
## 1974 6.643155 -0.064217144 -1.8469185 0.219970 -1.13997074834  26.08664
## 1975 6.546080 -0.097074470 -2.0929578 0.000000 -0.21996996080  28.50407
## 1976 6.644455  0.098374996  1.2112855 1.459601  1.45960135007  30.07238
## 1977 6.777154  0.132698387  0.7978673 1.358621 -0.10098010696  31.94065
## 1978 6.891017  0.113863456  0.7982518 1.358720  0.00009881734  34.18786
## 1979 6.948966  0.057948918  0.4111983 1.253950 -0.10477033928  37.02364
## 1980 6.886452 -0.062513702  1.6286660 1.552153  0.29820304469  40.36843
## 1981 6.912097  0.025645098  3.1138992 1.825655  0.27350188280  44.18788
## 1982 6.846518 -0.065579724  5.6987159 2.173805  0.34815045447  46.91832
## 1983 6.914360  0.067842328  6.6626537 2.277843  0.10403755478  48.75583
## 1984 7.062237  0.147876527  8.0898912 2.414381  0.13653860740  50.51504
## 1985 7.117104  0.054867319  7.3546126 2.346369 -0.06801181155  52.11272
## 1986 7.139970  0.022865790  6.0061534 2.208177 -0.13819271535  53.16172
## 1987 7.148371  0.008401247  6.0378444 2.211654  0.00347681651  54.47633
## 1988 7.181327  0.032956439  5.2671201 2.123468 -0.08818580970  56.39777
## 1989 7.212664  0.031336990  4.3572442 2.008241 -0.11522659912  58.60961
## 1990 7.197268 -0.015395961  4.8083331 2.067026  0.05878500507  60.80264
## 1991 7.144092 -0.053176749  4.4770050 2.024188 -0.04283799788  62.85874
## 1992 7.195189  0.051097283  4.7425261 2.058663  0.03447448193  64.29153
## 1993 7.266940  0.071750943  3.5162293 1.888461 -0.17020196926  65.81551
## 1994 7.343782  0.076842414  4.9693671 2.087202  0.19874129809  67.22038
## 1995 7.400052  0.056269660  4.4991063 2.027104 -0.06009845969  68.62970
## 1996 7.482604  0.082551661  4.6245918 2.043497  0.01639339996  69.88613
## 1997 7.563543  0.080939009  4.6438422 2.045988  0.00249126110  71.09237
## 1998 7.659509  0.095966472  4.1589369 1.981263 -0.06472539277  71.89167
## 1999 7.742654  0.083145319  4.1358050 1.978068 -0.00319487146  72.93011
## 2000 7.809469  0.066814567  3.7124288 1.917714 -0.06035345554  74.55981
## 2001 7.794642 -0.014827474  2.7559343 1.766252 -0.15146218697  76.19537
## 2002 7.758287 -0.036354890  2.9713219 1.802416  0.03616351325  77.40053
## 2003 7.801100  0.042813328  2.1035619 1.647989 -0.15442665889  78.83815
## 2004 7.868568  0.067468339  1.5268787 1.530359 -0.11762979820  80.96048
## 2005 7.937388  0.068819883  1.1297464 1.440476 -0.08988358635  83.48245
## 2006 7.962018  0.024629990  1.7121038 1.569670  0.12919413381  86.00870
## 2007 7.943802 -0.018216280  1.8920228 1.606430  0.03675964941  88.31987
## 2008 7.878977 -0.064824790  1.6732080 1.561542 -0.04488734558  90.03704
## 2009 7.699606 -0.179370664  2.4684416 1.715850  0.15430760109  90.72378
## 2010 7.724691  0.025084881  2.0112932 1.630074 -0.08577604529  91.78096
## 2011 7.790283  0.065591270  0.6574850 1.321874 -0.30819980894  93.69806
## 2012 7.884528  0.094245348 -0.1255466 1.087690 -0.23418399014  95.49515
## 2013 7.938191  0.053662679  0.5748760 1.299601  0.21191131970  97.17112
## 2014 8.002285  0.064094326  0.6669276 1.324388  0.02478723564  98.96950
## 2015 8.036315  0.034029670  1.0775473 1.428037  0.10364867736 100.00000
## 2016 8.054554  0.018239049  0.7872107 1.355879 -0.07215857505 101.03464
## 2017 8.095229  0.040675096  0.4380793 1.261592 -0.09428695670 102.93780
## 2018 8.138849  0.043620528  0.4628593 1.268585  0.00699325830 105.44523
##           P_l        P_dl        Pm     Pm_l         Pm_dl        Px
## 1962 2.788232 0.012072331  18.56688 2.921380 -0.0113019618  25.59419
## 1963 2.799758 0.011526155  18.87937 2.938070  0.0166901277  25.53254
## 1964 2.814861 0.015103337  19.29658 2.959928  0.0218580533  25.69594
## 1965 2.832966 0.018104292  19.55401 2.973180  0.0132525199  26.49552
## 1966 2.860561 0.027595061  20.05213 2.998335  0.0251549360  27.32908
## 1967 2.889221 0.028660034  20.09978 3.000709  0.0023738410  28.41442
## 1968 2.930934 0.041713111  20.42949 3.016979  0.0162703041  28.99427
## 1969 2.978732 0.047798034  20.94968 3.042123  0.0251440397  29.96237
## 1970 3.030163 0.051431279  22.20387 3.100266  0.0581430654  31.13887
## 1971 3.079670 0.049506861  23.52724 3.158159  0.0578926172  32.29772
## 1972 3.121931 0.042260427  25.18914 3.226413  0.0682540576  33.67800
## 1973 3.175310 0.053379302  29.58704 3.387336  0.1609233732  38.14890
## 1974 3.261423 0.086113588  42.32684 3.745421  0.3580849152  46.98675
## 1975 3.350047 0.088623419  45.82332 3.824793  0.0793716985  51.78500
## 1976 3.403607 0.053560377  47.20166 3.854429  0.0296359927  53.47490
## 1977 3.463880 0.060272227  51.36514 3.938960  0.0845306936  55.63264
## 1978 3.531871 0.067991178  55.01910 4.007680  0.0687206798  59.05512
## 1979 3.611557 0.079685974  64.40808 4.165239  0.1575587103  66.14629
## 1980 3.698048 0.086491382  80.23641 4.384977  0.2197382478  72.86859
## 1981 3.788451 0.090402518  84.56804 4.437556  0.0525789968  78.25139
## 1982 3.848408 0.059957592  81.71956 4.403293 -0.0342629566  78.62957
## 1983 3.886825 0.038416637  78.65071 4.365017 -0.0382768005  78.95737
## 1984 3.922271 0.035446375  77.97509 4.356389 -0.0086272851  79.69694
## 1985 3.953409 0.031137917  75.40834 4.322918 -0.0334714948  77.32258
## 1986 3.973339 0.019929540  75.43482 4.323269  0.0003510932  76.03582
## 1987 3.997766 0.024427688  79.97243 4.381682  0.0584129805  77.70074
## 1988 4.032430 0.034663259  83.79985 4.428431  0.0467492466  81.68876
## 1989 4.070899 0.038469184  85.63338 4.450075  0.0216439706  83.05140
## 1990 4.107633 0.036734461  88.08392 4.478290  0.0282148465  83.51743
## 1991 4.140890 0.033256816  87.34853 4.469906 -0.0083837957  84.44215
## 1992 4.163428 0.022537845  87.42935 4.470831  0.0009247887  84.03879
## 1993 4.186856 0.023427629  86.76406 4.463192 -0.0076385572  84.15944
## 1994 4.207976 0.021120963  87.56908 4.472428  0.0092355422  85.13996
## 1995 4.228725 0.020748913  89.97553 4.499538  0.0271097989  87.04135
## 1996 4.246867 0.018141874  88.40722 4.481954 -0.0175841476  85.89111
## 1997 4.263980 0.017112787  85.33168 4.446546 -0.0354078604  84.37044
## 1998 4.275160 0.011180307  80.73539 4.391177 -0.0553687807  82.38124
## 1999 4.289502 0.014341223  81.17981 4.396667  0.0054895603  81.74395
## 2000 4.311602 0.022100111  84.74171 4.439608  0.0429413793  83.31675
## 2001 4.333301 0.021698978  82.52168 4.413061 -0.0265468837  82.64867
## 2002 4.348994 0.015693030  81.42836 4.399724 -0.0133374597  81.98507
## 2003 4.367397 0.018403289  83.88660 4.429466  0.0297423524  83.24491
## 2004 4.393961 0.026564200  87.89686 4.476164  0.0466981563  86.26251
## 2005 4.424636 0.030675279  93.05746 4.533217  0.0570530440  89.24890
## 2006 4.454448 0.029812037  96.62172 4.570804  0.0375863795  92.09409
## 2007 4.480965 0.026516665  99.97241 4.604894  0.0340907399  95.55386
## 2008 4.500221 0.019256012 110.01819 4.700646  0.0957515019 100.03142
## 2009 4.507820 0.007598367  97.81888 4.583118 -0.1175281259  94.03332
## 2010 4.519405 0.011585329 103.15414 4.636224  0.0531066980  97.86391
## 2011 4.540078 0.020672656 110.98817 4.709424  0.0731993146 104.04781
## 2012 4.559075 0.018997937 111.17850 4.711137  0.0017133501 104.83942
## 2013 4.576474 0.017398118 109.66300 4.697412 -0.0137249311 105.01495
## 2014 4.594812 0.018338118 108.79435 4.689459 -0.0079526899 105.12309
## 2015 4.605170 0.010358494 100.00000 4.605170 -0.0842891848 100.00000
## 2016 4.615463 0.010293287  96.38660 4.568367 -0.0368030106  97.97838
## 2017 4.634125 0.018661473  98.52999 4.590361  0.0219937915 100.48604
## 2018 4.658192 0.024066720 101.37431 4.618820  0.0284587550 103.90398
##          Px_l        Px_dl        X      X_l          X_dl        M
## 1962 3.242365  0.003922486  113.698 4.733546  0.0490008321  134.648
## 1963 3.239954 -0.002411366  121.805 4.802421  0.0688755949  138.246
## 1964 3.246333  0.006378958  136.208 4.914183  0.1117617238  145.622
## 1965 3.276976  0.030642841  140.024 4.941814  0.0276307073  161.092
## 1966 3.307951  0.030975549  149.657 5.008346  0.0665321725  185.018
## 1967 3.346897  0.038945594  153.091 5.031033  0.0226865068  198.510
## 1968 3.367098  0.020201511  165.205 5.107187  0.0761546111  228.102
## 1969 3.399942  0.032843815  173.217 5.154545  0.0473580168  241.054
## 1970 3.438457  0.038514790  191.722 5.256046  0.1015012624  251.308
## 1971 3.474997  0.036539637  195.060 5.273307  0.0172607974  264.799
## 1972 3.516845  0.041848173  210.226 5.348183  0.0748759390  294.571
## 1973 3.641497  0.124652134  249.811 5.520705  0.1725214894  308.243
## 1974 3.849866  0.208368765  269.650 5.597125  0.0764201898  301.227
## 1975 3.947101  0.097234832  267.838 5.590382 -0.0067425017  267.768
## 1976 3.979212  0.032111891  279.570 5.633253  0.0428703883  320.116
## 1977 4.018770  0.039557751  286.343 5.657190  0.0239376845  355.105
## 1978 4.078471  0.059701039  316.484 5.757273  0.1000822945  385.866
## 1979 4.191869  0.113397563  347.865 5.851814  0.0945417861  392.342
## 1980 4.288658  0.096788894  385.351 5.954155  0.1023401338  366.168
## 1981 4.359927  0.071268878  390.025 5.966211  0.0120562324  375.792
## 1982 4.364748  0.004821255  360.170 5.886576 -0.0796346974  371.025
## 1983 4.368908  0.004160267  350.822 5.860279 -0.0262971699  417.797
## 1984 4.378231  0.009323084  379.437 5.938689  0.0784096028  519.525
## 1985 4.347986 -0.030245118  392.123 5.971576  0.0328869909  553.254
## 1986 4.331205 -0.016781465  422.169 6.045406  0.0738301417  600.386
## 1987 4.352865  0.021660282  468.335 6.149184  0.1037781440  636.094
## 1988 4.402916  0.050051586  544.261 6.299429  0.1502450594  661.099
## 1989 4.419460  0.016543251  607.214 6.408881  0.1094523713  690.151
## 1990 4.425055  0.005595699  660.820 6.493481  0.0846002056  714.886
## 1991 4.436067  0.011011309  704.506 6.557497  0.0640153599  713.807
## 1992 4.431278 -0.004788183  753.343 6.624521  0.0670237874  763.817
## 1993 4.432713  0.001434566  778.047 6.656787  0.0322662983  829.837
## 1994 4.444296  0.011583378  846.723 6.741374  0.0845866709  928.867
## 1995 4.466383  0.022086851  933.809 6.839272  0.0978983160 1003.162
## 1996 4.453080 -0.013303000 1010.116 6.917820  0.0785485342 1090.409
## 1997 4.435217 -0.017863244 1130.491 7.030407  0.1125868759 1237.290
## 1998 4.411358 -0.023859302 1156.817 7.053428  0.0230202164 1381.922
## 1999 4.403592 -0.007765889 1214.524 7.102108  0.0486799625 1538.067
## 2000 4.422650  0.019057759 1315.822 7.182217  0.0801093349 1736.217
## 2001 4.414599 -0.008050935 1239.705 7.122629 -0.0595881173 1687.557
## 2002 4.406537 -0.008061552 1218.149 7.105088 -0.0175409546 1748.899
## 2003 4.421787  0.015249862 1244.761 7.126699  0.0216110501 1834.977
## 2004 4.457395  0.035608082 1365.135 7.219009  0.0923097812 2044.100
## 2005 4.491429  0.034034015 1462.427 7.287853  0.0688440595 2177.579
## 2006 4.522811  0.031381677 1599.017 7.377144  0.0892916811 2321.942
## 2007 4.559690  0.036879276 1738.182 7.460595  0.0834506740 2379.957
## 2008 4.605484  0.045794318 1836.523 7.515629  0.0550343706 2326.979
## 2009 4.543649 -0.061835206 1682.382 7.427966 -0.0876634637 2022.513
## 2010 4.583578  0.039928664 1886.600 7.542532  0.1145656209 2288.032
## 2011 4.644850  0.061272657 2021.186 7.611440  0.0689082006 2416.924
## 2012 4.652430  0.007579382 2090.149 7.644991  0.0335508875 2482.404
## 2013 4.654103  0.001672904 2164.835 7.680099  0.0351087908 2520.631
## 2014 4.655132  0.001029229 2256.117 7.721400  0.0413010479 2646.645
## 2015 4.605170 -0.049961805 2266.800 7.726124  0.0047239513 2786.600
## 2016 4.584747 -0.020423387 2266.418 7.725956 -0.0001685337 2842.096
## 2017 4.610019  0.025271968 2345.301 7.760169  0.0342131403 2975.845
## 2018 4.643467  0.033448467 2415.981 7.789861  0.0296916639 3105.816
##           M_l         M_dl      rulc     rulc_l        rulc_dl      ulc
## 1962 4.902664  0.107807741 0.6625862 -0.4116046 -0.00936202535 10.76852
## 1963 4.929035  0.026370741 0.6592520 -0.4166494 -0.00504481505 10.83855
## 1964 4.981014  0.051979516 0.6554289 -0.4224655 -0.00581609169 10.93967
## 1965 5.081976  0.100961407 0.6468335 -0.4356664 -0.01320090795 10.99345
## 1966 5.220453  0.138477487 0.6456636 -0.4374766 -0.00181023699 11.28060
## 1967 5.290839  0.070386359 0.6534390 -0.4255061  0.01197050109 11.74837
## 1968 5.429793  0.138953421 0.6567286 -0.4204844  0.00502174980 12.31046
## 1969 5.485021  0.055228077 0.6679146 -0.4035950  0.01688938383 13.13312
## 1970 5.526679  0.041658304 0.6752900 -0.3926131  0.01098193361 13.97892
## 1971 5.578971  0.052291769 0.6643233 -0.4089863 -0.01637327372 14.44985
## 1972 5.685520  0.106549013 0.6619199 -0.4126107 -0.00362433761 15.01906
## 1973 5.730888  0.045368372 0.6580354 -0.4184965 -0.00588587902 15.74957
## 1974 5.707864 -0.023024300 0.6627755 -0.4113189  0.00717761680 17.28959
## 1975 5.590121 -0.117743199 0.6472152 -0.4350765 -0.02375753957 18.44827
## 1976 5.768683  0.178562496 0.6403965 -0.4456678 -0.01059132087 19.25825
## 1977 5.872414  0.103730090 0.6387607 -0.4482254 -0.00255766541 20.40243
## 1978 5.955490  0.083076639 0.6356892 -0.4530456 -0.00482010782 21.73285
## 1979 5.972134  0.016643749 0.6359875 -0.4525764  0.00046915942 23.54657
## 1980 5.903092 -0.069041664 0.6425698 -0.4422798  0.01029660963 25.93953
## 1981 5.929036  0.025943554 0.6320656 -0.4587621 -0.01648235653 27.92964
## 1982 5.916269 -0.012766353 0.6393198 -0.4473506  0.01141158650 29.99581
## 1983 6.034996  0.118726223 0.6249060 -0.4701541 -0.02280352833 30.46781
## 1984 6.252915  0.217919264 0.6175591 -0.4819804 -0.01182635694 31.19603
## 1985 6.315817  0.062902276 0.6166263 -0.4834921 -0.00151162279 32.13408
## 1986 6.397573  0.081755573 0.6205236 -0.4771916  0.00630043597 32.98810
## 1987 6.455346  0.057773569 0.6262088 -0.4680714  0.00912023773 34.11356
## 1988 6.493904  0.038557251 0.6285757 -0.4642988  0.00377258657 35.45027
## 1989 6.536910  0.043006813 0.6201982 -0.4777162 -0.01341741145 36.34958
## 1990 6.572123  0.035212675 0.6235196 -0.4723751  0.00534116624 37.91164
## 1991 6.570613 -0.001510472 0.6254946 -0.4692126  0.00316244896 39.31780
## 1992 6.638328  0.067715614 0.6250311 -0.4699539 -0.00074127536 40.18420
## 1993 6.721229  0.082901064 0.6188069 -0.4799621 -0.01000818637 40.72709
## 1994 6.833966  0.112736268 0.6106774 -0.4931864 -0.01322433053 41.04997
## 1995 6.910912  0.076946727 0.6082451 -0.4971774 -0.00399103761 41.74368
## 1996 6.994308  0.083395844 0.6042278 -0.5038041 -0.00662663177 42.22714
## 1997 7.120679  0.126370649 0.6048250 -0.5028161  0.00098791826 42.99844
## 1998 7.231231  0.110551780 0.6141576 -0.4875037  0.01531248034 44.15281
## 1999 7.338282  0.107051149 0.6130906 -0.4892426 -0.00173890458 44.71276
## 2000 7.459464  0.121182175 0.6220907 -0.4746694  0.01457314786 46.38296
## 2001 7.431037 -0.028426687 0.6205815 -0.4770983 -0.00242891404 47.28544
## 2002 7.466742  0.035704526 0.6104349 -0.4935836 -0.01648526915 47.24799
## 2003 7.514787  0.048045500 0.6040259 -0.5041383 -0.01055465399 47.62028
## 2004 7.622713  0.107925647 0.5989086 -0.5126463 -0.00850807380 48.48793
## 2005 7.685969  0.063256114 0.5881351 -0.5307987 -0.01815233901 49.09896
## 2006 7.750159  0.064190195 0.5867092 -0.5332259 -0.00242724537 50.46210
## 2007 7.774838  0.024678516 0.5884507 -0.5302622  0.00296374168 51.97189
## 2008 7.752326 -0.022511561 0.5892688 -0.5288729  0.00138928762 53.05602
## 2009 7.612096 -0.140230062 0.5778488 -0.5484430 -0.01957007491 52.42463
## 2010 7.735447  0.123351262 0.5681830 -0.5653117 -0.01686872702 52.14838
## 2011 7.790251  0.054803598 0.5666225 -0.5680620 -0.00275034639 53.09143
## 2012 7.816983  0.026731788 0.5652490 -0.5704889 -0.00242683955 53.97854
## 2013 7.832265  0.015281822 0.5607976 -0.5783952 -0.00790634869 54.49333
## 2014 7.881048  0.048783533 0.5608372 -0.5783247  0.00007055771 55.50577
## 2015 7.932577  0.051529415 0.5650811 -0.5707860  0.00753863132 56.50811
## 2016 7.952297  0.019719593 0.5644979 -0.5718187 -0.00103262934 57.03384
## 2017 7.998283  0.045986224 0.5643387 -0.5721006 -0.00028195748 58.09179
## 2018 8.041032  0.042748451 0.5608107 -0.5783719 -0.00627129056 59.13481
##         ulc_l        ulc_dl       Tau    Tau_l        Tau_dl       dPxdPm
## 1962 2.376627  0.0027103052  55.05524 4.008337  0.0398790068  0.015224448
## 1963 2.383109  0.0064813395  56.79073 4.039373  0.0310360328 -0.019101494
## 1964 2.392396  0.0092872450  58.47186 4.068546  0.0291724640 -0.015479096
## 1965 2.397299  0.0049033842  60.40284 4.101036  0.0324905206  0.017390321
## 1966 2.423084  0.0257848244  62.03388 4.127681  0.0266445939  0.005820613
## 1967 2.463715  0.0406305349  62.10106 4.128763  0.0010823819  0.036571753
## 1968 2.510450  0.0467348613  63.44981 4.150249  0.0214860979  0.003931207
## 1969 2.575137  0.0646874179  63.66296 4.153603  0.0033536615  0.007699775
## 1970 2.637550  0.0624132126  63.01161 4.143319 -0.0102838866 -0.019628275
## 1971 2.670684  0.0331335877  64.27498 4.163170  0.0198513910 -0.021352980
## 1972 2.709320  0.0386360895  65.75669 4.185961  0.0227910139 -0.026405885
## 1973 2.756813  0.0474934229  67.31448 4.209375  0.0234139967 -0.036271239
## 1974 2.850105  0.0932912048  65.54941 4.182804 -0.0265712328 -0.149716150
## 1975 2.914970  0.0648658799  65.37932 4.180206 -0.0025981662  0.017863133
## 1976 2.957939  0.0429690564  67.05592 4.205527  0.0253208562  0.002475898
## 1977 3.015654  0.0577145615  68.02040 4.219808  0.0142808319 -0.044972942
## 1978 3.078825  0.0631710698  69.18590 4.236797  0.0169894270 -0.009019640
## 1979 3.158980  0.0801551333  69.33937 4.239013  0.0022156992 -0.044161147
## 1980 3.255768  0.0967879913  68.26009 4.223325 -0.0156875187 -0.122949353
## 1981 3.329688  0.0739201615  68.84282 4.231826  0.0085006889  0.018689882
## 1982 3.401058  0.0713691789  67.40807 4.210765 -0.0210613003  0.039084212
## 1983 3.416671  0.0156131085  69.36514 4.239384  0.0286198008  0.042437068
## 1984 3.440291  0.0236200181  71.82331 4.274209  0.0348246060  0.017950369
## 1985 3.469917  0.0296262942  73.04609 4.291091  0.0168814886  0.003226377
## 1986 3.496147  0.0262299763  73.71139 4.300157  0.0090667037 -0.017132558
## 1987 3.529695  0.0335479256  74.30223 4.308141  0.0079837294 -0.036752698
## 1988 3.568131  0.0384358457  75.62892 4.325839  0.0176978028  0.003302339
## 1989 3.593183  0.0250517727  76.69458 4.339831  0.0139922200 -0.005100720
## 1990 3.635258  0.0420756273  76.89669 4.342463  0.0026318191 -0.022619148
## 1991 3.671677  0.0364192646  76.69744 4.339868 -0.0025945564  0.019395105
## 1992 3.693474  0.0217965696  78.56362 4.363909  0.0240404290 -0.005712972
## 1993 3.706893  0.0134194428  79.44446 4.375058  0.0111494115  0.009073123
## 1994 3.714790  0.0078966324  80.85623 4.392673  0.0176145628  0.002347836
## 1995 3.731548  0.0167578758  81.56393 4.401387  0.0087144423 -0.005022948
## 1996 3.743063  0.0115152418  83.06990 4.419682  0.0182952764  0.004281147
## 1997 3.761164  0.0181007049  84.66858 4.438745  0.0190621712  0.017544616
## 1998 3.787657  0.0264927875  86.58339 4.461108  0.0223634238  0.031509479
## 1999 3.800259  0.0126023186  88.44950 4.482432  0.0213237943 -0.013255449
## 2000 3.836932  0.0366732588  89.67985 4.496246  0.0138143202 -0.023883620
## 2001 3.856202  0.0192700639  89.53073 4.494582 -0.0016641856  0.018495949
## 2002 3.855410 -0.0007922393  90.53868 4.505777  0.0111952652  0.005275908
## 2003 3.863259  0.0078486347  92.06038 4.522445  0.0166674224 -0.014492490
## 2004 3.881315  0.0180561264  93.76575 4.540800  0.0183550409 -0.011090074
## 2005 3.893838  0.0125229399  95.01198 4.554003  0.0132033159 -0.023019029
## 2006 3.921223  0.0273847917  95.47855 4.558902  0.0048986690 -0.006204702
## 2007 3.950703  0.0294804064  95.66528 4.560855  0.0019538047  0.002788536
## 2008 3.971348  0.0206452996  95.04788 4.554381 -0.0064747116 -0.049957184
## 2009 3.959377 -0.0119717083  94.73714 4.551106 -0.0032745785  0.055692920
## 2010 3.954093 -0.0052833982  97.16246 4.576384  0.0252782424 -0.013178034
## 2011 3.972015  0.0179223092  97.65814 4.581473  0.0050885880 -0.011926658
## 2012 3.988587  0.0165710973  98.12300 4.586222  0.0047488330  0.005866032
## 2013 3.998078  0.0094917694  98.41200 4.589163  0.0029409276  0.015397835
## 2014 4.016487  0.0184086756  99.08281 4.595956  0.0067931951  0.008981919
## 2015 4.034384  0.0178971258 100.00000 4.605170  0.0092142380  0.034327380
## 2016 4.043645  0.0092606576  99.97366 4.604907 -0.0002634827  0.016379624
## 2017 4.062024  0.0183795153 100.82239 4.613360  0.0084537418  0.003278177
## 2018 4.079820  0.0177954293 101.88933 4.623887  0.0105267743  0.004989712
##              dPdPm      Trade
## 1962  0.0233742924 0.06683532
## 1963 -0.0051639732 0.06706528
## 1964 -0.0067547167 0.06872143
## 1965  0.0048517722 0.06894392
## 1966  0.0024401253 0.07188608
## 1967  0.0262861929 0.07350626
## 1968  0.0254428073 0.07837346
## 1969  0.0226539943 0.08004865
## 1970 -0.0067117865 0.08544669
## 1971 -0.0083857558 0.08586572
## 1972 -0.0259936305 0.08954668
## 1973 -0.1075440713 0.09370413
## 1974 -0.2719713271 0.09637755
## 1975  0.0092517209 0.09061036
## 1976  0.0239243845 0.09626335
## 1977 -0.0242584667 0.09841616
## 1978 -0.0007295022 0.10210861
## 1979 -0.0778727365 0.10430916
## 1980 -0.1332468661 0.10617584
## 1981  0.0378235212 0.10551859
## 1982  0.0942205490 0.10259722
## 1983  0.0766934374 0.10312230
## 1984  0.0440736602 0.11247049
## 1985  0.0646094118 0.11354271
## 1986  0.0195784471 0.11870202
## 1987 -0.0339852927 0.12391924
## 1988 -0.0120859874 0.12982134
## 1989  0.0168252136 0.13478109
## 1990  0.0085196145 0.14027367
## 1991  0.0416406114 0.14477412
## 1992  0.0216130563 0.14959519
## 1993  0.0310661864 0.15429342
## 1994  0.0118854207 0.16378833
## 1995 -0.0063608855 0.17400386
## 1996  0.0357260211 0.18183546
## 1997  0.0525206471 0.19624506
## 1998  0.0665490878 0.20138829
## 1999  0.0088516629 0.20844466
## 2000 -0.0208412683 0.22195937
## 2001  0.0482458617 0.21078060
## 2002  0.0290304896 0.20998781
## 2003 -0.0113390637 0.21190134
## 2004 -0.0201339561 0.22598668
## 2005 -0.0263777650 0.23309495
## 2006 -0.0077743424 0.24411612
## 2007 -0.0075740751 0.25167184
## 2008 -0.0764954899 0.25479134
## 2009  0.1251264924 0.23262821
## 2010 -0.0415213692 0.25556911
## 2011 -0.0525266591 0.26755008
## 2012  0.0172845867 0.26959107
## 2013  0.0311230492 0.27125090
## 2014  0.0262908077 0.27683893
## 2015  0.0946476792 0.27728151
## 2016  0.0470962975 0.27578780
## 2017 -0.0033323187 0.28061682
## 2018 -0.0043920351 0.28291619

Adjusted Dickey-fuller testet I(0)

adf.USA.WS <- adf.test((USA$WS), alternative = c("stationary"), k = 2)
adf.USA.PS <- adf.test((USA$PS), alternative = c("stationary"), k = 2)
adf.USA.Y <- adf.test((USA$Y), alternative = c("stationary"), k = 2)
adf.USA.Yrw <- adf.test((USA$Yrw), alternative = c("stationary"), k = 2)
adf.USA.r <- adf.test((USA$r), alternative = c("stationary"), k = 2)
adf.USA.R <- adf.test((USA$R), alternative = c("stationary"), k = 2)
adf.USA.Tau <- adf.test((USA$Tau), alternative = c("stationary"), k = 2)
adf.USA.rulc <- adf.test((USA$rulc), alternative = c("stationary"), k = 2)
adf.USA.ulc <- adf.test((USA$ulc), alternative = c("stationary"), k = 2)
adf.USA.P <- adf.test((USA$P), alternative = c("stationary"), k = 2)
adf.USA.Pm <- adf.test((USA$Pm), alternative = c("stationary"), k = 2)
adf.USA.Px <- adf.test((USA$Px), alternative = c("stationary"), k = 2)
adf.USA.X <- adf.test((USA$X), alternative = c("stationary"), k = 2)
adf.USA.M <- adf.test((USA$M), alternative = c("stationary"), k = 2)
adf.USA.I <- adf.test((USA$I), alternative = c("stationary"), k = 2)
adf.USA.C <- adf.test((USA$C), alternative = c("stationary"), k = 2)
adf.USA.Ipr <- adf.test((USA$Ipr), alternative = c("stationary"), k = 2)
adf.USA.Ips <- adf.test((USA$Ips), alternative = c("stationary"), k = 2)
adf.USA.It <- adf.test((USA$It), alternative = c("stationary"), k = 2)
adf.USA.Itcurr <- adf.test((USA$Itcurr), alternative = c("stationary"), k = 2)
adf.USA.Yf <- adf.test((USA$Yf), alternative = c("stationary"), k = 2)
adf.USA.W <- adf.test((USA$W), alternative = c("stationary"), k = 2)

adf.USA.WS.pval <- adf.USA.WS$p.value
adf.USA.PS.pval <- adf.USA.PS$p.value
adf.USA.Y.pval <- adf.USA.Y$p.value
adf.USA.Yrw.pval <- adf.USA.Yrw$p.value
adf.USA.r.pval <- adf.USA.r$p.value
adf.USA.R.pval <- adf.USA.R$p.value
adf.USA.Tau.pval <- adf.USA.Tau$p.value
adf.USA.rulc.pval <- adf.USA.rulc$p.value
adf.USA.ulc.pval <- adf.USA.ulc$p.value
adf.USA.P.pval <- adf.USA.P$p.value
adf.USA.Pm.pval <- adf.USA.Pm$p.value
adf.USA.Px.pval <- adf.USA.Px$p.value
adf.USA.X.pval <- adf.USA.X$p.value
adf.USA.M.pval <- adf.USA.M$p.value
adf.USA.I.pval <- adf.USA.I$p.value
adf.USA.C.pval <- adf.USA.C$p.value
adf.USA.Ipr.pval <- adf.USA.Ipr$p.value
adf.USA.Ips.pval <- adf.USA.Ips$p.value
adf.USA.It.pval <- adf.USA.It$p.value
adf.USA.Itcurr.pval <- adf.USA.Itcurr$p.value
adf.USA.Yf.pval <- adf.USA.Yf$p.value
adf.USA.W.pval <- adf.USA.W$p.value

adf.USA_non <- rbind(adf.USA.WS.pval,adf.USA.PS.pval,adf.USA.Y.pval,adf.USA.Yrw.pval,adf.USA.r.pval,adf.USA.R.pval,adf.USA.Tau.pval,adf.USA.rulc.pval,adf.USA.ulc.pval,adf.USA.P.pval,adf.USA.Pm.pval,adf.USA.Px.pval,adf.USA.X.pval,adf.USA.M.pval,adf.USA.I.pval,adf.USA.C.pval,adf.USA.Ipr.pval,adf.USA.Ips.pval,adf.USA.It.pval,adf.USA.Itcurr.pval,adf.USA.Yf.pval,adf.USA.W.pval)


colnames(adf.USA_non) <- c("USA")
rownames(adf.USA_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.USA_non
##               USA
## WS     0.14727279
## PS     0.14727279
## Y      0.75063640
## Yrw    0.64619086
## r      0.72717372
## R      0.90110005
## Tau    0.64256632
## rulc   0.09430572
## ulc    0.83164226
## P      0.35795379
## Pm     0.79691168
## Px     0.78904372
## X      0.86446891
## M      0.90638954
## I      0.40754783
## C      0.88874702
## Ipr    0.75205114
## Ips    0.31639286
## It     0.46636119
## Itcurr 0.77863650
## Yf     0.70162132
## W      0.51369211

Adjusted Dickey-fuller testet I(1)

adf.USA.WS_dl <- adf.test((USA$WS_dl), alternative = c("stationary"), k = 2)
adf.USA.PS_dl <- adf.test((USA$PS_dl), alternative = c("stationary"), k = 2)
adf.USA.Y_dl <- adf.test((USA$Y_dl), alternative = c("stationary"), k = 2)
adf.USA.Yrw_dl <- adf.test((USA$Yrw_dl), alternative = c("stationary"), k = 2)
adf.USA.r_dl <- adf.test((USA$r_dl), alternative = c("stationary"), k = 2)
adf.USA.R_dl <- adf.test((USA$R_dl), alternative = c("stationary"), k = 2)
adf.USA.Tau_dl <- adf.test((USA$Tau_dl), alternative = c("stationary"), k = 2)
adf.USA.rulc_dl <- adf.test((USA$rulc_dl), alternative = c("stationary"), k = 2)
adf.USA.ulc_dl <- adf.test((USA$ulc_dl), alternative = c("stationary"), k = 2)
adf.USA.P_dl <- adf.test((USA$P_dl), alternative = c("stationary"), k = 2)
adf.USA.Pm_dl <- adf.test((USA$Pm_dl), alternative = c("stationary"), k = 2)
adf.USA.Px_dl <- adf.test((USA$Px_dl), alternative = c("stationary"), k = 2)
adf.USA.X_dl <- adf.test((USA$X_dl), alternative = c("stationary"), k = 2)
adf.USA.M_dl <- adf.test((USA$M_dl), alternative = c("stationary"), k = 2)
adf.USA.I_dl <- adf.test((USA$I_dl), alternative = c("stationary"), k = 2)
adf.USA.C_dl <- adf.test((USA$C_dl), alternative = c("stationary"), k = 2)
adf.USA.Ipr_dl <- adf.test((USA$Ipr_dl), alternative = c("stationary"), k = 2)
adf.USA.Ips_dl <- adf.test((USA$Ips_dl), alternative = c("stationary"), k = 2)
adf.USA.It_dl <- adf.test((USA$It_dl), alternative = c("stationary"), k = 2)
adf.USA.Itcurr_dl <- adf.test((USA$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.USA.Yf_dl <- adf.test((USA$Yf_dl), alternative = c("stationary"), k = 2)
adf.USA.W_dl <- adf.test((USA$W_dl), alternative = c("stationary"), k = 2)

adf.USA.WS_dl.pval <- adf.USA.WS_dl$p.value
adf.USA.PS_dl.pval <- adf.USA.PS_dl$p.value
adf.USA.Y_dl.pval <- adf.USA.Y_dl$p.value
adf.USA.Yrw_dl.pval <- adf.USA.Yrw_dl$p.value
adf.USA.r_dl.pval <- adf.USA.r_dl$p.value
adf.USA.R_dl.pval <- adf.USA.R_dl$p.value
adf.USA.Tau_dl.pval <- adf.USA.Tau_dl$p.value
adf.USA.rulc_dl.pval <- adf.USA.rulc_dl$p.value
adf.USA.ulc_dl.pval <- adf.USA.ulc_dl$p.value
adf.USA.P_dl.pval <- adf.USA.P_dl$p.value
adf.USA.Pm_dl.pval <- adf.USA.Pm_dl$p.value
adf.USA.Px_dl.pval <- adf.USA.Px_dl$p.value
adf.USA.X_dl.pval <- adf.USA.X_dl$p.value
adf.USA.M_dl.pval <- adf.USA.M_dl$p.value
adf.USA.I_dl.pval <- adf.USA.I_dl$p.value
adf.USA.C_dl.pval <- adf.USA.C_dl$p.value
adf.USA.Ipr_dl.pval <- adf.USA.Ipr_dl$p.value
adf.USA.Ips_dl.pval <- adf.USA.Ips_dl$p.value
adf.USA.It_dl.pval <- adf.USA.It_dl$p.value
adf.USA.Itcurr_dl.pval <- adf.USA.Itcurr_dl$p.value
adf.USA.Yf_dl.pval <- adf.USA.Yf_dl$p.value
adf.USA.W_dl.pval <- adf.USA.W_dl$p.value

adf.USA_dl <- rbind(adf.USA.WS_dl.pval,adf.USA.PS_dl.pval,adf.USA.Y_dl.pval,adf.USA.Yrw_dl.pval,adf.USA.r_dl.pval,adf.USA.R_dl.pval,adf.USA.Tau_dl.pval,adf.USA.rulc_dl.pval,adf.USA.ulc_dl.pval,adf.USA.P_dl.pval,adf.USA.Pm_dl.pval,adf.USA.Px_dl.pval,adf.USA.X_dl.pval,adf.USA.M_dl.pval,adf.USA.I_dl.pval,adf.USA.C_dl.pval,adf.USA.Ipr_dl.pval,adf.USA.Ips_dl.pval,adf.USA.It_dl.pval,adf.USA.Itcurr_dl.pval,adf.USA.Yf_dl.pval,adf.USA.W_dl.pval)
colnames(adf.USA_dl) <- c("USA")
rownames(adf.USA_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.USA_dl
##                     USA
## dlog(WS)     0.01000000
## dlog(PS)     0.01000000
## dlog(Y)      0.01000000
## dlog(Yrw)    0.01000000
## dlog(r)      0.01000000
## dlog(R)      0.01000000
## dlog(Tau)    0.01000000
## dlog(rulc)   0.01000000
## dlog(ulc)    0.05409671
## dlog(P)      0.29298829
## dlog(Pm)     0.06478720
## dlog(Px)     0.07141159
## dlog(X)      0.01000000
## dlog(M)      0.01000000
## dlog(I)      0.01000000
## dlog(C)      0.01093446
## dlog(Ipr)    0.01000000
## dlog(Ips)    0.01000000
## dlog(It)     0.01000000
## dlog(Itcurr) 0.01000000
## dlog(Yf)     0.01000000
## dlog(W)      0.01000000
adf.USA <- NULL
adf.USA <- rbind(adf.USA_non,adf.USA_dl)

Økonometriske test

#Consumption (C)
USA_consumption <- dynlm(USA$C_dl~USA$R_dl+USA$W_dl)
USA_CR <- summary(USA_consumption)$coefficients["USA$R_dl","Estimate"]
USA_CW <- summary(USA_consumption)$coefficients["USA$W_dl","Estimate"]
USA_Ceffekt <- (USA_CR*mean(USA$C/USA$R))-(USA_CW*mean(USA$C/USA$W))
summary(USA_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$C_dl ~ USA$R_dl + USA$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.013976 -0.003872 -0.000206  0.004366  0.018041 
## 
## Coefficients:
##             Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) 0.010472   0.001697   6.171 0.0000000906226848 ***
## USA$R_dl    0.236349   0.036661   6.447 0.0000000325047248 ***
## USA$W_dl    0.522732   0.052037  10.045 0.0000000000000582 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.007406 on 54 degrees of freedom
## Multiple R-squared:  0.8217, Adjusted R-squared:  0.8151 
## F-statistic: 124.4 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Investments (I)
USA_investment <- dynlm(USA$I_dl~USA$PS_dl+USA$Y_dl)
USA_iPS <- summary(USA_investment)$coefficients["USA$PS_dl","Estimate"]
USA_iPS <- 0
USA_Ieffekt <- USA_iPS*mean(USA$I/USA$R)
summary(USA_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$I_dl ~ USA$PS_dl + USA$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.084817 -0.016281  0.001683  0.015697  0.077308 
## 
## Coefficients:
##              Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.043084   0.007349  -5.863          0.000000283 ***
## USA$PS_dl   -0.150859   0.226852  -0.665                0.509    
## USA$Y_dl     2.718730   0.206798  13.147 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03064 on 54 degrees of freedom
## Multiple R-squared:  0.7659, Adjusted R-squared:  0.7572 
## F-statistic: 88.33 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Price deflator (P)
USA_deflator <- dynlm(USA$P_dl~L(USA$ulc_dl)+USA$Pm_dl)
USA_ePULC <- summary(USA_deflator)$coefficients["L(USA$ulc_dl)","Estimate"]
summary(USA_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$P_dl ~ L(USA$ulc_dl) + USA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.016506 -0.004758 -0.001976  0.004244  0.027342 
## 
## Coefficients:
##               Estimate Std. Error t value             Pr(>|t|)    
## (Intercept)   0.009264   0.001977   4.685            0.0000193 ***
## L(USA$ulc_dl) 0.759097   0.064977  11.683 < 0.0000000000000002 ***
## USA$Pm_dl     0.034999   0.022062   1.586                0.118    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.008837 on 54 degrees of freedom
## Multiple R-squared:  0.8418, Adjusted R-squared:  0.836 
## F-statistic: 143.7 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Export price deflator (Px)
USA_exportdeflator <- dynlm(USA$Px_dl~USA$ulc_dl+USA$Pm_dl)
USA_ePX <- summary(USA_exportdeflator)$coefficients["USA$ulc_dl","Estimate"]
summary(USA_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$Px_dl ~ USA$ulc_dl + USA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042262 -0.008381 -0.000197  0.007110  0.038698 
## 
## Coefficients:
##             Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) 0.002448   0.003235   0.757              0.4525    
## USA$ulc_dl  0.225586   0.106306   2.122              0.0384 *  
## USA$Pm_dl   0.522300   0.036094  14.471 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01446 on 54 degrees of freedom
## Multiple R-squared:  0.8923, Adjusted R-squared:  0.8883 
## F-statistic: 223.6 on 2 and 54 DF,  p-value: < 0.00000000000000022
#Exports (X)
USA_exports <- dynlm(USA$X_dl~L(USA$dPxdPm)+USA$Yrw_dl)
USA_eXP <- summary(USA_exports)$coefficients["L(USA$dPxdPm)","Estimate"]
USA_Xeffekt <- -(USA_eXP*USA_ePX*(1/(1-USA_ePULC))*mean(USA$Yf/USA$Y)*(mean(USA$X/USA$Y)/mean(USA$rulc)))
summary(USA_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$X_dl ~ L(USA$dPxdPm) + USA$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.076510 -0.026707 -0.000561  0.027131  0.076411 
## 
## Coefficients:
##                Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)    0.007463   0.009301   0.802      0.426    
## L(USA$dPxdPm) -0.656192   0.142903  -4.592 0.00002668 ***
## USA$Yrw_dl     1.448493   0.265557   5.455 0.00000126 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03593 on 54 degrees of freedom
## Multiple R-squared:  0.5091, Adjusted R-squared:  0.4909 
## F-statistic:    28 on 2 and 54 DF,  p-value: 0.00000000454
#Imports (M)
USA_imports <- dynlm(USA$M_dl~USA$dPdPm+USA$Y_l)
USA_eMP <- summary(USA_imports)$coefficients["USA$dPdPm","Estimate"]
USA_eMP <- 0
USA_Meffekt <- -(USA_eMP*USA_ePULC*(1/(1-USA_ePULC))*mean(USA$Yf/USA$Y)*(mean(USA$M/USA$Y)/mean(USA$rulc)))
summary(USA_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$M_dl ~ USA$dPdPm + USA$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.205762 -0.021743  0.002994  0.027107  0.150615 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  0.25723    0.15830   1.625    0.110
## USA$dPdPm    0.16479    0.14356   1.148    0.256
## USA$Y_l     -0.02194    0.01728  -1.270    0.210
## 
## Residual standard error: 0.06232 on 54 degrees of freedom
## Multiple R-squared:  0.04464,    Adjusted R-squared:  0.009261 
## F-statistic: 1.262 on 2 and 54 DF,  p-value: 0.2914
names(USA_consumption$coefficients) <- sub("USA$","",names(USA_consumption$coefficients),fixed=TRUE)
names(USA_investment$coefficients) <- sub("USA$","",names(USA_investment$coefficients),fixed=TRUE)
names(USA_deflator$coefficients) <- sub("USA$","",names(USA_deflator$coefficients),fixed=TRUE)
names(USA_exportdeflator$coefficients) <- sub("USA$","",names(USA_exportdeflator$coefficients),fixed=TRUE)
names(USA_exports$coefficients) <- sub("USA$","",names(USA_exports$coefficients),fixed=TRUE)
names(USA_imports$coefficients) <- sub("USA$","",names(USA_imports$coefficients),fixed=TRUE)

USA_Xeffekt
## [1] 0.06841105
USA_Meffekt
## [1] 0
#Nettoeksport (NX)
USA_NXeffekt <- USA_Xeffekt - USA_Meffekt

USA_NXeffekt
## [1] 0.06841105
#Nettoeffekten
USA_Neteffekt = USA_Ceffekt + USA_Ieffekt + USA_NXeffekt

USA_Neteffekt
## [1] -0.02923659
USA_Lukket <- USA_Ceffekt + USA_Ieffekt
USA_Lukket_Konklusion <- ifelse(USA_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
USA_Lukket_Konklusion
## [1] "Wage-led domestic"
USA_Def <- ifelse(USA_Neteffekt > 0, "Profit-led", "Wage-led")
USA_Def
## [1] "Wage-led"

Kointegrations-test

summary(ur.df(y=USA_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0135377 -0.0033774  0.0002086  0.0039571  0.0138175 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1       -1.7541     0.6886  -2.547   0.0160 *
## z.diff.lag1    0.9888     0.6343   1.559   0.1292  
## z.diff.lag2    0.8688     0.5899   1.473   0.1509  
## z.diff.lag3    0.9279     0.5417   1.713   0.0968 .
## z.diff.lag4    0.6446     0.4909   1.313   0.1988  
## z.diff.lag5    0.7163     0.4560   1.571   0.1263  
## z.diff.lag6    0.6378     0.4430   1.440   0.1599  
## z.diff.lag7    0.7897     0.3946   2.001   0.0542 .
## z.diff.lag8    0.5108     0.3693   1.383   0.1765  
## z.diff.lag9    0.1779     0.3135   0.567   0.5745  
## z.diff.lag10   0.2959     0.2768   1.069   0.2934  
## z.diff.lag11   0.2533     0.2192   1.156   0.2567  
## z.diff.lag12   0.1248     0.1726   0.723   0.4752  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.006884 on 31 degrees of freedom
## Multiple R-squared:  0.6291, Adjusted R-squared:  0.4736 
## F-statistic: 4.045 on 13 and 31 DF,  p-value: 0.0006914
## 
## 
## Value of test-statistic is: -2.5474 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=USA_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.041915 -0.011208 -0.003296  0.014567  0.064376 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.99177    0.51922  -1.910   0.0654 .
## z.diff.lag1   0.58403    0.48592   1.202   0.2385  
## z.diff.lag2   0.59009    0.46594   1.266   0.2148  
## z.diff.lag3   0.49038    0.42685   1.149   0.2594  
## z.diff.lag4   0.17864    0.41443   0.431   0.6694  
## z.diff.lag5   0.50998    0.39141   1.303   0.2022  
## z.diff.lag6   0.20178    0.37160   0.543   0.5910  
## z.diff.lag7   0.28759    0.30877   0.931   0.3588  
## z.diff.lag8   0.27330    0.28481   0.960   0.3447  
## z.diff.lag9   0.23949    0.25490   0.940   0.3547  
## z.diff.lag10 -0.08722    0.23289  -0.375   0.7106  
## z.diff.lag11 -0.01450    0.21071  -0.069   0.9456  
## z.diff.lag12  0.03043    0.18587   0.164   0.8710  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02532 on 31 degrees of freedom
## Multiple R-squared:  0.4113, Adjusted R-squared:  0.1645 
## F-statistic: 1.666 on 13 and 31 DF,  p-value: 0.1197
## 
## 
## Value of test-statistic is: -1.9101 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=USA_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.057265 -0.011571  0.002123  0.014391  0.067422 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -0.63663    0.33022  -1.928   0.0631 .
## z.diff.lag1   0.08152    0.31747   0.257   0.7990  
## z.diff.lag2   0.17462    0.29922   0.584   0.5637  
## z.diff.lag3   0.30717    0.28691   1.071   0.2926  
## z.diff.lag4   0.10084    0.28903   0.349   0.7295  
## z.diff.lag5   0.11599    0.27310   0.425   0.6740  
## z.diff.lag6   0.14215    0.26087   0.545   0.5897  
## z.diff.lag7   0.10576    0.24602   0.430   0.6703  
## z.diff.lag8   0.17749    0.23176   0.766   0.4495  
## z.diff.lag9   0.14788    0.21181   0.698   0.4903  
## z.diff.lag10  0.14670    0.20981   0.699   0.4896  
## z.diff.lag11  0.13874    0.19457   0.713   0.4811  
## z.diff.lag12 -0.06563    0.15619  -0.420   0.6773  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03307 on 31 degrees of freedom
## Multiple R-squared:  0.4136, Adjusted R-squared:  0.1677 
## F-statistic: 1.682 on 13 and 31 DF,  p-value: 0.1156
## 
## 
## Value of test-statistic is: -1.9279 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=USA_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.155123 -0.024699  0.000817  0.037133  0.101126 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)  
## z.lag.1      -1.25381    0.73320  -1.710   0.0972 .
## z.diff.lag1   0.40151    0.69859   0.575   0.5696  
## z.diff.lag2   0.38761    0.67798   0.572   0.5716  
## z.diff.lag3   0.19121    0.64589   0.296   0.7692  
## z.diff.lag4   0.09383    0.59191   0.159   0.8751  
## z.diff.lag5   0.11652    0.56721   0.205   0.8386  
## z.diff.lag6   0.12201    0.52568   0.232   0.8180  
## z.diff.lag7   0.19804    0.47853   0.414   0.6818  
## z.diff.lag8   0.34802    0.42522   0.818   0.4193  
## z.diff.lag9  -0.04578    0.37859  -0.121   0.9045  
## z.diff.lag10  0.15382    0.30971   0.497   0.6229  
## z.diff.lag11  0.31354    0.26064   1.203   0.2381  
## z.diff.lag12  0.15526    0.20860   0.744   0.4623  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06756 on 31 degrees of freedom
## Multiple R-squared:  0.5977, Adjusted R-squared:  0.429 
## F-statistic: 3.543 on 13 and 31 DF,  p-value: 0.001897
## 
## 
## Value of test-statistic is: -1.7101 
## 
## Critical values for test statistics: 
##      1pct  5pct 10pct
## tau1 -2.6 -1.95 -1.61

Test plots

plot(USA_consumption)

plot(USA_investment)

plot(USA_deflator)

plot(USA_exportdeflator)

plot(USA_exports)

plot(USA_imports)

bptest(USA_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  USA_consumption
## BP = 7.5459, df = 2, p-value = 0.02298
bptest(USA_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  USA_investment
## BP = 0.51183, df = 2, p-value = 0.7742
bptest(USA_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  USA_deflator
## BP = 6.965, df = 2, p-value = 0.03073
bptest(USA_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  USA_exportdeflator
## BP = 11.398, df = 2, p-value = 0.003349
bptest(USA_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  USA_exports
## BP = 0.50157, df = 2, p-value = 0.7782
bptest(USA_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  USA_imports
## BP = 2.6199, df = 2, p-value = 0.2698
resettest(USA_consumption)
## 
##  RESET test
## 
## data:  USA_consumption
## RESET = 1.6132, df1 = 2, df2 = 52, p-value = 0.2091
resettest(USA_investment)
## 
##  RESET test
## 
## data:  USA_investment
## RESET = 4.326, df1 = 2, df2 = 52, p-value = 0.01829
resettest(USA_deflator)
## 
##  RESET test
## 
## data:  USA_deflator
## RESET = 5.2033, df1 = 2, df2 = 52, p-value = 0.008712
resettest(USA_exportdeflator)
## 
##  RESET test
## 
## data:  USA_exportdeflator
## RESET = 0.74244, df1 = 2, df2 = 52, p-value = 0.4809
resettest(USA_exports)
## 
##  RESET test
## 
## data:  USA_exports
## RESET = 2.3591, df1 = 2, df2 = 52, p-value = 0.1045
resettest(USA_imports)
## 
##  RESET test
## 
## data:  USA_imports
## RESET = 0.57174, df1 = 2, df2 = 52, p-value = 0.568

Resultater

USA_regtab <- matrix(c(USA_Ceffekt, USA_Ieffekt, USA_Lukket, USA_Xeffekt, USA_Meffekt, USA_NXeffekt, USA_Neteffekt,USA_Lukket_Konklusion, USA_Def),ncol=9,byrow=TRUE)
colnames(USA_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(USA_regtab) <- c("USA")
USA_regtab <- as.table(USA_regtab)
USA_regtab
##     consumption        investment Lukket neteffekt   exports           
## USA -0.097647639083685 0          -0.097647639083685 0.0684110478031558
##     imports netexports         neteffect           Lukket konklusion
## USA 0       0.0684110478031558 -0.0292365912805291 Wage-led domestic
##     Konklusion
## USA Wage-led
USA_smoke <- matrix(c(mean(USA$C/USA$R), mean(USA$C/USA$W), mean(USA$I/USA$R), USA_CR, USA_CW, USA_iPS, USA_ePULC, (1/(1-USA_ePULC)), USA_eXP, USA_ePX, USA_eMP, mean(USA$Yf/USA$Y), mean(USA$X/USA$Y), mean(USA$rulc), (mean(USA$X/USA$Y)/mean(USA$rulc))),ncol=15,byrow=TRUE)
colnames(USA_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(USA_smoke) <- c("USA")
USA_smoke <- as.table(USA_smoke)
USA_smoke
##             C/R         C/W         I/R          CR          CW
## USA  1.87916048  1.03644963  0.43073877  0.23634884  0.52273167
##             iPS       ePULC   1/1-epulc         eXP         ePX
## USA  0.00000000  0.75909736  4.15105460 -0.65619245  0.22558618
##             eMP        Yf/Y         X/Y        RULC  (X/Y)/rulc
## USA  0.00000000  0.95803892  0.07186168  0.61838140  0.11620931

Summary af regressioner

summary(USA_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$C_dl ~ USA$R_dl + USA$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.013976 -0.003872 -0.000206  0.004366  0.018041 
## 
## Coefficients:
##             Estimate Std. Error t value           Pr(>|t|)    
## (Intercept) 0.010472   0.001697   6.171 0.0000000906226848 ***
## R_dl        0.236349   0.036661   6.447 0.0000000325047248 ***
## W_dl        0.522732   0.052037  10.045 0.0000000000000582 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.007406 on 54 degrees of freedom
## Multiple R-squared:  0.8217, Adjusted R-squared:  0.8151 
## F-statistic: 124.4 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(USA_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$I_dl ~ USA$PS_dl + USA$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.084817 -0.016281  0.001683  0.015697  0.077308 
## 
## Coefficients:
##              Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) -0.043084   0.007349  -5.863          0.000000283 ***
## PS_dl       -0.150859   0.226852  -0.665                0.509    
## Y_dl         2.718730   0.206798  13.147 < 0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03064 on 54 degrees of freedom
## Multiple R-squared:  0.7659, Adjusted R-squared:  0.7572 
## F-statistic: 88.33 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(USA_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$P_dl ~ L(USA$ulc_dl) + USA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.016506 -0.004758 -0.001976  0.004244  0.027342 
## 
## Coefficients:
##             Estimate Std. Error t value             Pr(>|t|)    
## (Intercept) 0.009264   0.001977   4.685            0.0000193 ***
## L(ulc_dl)   0.759097   0.064977  11.683 < 0.0000000000000002 ***
## Pm_dl       0.034999   0.022062   1.586                0.118    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.008837 on 54 degrees of freedom
## Multiple R-squared:  0.8418, Adjusted R-squared:  0.836 
## F-statistic: 143.7 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(USA_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$Px_dl ~ USA$ulc_dl + USA$Pm_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042262 -0.008381 -0.000197  0.007110  0.038698 
## 
## Coefficients:
##             Estimate Std. Error t value            Pr(>|t|)    
## (Intercept) 0.002448   0.003235   0.757              0.4525    
## ulc_dl      0.225586   0.106306   2.122              0.0384 *  
## Pm_dl       0.522300   0.036094  14.471 <0.0000000000000002 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.01446 on 54 degrees of freedom
## Multiple R-squared:  0.8923, Adjusted R-squared:  0.8883 
## F-statistic: 223.6 on 2 and 54 DF,  p-value: < 0.00000000000000022
summary(USA_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$X_dl ~ L(USA$dPxdPm) + USA$Yrw_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.076510 -0.026707 -0.000561  0.027131  0.076411 
## 
## Coefficients:
##              Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)  0.007463   0.009301   0.802      0.426    
## L(dPxdPm)   -0.656192   0.142903  -4.592 0.00002668 ***
## Yrw_dl       1.448493   0.265557   5.455 0.00000126 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03593 on 54 degrees of freedom
## Multiple R-squared:  0.5091, Adjusted R-squared:  0.4909 
## F-statistic:    28 on 2 and 54 DF,  p-value: 0.00000000454
summary(USA_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 57
## 
## Call:
## dynlm(formula = USA$M_dl ~ USA$dPdPm + USA$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.205762 -0.021743  0.002994  0.027107  0.150615 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  0.25723    0.15830   1.625    0.110
## dPdPm        0.16479    0.14356   1.148    0.256
## Y_l         -0.02194    0.01728  -1.270    0.210
## 
## Residual standard error: 0.06232 on 54 degrees of freedom
## Multiple R-squared:  0.04464,    Adjusted R-squared:  0.009261 
## F-statistic: 1.262 on 2 and 54 DF,  p-value: 0.2914

Tyskland analyse

Test for NA værdier

DEU_df[!complete.cases(DEU_df),]
##             WS       WS_l        WS_dl        PS      PS_l        PS_dl
## 1960        NA         NA           NA        NA        NA           NA
## 1961        NA         NA           NA        NA        NA           NA
## 1962        NA         NA           NA        NA        NA           NA
## 1963        NA         NA           NA        NA        NA           NA
## 1964        NA         NA           NA        NA        NA           NA
## 1965        NA         NA           NA        NA        NA           NA
## 1966        NA         NA           NA        NA        NA           NA
## 1967        NA         NA           NA        NA        NA           NA
## 1968        NA         NA           NA        NA        NA           NA
## 1969        NA         NA           NA        NA        NA           NA
## 1970        NA         NA           NA        NA        NA           NA
## 1971        NA         NA           NA        NA        NA           NA
## 1972        NA         NA           NA        NA        NA           NA
## 1973        NA         NA           NA        NA        NA           NA
## 1974        NA         NA           NA        NA        NA           NA
## 1975        NA         NA           NA        NA        NA           NA
## 1976        NA         NA           NA        NA        NA           NA
## 1977        NA         NA           NA        NA        NA           NA
## 1978        NA         NA           NA        NA        NA           NA
## 1979        NA         NA           NA        NA        NA           NA
## 1980        NA         NA           NA        NA        NA           NA
## 1981        NA         NA           NA        NA        NA           NA
## 1982        NA         NA           NA        NA        NA           NA
## 1983        NA         NA           NA        NA        NA           NA
## 1984        NA         NA           NA        NA        NA           NA
## 1985        NA         NA           NA        NA        NA           NA
## 1986        NA         NA           NA        NA        NA           NA
## 1987        NA         NA           NA        NA        NA           NA
## 1988        NA         NA           NA        NA        NA           NA
## 1989        NA         NA           NA        NA        NA           NA
## 1990        NA         NA           NA        NA        NA           NA
## 1991 0.6423539 -0.4426159           NA 0.3576461 -1.028211           NA
## 1992 0.6533819 -0.4255935  0.017022366 0.3466181 -1.059532 -0.031320288
## 2019 0.6568661 -0.4202752  0.013870046 0.3431339 -1.069634 -0.026026681
## 2020 0.6559190 -0.4217179 -0.001442744 0.3440810 -1.066878  0.002756071
## 2021 0.6509527 -0.4293183 -0.007600391 0.3490473 -1.052548  0.014330476
## 2022        NA         NA           NA        NA        NA           NA
##             Y      Y_l         Y_dl            Yrw    Yrw_l        Yrw_dl
## 1960       NA       NA           NA  5854229569019 29.39819            NA
## 1961       NA       NA           NA  6207391581344 29.45676  0.0585763692
## 1962       NA       NA           NA  6565158437932 29.51280  0.0560358687
## 1963       NA       NA           NA  6961023665524 29.57135  0.0585499007
## 1964       NA       NA           NA  7442668140591 29.63825  0.0669028637
## 1965       NA       NA           NA  7818775155889 29.68755  0.0492985070
## 1966       NA       NA           NA  8273573770758 29.74409  0.0565386398
## 1967       NA       NA           NA  8749755625143 29.80005  0.0559592190
## 1968       NA       NA           NA  9361136753158 29.86759  0.0675409597
## 1969       NA       NA           NA 10028904874151 29.93649  0.0689046799
## 1970       NA       NA           NA 10429414863916 29.97565  0.0391587552
## 1971       NA       NA           NA 10873999497165 30.01740  0.0417444063
## 1972       NA       NA           NA 11499542646223 30.07333  0.0559326922
## 1973       NA       NA           NA 12263046535497 30.13761  0.0642831289
## 1974       NA       NA           NA 12506548925291 30.15727  0.0196620276
## 1975       NA       NA           NA 12500248008917 30.15677 -0.0005039363
## 1976       NA       NA           NA 13098816465739 30.20354  0.0467733952
## 1977       NA       NA           NA 13563735778365 30.23842  0.0348778644
## 1978       NA       NA           NA 14036689016070 30.27270  0.0342748013
## 1979       NA       NA           NA 14678781578475 30.31742  0.0447284753
## 1980       NA       NA           NA 15012070253662 30.33988  0.0224515401
## 1981       NA       NA           NA 15272518067013 30.35708  0.0172004474
## 1982       NA       NA           NA 15379983658710 30.36409  0.0070118931
## 1983       NA       NA           NA 15672664257157 30.38294  0.0188511631
## 1984       NA       NA           NA 16200811735720 30.41608  0.0331432834
## 1985       NA       NA           NA 16737848041754 30.44869  0.0326111568
## 1986       NA       NA           NA 17262134501637 30.47954  0.0308428406
## 1987       NA       NA           NA 17868000973679 30.51403  0.0344961124
## 1988       NA       NA           NA 18781549954868 30.56390  0.0498635446
## 1989       NA       NA           NA 19532657826725 30.60311  0.0392128225
## 1990       NA       NA           NA 20259693228943 30.63965  0.0365455319
## 1991 2215.890 7.703409           NA 20715284390085 30.66189  0.0222384471
## 1992 2258.614 7.722507  0.019097222 21014228425241 30.67622  0.0143279482
## 2019 3240.660 8.083532  0.005626074             NA       NA            NA
## 2020 3031.003 8.016649 -0.066883425             NA       NA            NA
## 2021 3208.995 8.073713  0.057064216             NA       NA            NA
## 2022       NA       NA           NA             NA       NA            NA
##           Tax       Yf     Yf_l        Yf_dl        C      C_l        C_dl
## 1960       NA       NA       NA           NA       NA       NA          NA
## 1961       NA       NA       NA           NA       NA       NA          NA
## 1962       NA       NA       NA           NA       NA       NA          NA
## 1963       NA       NA       NA           NA       NA       NA          NA
## 1964       NA       NA       NA           NA       NA       NA          NA
## 1965       NA       NA       NA           NA       NA       NA          NA
## 1966       NA       NA       NA           NA       NA       NA          NA
## 1967       NA       NA       NA           NA       NA       NA          NA
## 1968       NA       NA       NA           NA       NA       NA          NA
## 1969       NA       NA       NA           NA       NA       NA          NA
## 1970       NA       NA       NA           NA       NA       NA          NA
## 1971       NA       NA       NA           NA       NA       NA          NA
## 1972       NA       NA       NA           NA       NA       NA          NA
## 1973       NA       NA       NA           NA       NA       NA          NA
## 1974       NA       NA       NA           NA       NA       NA          NA
## 1975       NA       NA       NA           NA       NA       NA          NA
## 1976       NA       NA       NA           NA       NA       NA          NA
## 1977       NA       NA       NA           NA       NA       NA          NA
## 1978       NA       NA       NA           NA       NA       NA          NA
## 1979       NA       NA       NA           NA       NA       NA          NA
## 1980       NA       NA       NA           NA       NA       NA          NA
## 1981       NA       NA       NA           NA       NA       NA          NA
## 1982       NA       NA       NA           NA       NA       NA          NA
## 1983       NA       NA       NA           NA       NA       NA          NA
## 1984       NA       NA       NA           NA       NA       NA          NA
## 1985       NA       NA       NA           NA       NA       NA          NA
## 1986       NA       NA       NA           NA       NA       NA          NA
## 1987       NA       NA       NA           NA       NA       NA          NA
## 1988       NA       NA       NA           NA       NA       NA          NA
## 1989       NA       NA       NA           NA       NA       NA          NA
## 1990       NA       NA       NA           NA       NA       NA          NA
## 1991 161.0210 2054.869 7.627967           NA 1258.567 7.137729          NA
## 1992 173.0900 2085.524 7.642775  0.014808044 1295.419 7.166589  0.02886042
## 2019 375.5970 2865.063 7.960346  0.001843892 1707.999 7.443078  0.01550424
## 2020 350.7557 2680.247 7.893664 -0.066681273 1567.054 7.356953 -0.08612509
## 2021 377.0030 2831.992 7.948736  0.055071285 1660.364 7.414792  0.05783943
## 2022       NA       NA       NA           NA       NA       NA          NA
##             W      W_l        W_dl        R      R_l        R_dl       It
## 1960       NA       NA          NA       NA       NA          NA       NA
## 1961       NA       NA          NA       NA       NA          NA       NA
## 1962       NA       NA          NA       NA       NA          NA       NA
## 1963       NA       NA          NA       NA       NA          NA       NA
## 1964       NA       NA          NA       NA       NA          NA       NA
## 1965       NA       NA          NA       NA       NA          NA       NA
## 1966       NA       NA          NA       NA       NA          NA       NA
## 1967       NA       NA          NA       NA       NA          NA       NA
## 1968       NA       NA          NA       NA       NA          NA       NA
## 1969       NA       NA          NA       NA       NA          NA       NA
## 1970       NA       NA          NA       NA       NA          NA       NA
## 1971       NA       NA          NA       NA       NA          NA       NA
## 1972       NA       NA          NA       NA       NA          NA       NA
## 1973       NA       NA          NA       NA       NA          NA       NA
## 1974       NA       NA          NA       NA       NA          NA       NA
## 1975       NA       NA          NA       NA       NA          NA       NA
## 1976       NA       NA          NA       NA       NA          NA       NA
## 1977       NA       NA          NA       NA       NA          NA       NA
## 1978       NA       NA          NA       NA       NA          NA       NA
## 1979       NA       NA          NA       NA       NA          NA       NA
## 1980       NA       NA          NA       NA       NA          NA       NA
## 1981       NA       NA          NA       NA       NA          NA       NA
## 1982       NA       NA          NA       NA       NA          NA       NA
## 1983       NA       NA          NA       NA       NA          NA       NA
## 1984       NA       NA          NA       NA       NA          NA       NA
## 1985       NA       NA          NA       NA       NA          NA       NA
## 1986       NA       NA          NA       NA       NA          NA       NA
## 1987       NA       NA          NA       NA       NA          NA       NA
## 1988       NA       NA          NA       NA       NA          NA       NA
## 1989       NA       NA          NA       NA       NA          NA       NA
## 1990       NA       NA          NA       NA       NA          NA       NA
## 1991 1319.953 7.185351          NA 734.9159 6.599756          NA 489.4186
## 1992 1362.644 7.217182  0.03183041 722.8804 6.583244 -0.01651224 511.3536
## 2019 1881.963 7.540070  0.01571394 983.1004 6.890711 -0.02418279 683.9256
## 2020 1758.025 7.471946 -0.06812402 922.2221 6.826786 -0.06392520 644.4054
## 2021 1843.493 7.519417  0.04747089 988.4992 6.896188  0.06940176 682.5412
## 2022       NA       NA          NA       NA       NA          NA       NA
##          It_l       It_dl   Itcurr Itcurr_l   Itcurr_dl      Ipr    Ipr_l
## 1960       NA          NA       NA       NA          NA       NA       NA
## 1961       NA          NA       NA       NA          NA       NA       NA
## 1962       NA          NA       NA       NA          NA       NA       NA
## 1963       NA          NA       NA       NA          NA       NA       NA
## 1964       NA          NA       NA       NA          NA       NA       NA
## 1965       NA          NA       NA       NA          NA       NA       NA
## 1966       NA          NA       NA       NA          NA       NA       NA
## 1967       NA          NA       NA       NA          NA       NA       NA
## 1968       NA          NA       NA       NA          NA       NA       NA
## 1969       NA          NA       NA       NA          NA       NA       NA
## 1970       NA          NA       NA       NA          NA       NA       NA
## 1971       NA          NA       NA       NA          NA       NA       NA
## 1972       NA          NA       NA       NA          NA       NA       NA
## 1973       NA          NA       NA       NA          NA       NA       NA
## 1974       NA          NA       NA       NA          NA       NA       NA
## 1975       NA          NA       NA       NA          NA       NA       NA
## 1976       NA          NA       NA       NA          NA       NA       NA
## 1977       NA          NA       NA       NA          NA       NA       NA
## 1978       NA          NA       NA       NA          NA       NA       NA
## 1979       NA          NA       NA       NA          NA       NA       NA
## 1980       NA          NA       NA       NA          NA       NA       NA
## 1981       NA          NA       NA       NA          NA       NA       NA
## 1982       NA          NA       NA       NA          NA       NA       NA
## 1983       NA          NA       NA       NA          NA       NA       NA
## 1984       NA          NA       NA       NA          NA       NA       NA
## 1985       NA          NA       NA       NA          NA       NA       NA
## 1986       NA          NA       NA       NA          NA       NA       NA
## 1987       NA          NA       NA       NA          NA       NA       NA
## 1988       NA          NA       NA       NA          NA       NA       NA
## 1989       NA          NA       NA       NA          NA       NA       NA
## 1990       NA          NA       NA       NA          NA       NA       NA
## 1991 6.193218          NA 394.7210 5.978179          NA 344.9460 5.843388
## 1992 6.237061  0.04384317 428.9390 6.061315  0.08313553 373.6210 5.923242
## 2019 6.527849  0.02566542 746.8740 6.615896  0.05384937 661.3590 6.494297
## 2020 6.468328 -0.05952111 717.7619 6.576138 -0.03975860 625.8580 6.439124
## 2021 6.525823  0.05749486 777.5564 6.656156  0.08001828 680.0105 6.522108
## 2022       NA          NA       NA       NA          NA       NA       NA
##           Ipr_dl       Ips      Ips_l       Ips_dl        I      I_l
## 1960          NA        NA         NA           NA       NA       NA
## 1961          NA        NA         NA           NA       NA       NA
## 1962          NA        NA         NA           NA       NA       NA
## 1963          NA        NA         NA           NA       NA       NA
## 1964          NA        NA         NA           NA       NA       NA
## 1965          NA        NA         NA           NA       NA       NA
## 1966          NA        NA         NA           NA       NA       NA
## 1967          NA        NA         NA           NA       NA       NA
## 1968          NA        NA         NA           NA       NA       NA
## 1969          NA        NA         NA           NA       NA       NA
## 1970          NA        NA         NA           NA       NA       NA
## 1971          NA        NA         NA           NA       NA       NA
## 1972          NA        NA         NA           NA       NA       NA
## 1973          NA        NA         NA           NA       NA       NA
## 1974          NA        NA         NA           NA       NA       NA
## 1975          NA        NA         NA           NA       NA       NA
## 1976          NA        NA         NA           NA       NA       NA
## 1977          NA        NA         NA           NA       NA       NA
## 1978          NA        NA         NA           NA       NA       NA
## 1979          NA        NA         NA           NA       NA       NA
## 1980          NA        NA         NA           NA       NA       NA
## 1981          NA        NA         NA           NA       NA       NA
## 1982          NA        NA         NA           NA       NA       NA
## 1983          NA        NA         NA           NA       NA       NA
## 1984          NA        NA         NA           NA       NA       NA
## 1985          NA        NA         NA           NA       NA       NA
## 1986          NA        NA         NA           NA       NA       NA
## 1987          NA        NA         NA           NA       NA       NA
## 1988          NA        NA         NA           NA       NA       NA
## 1989          NA        NA         NA           NA       NA       NA
## 1990          NA        NA         NA           NA       NA       NA
## 1991          NA 0.8738983 -0.1347913           NA 427.7021 6.058427
## 1992  0.07985403 0.8710353 -0.1380728 -0.003281500 445.4070 6.098989
## 2019  0.05147165 0.8855028 -0.1215997 -0.002377723 605.6180 6.406249
## 2020 -0.05517330 0.8719577 -0.1370144 -0.015414703 561.8942 6.331314
## 2021  0.08298473 0.8745481 -0.1340479  0.002966448 596.9151 6.391775
## 2022          NA        NA         NA           NA       NA       NA
##             I_dl        r      r_l       r_dl         P      P_l
## 1960          NA       NA       NA         NA  22.19090 3.099682
## 1961          NA       NA       NA         NA  23.24077 3.145908
## 1962          NA       NA       NA         NA  24.15110 3.184330
## 1963          NA       NA       NA         NA  24.89615 3.214713
## 1964          NA       NA       NA         NA  25.64937 3.244519
## 1965          NA       NA       NA         NA  26.60496 3.281098
## 1966          NA       NA       NA         NA  27.52088 3.314945
## 1967          NA       NA       NA         NA  27.95183 3.330483
## 1968          NA       NA       NA         NA  28.59377 3.353189
## 1969          NA       NA       NA         NA  29.78553 3.394023
## 1970          NA       NA       NA         NA  32.07914 3.468206
## 1971          NA       NA       NA         NA  34.52400 3.541655
## 1972          NA       NA       NA         NA  36.08858 3.585977
## 1973          NA       NA       NA         NA  38.36199 3.647067
## 1974          NA       NA       NA         NA  41.15293 3.717295
## 1975          NA       NA       NA         NA  43.48491 3.772414
## 1976          NA       NA       NA         NA  44.92261 3.804941
## 1977          NA       NA       NA         NA  46.31553 3.835477
## 1978          NA       NA       NA         NA  47.95781 3.870322
## 1979          NA       NA       NA         NA  50.00951 3.912213
## 1980          NA       NA       NA         NA  52.73563 3.965291
## 1981          NA       NA       NA         NA  54.93746 4.006195
## 1982          NA       NA       NA         NA  57.45418 4.050988
## 1983          NA       NA       NA         NA  59.06746 4.078680
## 1984          NA       NA       NA         NA  60.24240 4.098376
## 1985          NA       NA       NA         NA  61.52238 4.119401
## 1986          NA       NA       NA         NA  63.36777 4.148955
## 1987          NA       NA       NA         NA  64.17867 4.161671
## 1988          NA       NA       NA         NA  65.26359 4.178434
## 1989          NA       NA       NA         NA  67.14257 4.206818
## 1990          NA       NA       NA         NA  69.42316 4.240221
## 1991          NA       NA       NA         NA  71.56492 4.270605
## 1992  0.04056167  2.41115 1.752095         NA  75.35860 4.322258
## 2019  0.02328770 -2.35552 0.000000 -0.8153903 106.02038 4.663631
## 2020 -0.07493581       NA       NA         NA 108.28340 4.684752
## 2021  0.06046131       NA       NA         NA 110.03404 4.700790
## 2022          NA       NA       NA         NA        NA       NA
##            P_dl        Pm     Pm_l        Pm_dl        Px     Px_l
## 1960         NA  45.51832 3.818115           NA  37.09301 3.613429
## 1961 0.04622571  44.43546 3.794038 -0.024076997  36.76024 3.604417
## 1962 0.03842171  44.33084 3.791681 -0.002357276  37.47668 3.623719
## 1963 0.03038334  45.38310 3.815140  0.023459088  37.83464 3.633225
## 1964 0.02980590  46.19565 3.832886  0.017746036  38.83770 3.659392
## 1965 0.03657839  47.55459 3.861878  0.028992514  39.88557 3.686015
## 1966 0.03384750  48.40740 3.879653  0.017774431  40.90002 3.711131
## 1967 0.01553764  47.72939 3.865547 -0.014105327  40.99052 3.713341
## 1968 0.02270632  48.04525 3.872143  0.006595991  41.01070 3.713833
## 1969 0.04083356  48.94956 3.890790  0.018647000  42.65650 3.753180
## 1970 0.07418353  45.74480 3.823078 -0.067712272  44.08087 3.786026
## 1971 0.07344873  46.43686 3.838093  0.015015376  46.00562 3.828763
## 1972 0.04432169  47.24497 3.855346  0.017252779  47.21491 3.854710
## 1973 0.06109056  51.29779 3.937648  0.082301493  50.11473 3.914315
## 1974 0.07022807  63.28156 4.147594  0.209946198  57.62508 4.053958
## 1975 0.05511894  64.68216 4.169485  0.021891495  60.33713 4.099948
## 1976 0.03252718  68.29934 4.223900  0.054414622  62.64479 4.137481
## 1977 0.03053614  69.60283 4.242805  0.018905236  63.85867 4.156672
## 1978 0.03484424  68.37260 4.224972 -0.017833118  65.01419 4.174606
## 1979 0.04189156  74.16675 4.306316  0.081343746  67.98199 4.219243
## 1980 0.05307803  83.52666 4.425166  0.118850018  72.01478 4.276871
## 1981 0.04090427  93.30771 4.535903  0.110736801  76.05873 4.331506
## 1982 0.04479226  95.80007 4.562263  0.026360673  79.18888 4.371836
## 1983 0.02769244  96.44129 4.568934  0.006671032  80.80458 4.392034
## 1984 0.01969615 101.15689 4.616673  0.047738209  83.34629 4.423004
## 1985 0.02102470 103.51975 4.639762  0.023089804  85.58104 4.449464
## 1986 0.02955436  91.60731 4.517511 -0.122251369  84.67929 4.438871
## 1987 0.01271550  87.25912 4.468882 -0.048628943  83.87666 4.429347
## 1988 0.01676333  89.03423 4.489021  0.020138824  85.36485 4.446934
## 1989 0.02838400  93.68763 4.539966  0.050945196  87.48460 4.471463
## 1990 0.03340231  92.49129 4.527114 -0.012851657  87.56185 4.472345
## 1991 0.03038444  95.10680 4.555000  0.027885942  88.80248 4.486415
## 1992 0.05165305  93.11671 4.533854 -0.021146825  89.69274 4.496390
## 2019 0.02133392 101.80637 4.623073 -0.001192641 102.62202 4.631053
## 2020 0.02112047  99.62199 4.601383 -0.021689726 102.96784 4.634417
## 2021 0.01603797 100.09663 4.606136  0.004753091 103.33265 4.637953
## 2022         NA        NA       NA           NA        NA       NA
##              Px_dl        X      X_l         X_dl        M      M_l
## 1960            NA       NA       NA           NA       NA       NA
## 1961 -0.0090118725       NA       NA           NA       NA       NA
## 1962  0.0193020552       NA       NA           NA       NA       NA
## 1963  0.0095062072       NA       NA           NA       NA       NA
## 1964  0.0261664791       NA       NA           NA       NA       NA
## 1965  0.0266230468       NA       NA           NA       NA       NA
## 1966  0.0251160901       NA       NA           NA       NA       NA
## 1967  0.0022101291       NA       NA           NA       NA       NA
## 1968  0.0004923268       NA       NA           NA       NA       NA
## 1969  0.0393465802       NA       NA           NA       NA       NA
## 1970  0.0328462459       NA       NA           NA       NA       NA
## 1971  0.0427375268       NA       NA           NA       NA       NA
## 1972  0.0259462268       NA       NA           NA       NA       NA
## 1973  0.0596051801       NA       NA           NA       NA       NA
## 1974  0.1396430792       NA       NA           NA       NA       NA
## 1975  0.0459897278       NA       NA           NA       NA       NA
## 1976  0.0375328989       NA       NA           NA       NA       NA
## 1977  0.0191917850       NA       NA           NA       NA       NA
## 1978  0.0179331517       NA       NA           NA       NA       NA
## 1979  0.0446372189       NA       NA           NA       NA       NA
## 1980  0.0576286931       NA       NA           NA       NA       NA
## 1981  0.0546344154       NA       NA           NA       NA       NA
## 1982  0.0403300868       NA       NA           NA       NA       NA
## 1983  0.0201977016       NA       NA           NA       NA       NA
## 1984  0.0309704489       NA       NA           NA       NA       NA
## 1985  0.0264596394       NA       NA           NA       NA       NA
## 1986 -0.0105927232       NA       NA           NA       NA       NA
## 1987 -0.0095236078       NA       NA           NA       NA       NA
## 1988  0.0175870474       NA       NA           NA       NA       NA
## 1989  0.0245282828       NA       NA           NA       NA       NA
## 1990  0.0008826527       NA       NA           NA       NA       NA
## 1991  0.0140692130  422.599 6.046424           NA  402.716 5.998232
## 1992  0.0099752717  421.179 6.043058 -0.003365817  414.858 6.027936
## 2019  0.0077278413 1570.869 7.359384  0.008713304 1379.447 7.229438
## 2020  0.0033641322 1380.899 7.230490 -0.128894233 1253.059 7.133343
## 2021  0.0035367408 1522.837 7.328330  0.097840306 1360.312 7.215469
## 2022            NA       NA       NA           NA       NA       NA
##             M_dl      rulc     rulc_l      rulc_dl      ulc    ulc_l
## 1960          NA        NA         NA           NA       NA       NA
## 1961          NA        NA         NA           NA       NA       NA
## 1962          NA        NA         NA           NA       NA       NA
## 1963          NA        NA         NA           NA       NA       NA
## 1964          NA        NA         NA           NA       NA       NA
## 1965          NA        NA         NA           NA       NA       NA
## 1966          NA        NA         NA           NA       NA       NA
## 1967          NA        NA         NA           NA       NA       NA
## 1968          NA        NA         NA           NA       NA       NA
## 1969          NA        NA         NA           NA       NA       NA
## 1970          NA        NA         NA           NA       NA       NA
## 1971          NA        NA         NA           NA       NA       NA
## 1972          NA        NA         NA           NA       NA       NA
## 1973          NA        NA         NA           NA       NA       NA
## 1974          NA        NA         NA           NA       NA       NA
## 1975          NA        NA         NA           NA       NA       NA
## 1976          NA        NA         NA           NA       NA       NA
## 1977          NA        NA         NA           NA       NA       NA
## 1978          NA        NA         NA           NA       NA       NA
## 1979          NA        NA         NA           NA       NA       NA
## 1980          NA        NA         NA           NA       NA       NA
## 1981          NA        NA         NA           NA       NA       NA
## 1982          NA        NA         NA           NA       NA       NA
## 1983          NA        NA         NA           NA       NA       NA
## 1984          NA        NA         NA           NA       NA       NA
## 1985          NA        NA         NA           NA       NA       NA
## 1986          NA        NA         NA           NA       NA       NA
## 1987          NA        NA         NA           NA       NA       NA
## 1988          NA        NA         NA           NA       NA       NA
## 1989          NA        NA         NA           NA       NA       NA
## 1990          NA        NA         NA           NA       NA       NA
## 1991          NA 0.5956763 -0.5180579           NA 42.62952 3.752547
## 1992  0.02970469 0.6033096 -0.5053247  0.012733188 45.46457 3.816933
## 2019  0.01890390 0.5807344 -0.5434618  0.010087864 61.56968 4.120170
## 2020 -0.09609493 0.5800144 -0.5447024 -0.001240592 62.80592 4.140049
## 2021  0.08212632 0.5744767 -0.5542957 -0.009593322 63.21199 4.146494
## 2022          NA        NA         NA           NA       NA       NA
##          ulc_dl       Tau    Tau_l        Tau_dl       dPxdPm        dPdPm
## 1960         NA  52.83543 3.967182            NA           NA           NA
## 1961         NA  53.74501 3.984251  0.0170688407  0.015065125  0.070302706
## 1962         NA  55.07111 4.008625  0.0243744118  0.021659331  0.040778986
## 1963         NA  55.54587 4.017209  0.0085838384 -0.013952881  0.006924250
## 1964         NA  58.09439 4.062069  0.0448599840  0.008420443  0.012059868
## 1965         NA  59.86838 4.092148  0.0300793537 -0.002369467  0.007585873
## 1966         NA  60.60388 4.104359  0.0122104240  0.007341659  0.016073069
## 1967         NA  60.82166 4.107946  0.0035870732  0.016315456  0.029642969
## 1968         NA  63.25220 4.147130  0.0391839900 -0.006103664  0.016110329
## 1969         NA  66.32176 4.194518  0.0473881450  0.020699581  0.022186559
## 1970         NA  67.99133 4.219380  0.0248620985  0.100558518  0.141895804
## 1971         NA  68.76521 4.230698  0.0113177621  0.027722151  0.058433358
## 1972         NA  70.34678 4.253437  0.0227391319  0.008693448  0.027068913
## 1973         NA  72.09539 4.277990  0.0245530231 -0.022696313 -0.021210930
## 1974         NA  72.35137 4.281534  0.0035443090 -0.070303119 -0.139718130
## 1975         NA  72.18869 4.279283 -0.0022510462  0.024098233  0.033227447
## 1976         NA  75.24968 4.320812  0.0415283038 -0.016881723 -0.021887447
## 1977         NA  76.91258 4.342669  0.0218578339  0.000286549  0.011630901
## 1978         NA  77.96332 4.356239  0.0135690406  0.035766270  0.052677358
## 1979         NA  79.39086 4.374383  0.0181447058 -0.036706527 -0.039452188
## 1980         NA  78.85640 4.367628 -0.0067547475 -0.061221325 -0.065771993
## 1981         NA  78.53588 4.363556 -0.0040728356 -0.056102386 -0.069832535
## 1982         NA  78.06191 4.357502 -0.0060533885  0.013969414  0.018431584
## 1983         NA  79.17973 4.371720  0.0142180613  0.013526670  0.021021411
## 1984         NA  80.46449 4.387816  0.0160956950 -0.016767760 -0.028042055
## 1985         NA  81.14120 4.396191  0.0083747999  0.003369836 -0.002065107
## 1986         NA  81.51970 4.400845  0.0046538940  0.111658646  0.151805725
## 1987         NA  81.44907 4.399978 -0.0008667207  0.039105336  0.061344444
## 1988         NA  83.17206 4.420912  0.0209335452 -0.002551777 -0.003375490
## 1989         NA  84.77392 4.439988  0.0190763932 -0.026416913 -0.022561197
## 1990         NA  86.77552 4.463325  0.0233366137  0.013734309  0.046253970
## 1991         NA  88.85054 4.486956  0.0236311226 -0.013816729  0.002498495
## 1992 0.06438624  90.12068 4.501150  0.0141940663  0.031122097  0.072799880
## 2019 0.03142179 102.27748 4.627690 -0.0041618798  0.008920482  0.022526565
## 2020 0.01987987  95.91437 4.563456 -0.0642336972  0.025053858  0.042810192
## 2021 0.00644465 100.75677 4.612709  0.0492535555 -0.001216350  0.011284881
## 2022         NA        NA       NA            NA           NA           NA
##          Trade
## 1960        NA
## 1961        NA
## 1962        NA
## 1963        NA
## 1964        NA
## 1965        NA
## 1966        NA
## 1967        NA
## 1968        NA
## 1969        NA
## 1970        NA
## 1971        NA
## 1972        NA
## 1973        NA
## 1974        NA
## 1975        NA
## 1976        NA
## 1977        NA
## 1978        NA
## 1979        NA
## 1980        NA
## 1981        NA
## 1982        NA
## 1983        NA
## 1984        NA
## 1985        NA
## 1986        NA
## 1987        NA
## 1988        NA
## 1989        NA
## 1990        NA
## 1991 0.3724531
## 1992 0.3701549
## 2019 0.9104059
## 2020 0.8690054
## 2021 0.8984586
## 2022        NA
DEU <- DEU_df[34:59,]
DEU[!complete.cases(DEU),]
##  [1] WS        WS_l      WS_dl     PS        PS_l      PS_dl     Y        
##  [8] Y_l       Y_dl      Yrw       Yrw_l     Yrw_dl    Tax       Yf       
## [15] Yf_l      Yf_dl     C         C_l       C_dl      W         W_l      
## [22] W_dl      R         R_l       R_dl      It        It_l      It_dl    
## [29] Itcurr    Itcurr_l  Itcurr_dl Ipr       Ipr_l     Ipr_dl    Ips      
## [36] Ips_l     Ips_dl    I         I_l       I_dl      r         r_l      
## [43] r_dl      P         P_l       P_dl      Pm        Pm_l      Pm_dl    
## [50] Px        Px_l      Px_dl     X         X_l       X_dl      M        
## [57] M_l       M_dl      rulc      rulc_l    rulc_dl   ulc       ulc_l    
## [64] ulc_dl    Tau       Tau_l     Tau_dl    dPxdPm    dPdPm     Trade    
## <0 rows> (or 0-length row.names)
DEU %>% head()
##             WS       WS_l         WS_dl        PS      PS_l        PS_dl
## 1993 0.6548756 -0.4233100  0.0022835500 0.3451244 -1.063850 -0.004318767
## 1994 0.6470786 -0.4352874 -0.0119774520 0.3529214 -1.041510  0.022340307
## 1995 0.6466922 -0.4358849 -0.0005974211 0.3533078 -1.040416  0.001094441
## 1996 0.6443945 -0.4394441 -0.0035592752 0.3556055 -1.033933  0.006482237
## 1997 0.6359522 -0.4526318 -0.0131877094 0.3640478 -1.010470  0.023463203
## 1998 0.6330377 -0.4572252 -0.0045934014 0.3669623 -1.002496  0.007973900
##             Y      Y_l         Y_dl            Yrw    Yrw_l     Yrw_dl
## 1993 2236.495 7.712665 -0.009841443 21122060210480 30.68134 0.00511825
## 1994 2290.127 7.736363  0.023697366 21714141156460 30.70898 0.02764571
## 1995 2325.276 7.751594  0.015231467 22370999766659 30.73879 0.02980175
## 1996 2344.365 7.759770  0.008175835 22950590507829 30.76436 0.02557820
## 1997 2386.180 7.777449  0.017679185 23601800210285 30.79234 0.02797932
## 1998 2434.358 7.797438  0.019989306 24050244547741 30.81117 0.01882218
##          Tax       Yf     Yf_l        Yf_dl        C      C_l         C_dl
## 1993 183.737 2052.758 7.626940 -0.015835888 1296.220 7.167208 0.0006181417
## 1994 199.713 2090.414 7.645117  0.018177878 1314.646 7.181323 0.0141150913
## 1995 201.007 2124.269 7.661183  0.016065611 1334.995 7.196683 0.0153601187
## 1996 201.371 2142.994 7.669959  0.008776173 1356.305 7.212519 0.0158365440
## 1997 204.607 2181.573 7.687801  0.017842260 1366.399 7.219934 0.0074147217
## 1998 211.864 2222.494 7.706385  0.018583813 1386.106 7.234254 0.0143195647
##             W      W_l         W_dl        R      R_l        R_dl       It
## 1993 1344.301 7.203630 -0.013552338 708.4569 6.563089 -0.02015465 488.1461
## 1994 1352.662 7.209830  0.006200426 737.7517 6.603607  0.04051818 505.5972
## 1995 1373.748 7.225298  0.015468190 750.5208 6.620767  0.01716005 504.6277
## 1996 1380.934 7.230515  0.005216898 762.0604 6.636026  0.01525841 502.4463
## 1997 1387.376 7.235170  0.004654550 794.1968 6.677331  0.04130546 505.0518
## 1998 1406.923 7.249160  0.013990411 815.5714 6.703889  0.02655771 525.3508
##          It_l        It_dl  Itcurr Itcurr_l    Itcurr_dl     Ipr    Ipr_l
## 1993 6.190615 -0.046446581 421.198 6.043103 -0.018211686 366.848 5.904948
## 1994 6.225740  0.035125559 441.679 6.090583  0.047480342 388.096 5.961253
## 1995 6.223821 -0.001919375 445.973 6.100258  0.009675038 396.118 5.981712
## 1996 6.219489 -0.004332161 442.442 6.092309 -0.007949030 393.662 5.975493
## 1997 6.224661  0.005172230 444.213 6.096304  0.003994795 398.265 5.987118
## 1998 6.264066  0.039405232 459.252 6.129599  0.033294902 412.749 6.022840
##            Ipr_dl       Ips      Ips_l         Ips_dl        I      I_l
## 1993 -0.018294321 0.8709633 -0.1381554 -0.00008263553 425.1573 6.052459
## 1994  0.056305138 0.8786834 -0.1293306  0.00882479639 444.2599 6.096410
## 1995  0.020459415 0.8882107 -0.1185463  0.01078437679 448.2157 6.105275
## 1996 -0.006219474 0.8897483 -0.1168167  0.00172955609 447.0507 6.102672
## 1997  0.011624940 0.8965631 -0.1091866  0.00763014505 452.8108 6.115474
## 1998  0.035722047 0.8987419 -0.1067594  0.00242714528 472.1548 6.157307
##              I_dl        r      r_l         r_dl        P      P_l
## 1993 -0.046529217 2.525573 1.771743  0.019647839 78.28724 4.360385
## 1994  0.043950355 4.727822 2.089805  0.318062778 79.88859 4.380633
## 1995  0.008865002 4.764439 2.094325  0.004519692 81.47894 4.400345
## 1996 -0.002602605 5.599937 2.192263  0.097937969 81.95737 4.406199
## 1997  0.012802375 5.343759 2.163240 -0.029022874 82.18784 4.409007
## 1998  0.041832377 3.860201 1.976262 -0.186978022 82.74953 4.415818
##             P_dl       Pm     Pm_l         Pm_dl       Px     Px_l
## 1993 0.038126617 91.61958 4.517645 -0.0162086032 89.77044 4.497256
## 1994 0.020248330 91.45985 4.515900 -0.0017449622 90.33229 4.503495
## 1995 0.019711592 91.25540 4.513662 -0.0022378766 91.41958 4.515460
## 1996 0.005854642 91.20712 4.513133 -0.0005291717 91.03108 4.511201
## 1997 0.002808187 93.46776 4.537617  0.0244835467 91.81364 4.519761
## 1998 0.006810927 90.98120 4.510653 -0.0269636191 91.19735 4.513026
##              Px_dl       X      X_l        X_dl       M      M_l
## 1993  0.0008658668 396.195 5.981907 -0.06115141 387.240 5.959045
## 1994  0.0062392029 427.567 6.058111  0.07620449 419.024 6.037928
## 1995  0.0119647855 455.816 6.122089  0.06397822 448.189 6.105215
## 1996 -0.0042587611 482.503 6.178987  0.05689792 466.522 6.145305
## 1997  0.0085599254 541.698 6.294709  0.11572151 509.495 6.233420
## 1998 -0.0067349945 583.291 6.368686  0.07397755 557.469 6.323407
##             M_dl      rulc     rulc_l       rulc_dl      ulc    ulc_l
## 1993 -0.06889164 0.6010750 -0.5090356 -0.0037108953 47.05650 3.851349
## 1994  0.07888354 0.5906495 -0.5265326 -0.0174969406 47.18615 3.854100
## 1995  0.06728682 0.5907893 -0.5262959  0.0002367225 48.13688 3.874049
## 1996  0.04009016 0.5890438 -0.5292548 -0.0029589364 48.27648 3.876944
## 1997  0.08811486 0.5814214 -0.5422794 -0.0130246344 47.78577 3.866728
## 1998  0.08998686 0.5779440 -0.5482783 -0.0059988948 47.82459 3.867540
##             ulc_dl      Tau    Tau_l        Tau_dl       dPxdPm
## 1993  0.0344157216 89.02085 4.488871 -0.0122790754  0.017074470
## 1994  0.0027513898 90.20580 4.502094  0.0132230832  0.007984165
## 1995  0.0199483142 90.50950 4.505455  0.0033610932  0.014202662
## 1996  0.0028957060 90.46379 4.504950 -0.0005051033 -0.003729589
## 1997 -0.0102164471 91.37842 4.515009  0.0100596575 -0.015923621
## 1998  0.0008120318 91.82324 4.519865  0.0048560267  0.020228625
##             dPdPm     Trade
## 1993  0.054335220 0.3502959
## 1994  0.021993293 0.3696699
## 1995  0.021949468 0.3887732
## 1996  0.006383814 0.4048111
## 1997 -0.021675359 0.4405338
## 1998  0.033774546 0.4686082

DATA

DEU %>% head(100)
##             WS       WS_l         WS_dl        PS       PS_l        PS_dl
## 1993 0.6548756 -0.4233100  0.0022835500 0.3451244 -1.0638503 -0.004318767
## 1994 0.6470786 -0.4352874 -0.0119774520 0.3529214 -1.0415100  0.022340307
## 1995 0.6466922 -0.4358849 -0.0005974211 0.3533078 -1.0404156  0.001094441
## 1996 0.6443945 -0.4394441 -0.0035592752 0.3556055 -1.0339334  0.006482237
## 1997 0.6359522 -0.4526318 -0.0131877094 0.3640478 -1.0104702  0.023463203
## 1998 0.6330377 -0.4572252 -0.0045934014 0.3669623 -1.0024963  0.007973900
## 1999 0.6401756 -0.4460128  0.0112124289 0.3598244 -1.0221390 -0.019642796
## 2000 0.6495396 -0.4314915  0.0145213282 0.3504604 -1.0485075 -0.026368482
## 2001 0.6408141 -0.4450159 -0.0135243630 0.3591859 -1.0239152  0.024592287
## 2002 0.6383157 -0.4489222 -0.0039063887 0.3616843 -1.0169836  0.006931612
## 2003 0.6402775 -0.4458536  0.0030686749 0.3597225 -1.0224224 -0.005438809
## 2004 0.6283168 -0.4647108 -0.0188572699 0.3716832 -0.9897133  0.032709136
## 2005 0.6231104 -0.4730315 -0.0083206630 0.3768896 -0.9758031  0.013910220
## 2006 0.6083016 -0.4970845 -0.0240529511 0.3916984 -0.9372631  0.038539938
## 2007 0.6005277 -0.5099466 -0.0128621176 0.3994723 -0.9176108  0.019652383
## 2008 0.6114669 -0.4918944  0.0180521762 0.3885331 -0.9453770 -0.027766246
## 2009 0.6404493 -0.4455854  0.0463090013 0.3595507 -1.0229000 -0.077522941
## 2010 0.6272676 -0.4663820 -0.0207966552 0.3727324 -0.9868945  0.036005428
## 2011 0.6243784 -0.4709987 -0.0046166699 0.3756216 -0.9791730  0.007721552
## 2012 0.6366872 -0.4514768  0.0195219408 0.3633128 -1.0124911 -0.033318171
## 2013 0.6379298 -0.4495270  0.0019498145 0.3620702 -1.0159173 -0.003426147
## 2014 0.6350984 -0.4539753 -0.0044483264 0.3649016 -1.0081276  0.007789663
## 2015 0.6374442 -0.4502885  0.0036867789 0.3625558 -1.0145769 -0.006449305
## 2016 0.6379087 -0.4495601  0.0007283992 0.3620913 -1.0158589 -0.001281957
## 2017 0.6403651 -0.4457168  0.0038433331 0.3596349 -1.0226660 -0.006807076
## 2018 0.6478182 -0.4341452  0.0115715694 0.3521818 -1.0436077 -0.020941741
##             Y      Y_l         Y_dl            Yrw    Yrw_l       Yrw_dl
## 1993 2236.495 7.712665 -0.009841443 21122060210480 30.68134  0.005118250
## 1994 2290.127 7.736363  0.023697366 21714141156460 30.70898  0.027645713
## 1995 2325.276 7.751594  0.015231467 22370999766659 30.73879  0.029801752
## 1996 2344.365 7.759770  0.008175835 22950590507829 30.76436  0.025578200
## 1997 2386.180 7.777449  0.017679185 23601800210285 30.79234  0.027979323
## 1998 2434.358 7.797438  0.019989306 24050244547741 30.81117  0.018822176
## 1999 2480.415 7.816181  0.018742818 24661554915554 30.83627  0.025100385
## 2000 2552.228 7.844722  0.028540818 25643737704971 30.87532  0.039053848
## 2001 2595.558 7.861557  0.016834819 26092386504422 30.89266  0.017344169
## 2002 2590.407 7.859570 -0.001986516 26459851213860 30.90665  0.013984969
## 2003 2571.923 7.852409 -0.007161138 26951574240670 30.92506  0.018413173
## 2004 2602.527 7.864238  0.011829028 27780292663497 30.95535  0.030285163
## 2005 2621.314 7.871431  0.007192823 28484540321319 30.98038  0.025034623
## 2006 2721.306 7.908867  0.037436193 29416232180877 31.01257  0.032185142
## 2007 2802.512 7.938271  0.029404246 30371435559606 31.04452  0.031955910
## 2008 2829.479 7.947848  0.009576438 30565938470916 31.05091  0.006383720
## 2009 2668.280 7.889189 -0.058658526 29434123516995 31.01318 -0.037731602
## 2010 2779.786 7.930129  0.040939876 30364599633747 31.04430  0.031122779
## 2011 2888.869 7.968620  0.038491130 30975131682852 31.06421  0.019907235
## 2012 2900.989 7.972807  0.004186637 31224821413772 31.07223  0.008028658
## 2013 2913.412 7.977080  0.004273190 31611788036280 31.08455  0.012316753
## 2014 2978.256 7.999093  0.022012991 32184758346255 31.10251  0.017962907
## 2015 3030.070 8.016341  0.017247827 32845353701172 31.12283  0.020317298
## 2016 3097.641 8.038396  0.022055133 33432591937880 31.14055  0.017720936
## 2017 3173.998 8.062747  0.024351138 34217026656709 31.16374  0.023192145
## 2018 3222.479 8.077906  0.015158947 34863149324820 31.18245  0.018707002
##          Tax       Yf     Yf_l        Yf_dl        C      C_l
## 1993 183.737 2052.758 7.626940 -0.015835888 1296.220 7.167208
## 1994 199.713 2090.414 7.645117  0.018177878 1314.646 7.181323
## 1995 201.007 2124.269 7.661183  0.016065611 1334.995 7.196683
## 1996 201.371 2142.994 7.669959  0.008776173 1356.305 7.212519
## 1997 204.607 2181.573 7.687801  0.017842260 1366.399 7.219934
## 1998 211.864 2222.494 7.706385  0.018583813 1386.106 7.234254
## 1999 227.168 2253.247 7.720128  0.013742298 1422.157 7.259930
## 2000 231.759 2320.469 7.749525  0.029397033 1445.710 7.276356
## 2001 234.543 2361.015 7.766847  0.017322291 1463.014 7.288254
## 2002 235.946 2354.461 7.764067 -0.002779785 1442.666 7.274248
## 2003 240.605 2331.318 7.754189 -0.009878054 1448.754 7.278459
## 2004 238.710 2363.817 7.768033  0.013843912 1458.048 7.284854
## 2005 241.117 2380.197 7.774939  0.006905572 1469.103 7.292407
## 2006 250.591 2470.715 7.812263  0.037324325 1488.971 7.305841
## 2007 274.177 2528.335 7.835316  0.023053401 1485.286 7.303363
## 2008 279.142 2550.337 7.843981  0.008664524 1490.413 7.306809
## 2009 279.789 2388.491 7.778417 -0.065563722 1488.971 7.305841
## 2010 282.563 2497.223 7.822935  0.044517529 1499.546 7.312918
## 2011 300.350 2588.519 7.858841  0.035906583 1527.425 7.331339
## 2012 305.714 2595.275 7.861448  0.002606587 1550.177 7.346124
## 2013 310.005 2603.407 7.864576  0.003128488 1555.785 7.349736
## 2014 318.815 2659.441 7.885871  0.021294978 1572.128 7.360185
## 2015 332.754 2697.316 7.900012  0.014141254 1602.250 7.379164
## 2016 341.442 2756.199 7.921608  0.021595352 1638.621 7.401610
## 2017 351.805 2822.193 7.945270  0.023661686 1660.572 7.414917
## 2018 362.694 2859.785 7.958502  0.013232205 1681.722 7.427574
##               C_dl        W      W_l         W_dl         R      R_l
## 1993  0.0006181417 1344.301 7.203630 -0.013552338  708.4569 6.563089
## 1994  0.0141150913 1352.662 7.209830  0.006200426  737.7517 6.603607
## 1995  0.0153601187 1373.748 7.225298  0.015468190  750.5208 6.620767
## 1996  0.0158365440 1380.934 7.230515  0.005216898  762.0604 6.636026
## 1997  0.0074147217 1387.376 7.235170  0.004654550  794.1968 6.677331
## 1998  0.0143195647 1406.923 7.249160  0.013990411  815.5714 6.703889
## 1999  0.0256763562 1442.474 7.274115  0.024954727  810.7733 6.697989
## 2000  0.0164258172 1507.236 7.318033  0.043918362  813.2325 6.701017
## 2001  0.0118981410 1512.972 7.321831  0.003797928  848.0433 6.742932
## 2002 -0.0140059006 1502.889 7.315145 -0.006686173  851.5715 6.747083
## 2003  0.0042110859 1492.691 7.308335 -0.006809379  838.6275 6.731767
## 2004  0.0063946782 1485.226 7.303322 -0.005013357  878.5911 6.778320
## 2005  0.0075534556 1483.126 7.301907 -0.001415091  897.0714 6.799135
## 2006  0.0134332669 1502.940 7.315178  0.013271374  967.7751 6.875000
## 2007 -0.0024779311 1518.335 7.325370  0.010191283 1009.9999 6.917705
## 2008  0.0034459165 1559.447 7.352086  0.026716700  990.8902 6.898604
## 2009 -0.0009679854 1529.707 7.332832 -0.019254720  858.7837 6.755517
## 2010  0.0070771183 1566.427 7.356553  0.023720873  930.7959 6.836040
## 2011  0.0184209154 1616.215 7.387842  0.031289913  972.3037 6.879668
## 2012  0.0147858069 1652.378 7.409971  0.022128527  942.8966 6.848957
## 2013  0.0036111234 1660.791 7.415049  0.005078302  942.6160 6.848659
## 2014  0.0104498742 1689.007 7.431896  0.016846652  970.4342 6.877744
## 2015  0.0189787758 1719.388 7.449724  0.017828033  977.9275 6.885436
## 2016  0.0224461431 1758.203 7.472048  0.022323751  997.9957 6.905749
## 2017  0.0133070869 1807.234 7.499553  0.027505019 1014.9591 6.922604
## 2018  0.0126561471 1852.621 7.524357  0.024803774 1007.1643 6.914894
##              R_dl       It     It_l        It_dl  Itcurr Itcurr_l
## 1993 -0.020154655 488.1461 6.190615 -0.046446581 421.198 6.043103
## 1994  0.040518185 505.5972 6.225740  0.035125559 441.679 6.090583
## 1995  0.017160052 504.6277 6.223821 -0.001919375 445.973 6.100258
## 1996  0.015258411 502.4463 6.219489 -0.004332161 442.442 6.092309
## 1997  0.041305463 505.0518 6.224661  0.005172230 444.213 6.096304
## 1998  0.026557712 525.3508 6.264066  0.039405232 459.252 6.129599
## 1999 -0.005900498 547.8919 6.306078  0.042011775 474.477 6.162213
## 2000  0.003028551 559.3441 6.326765  0.020686843 487.502 6.189294
## 2001  0.041914578 544.6804 6.300199 -0.026565647 473.140 6.159391
## 2002  0.004151827 511.5354 6.237417 -0.062782409 442.301 6.091991
## 2003 -0.015316863 503.2340 6.221055 -0.016361521 431.772 6.067898
## 2004  0.046553048 501.0526 6.216711 -0.004344185 431.938 6.068282
## 2005  0.020815792 505.5366 6.225620  0.008909354 436.534 6.078866
## 2006  0.075864263 543.5897 6.298195  0.072574295 472.315 6.157646
## 2007  0.042705784 563.2222 6.333674  0.035479487 501.323 6.217251
## 2008 -0.019101722 572.1295 6.349365  0.015691143 517.013 6.248068
## 2009 -0.143086662 518.0190 6.250012 -0.099353443 471.232 6.155351
## 2010  0.080522956 545.3469 6.301422  0.051410185 501.148 6.216901
## 2011  0.043628135 585.6420 6.372709  0.071286575 548.701 6.307554
## 2012 -0.030711585 584.3089 6.370430 -0.002278900 557.877 6.324139
## 2013 -0.000297659 576.7952 6.357487 -0.012942517 559.500 6.327044
## 2014  0.029084641 595.4582 6.389331  0.031843929 586.665 6.374454
## 2015  0.007691949 605.9410 6.406783  0.017451428 605.941 6.406783
## 2016  0.020313396 628.9668 6.444078  0.037295852 636.421 6.455860
## 2017  0.016854610 644.3577 6.468254  0.024175534 665.889 6.501123
## 2018 -0.007709536 666.5957 6.502184  0.033929709 707.719 6.562047
##          Itcurr_dl     Ipr    Ipr_l       Ipr_dl       Ips      Ips_l
## 1993 -0.0182116858 366.848 5.904948 -0.018294321 0.8709633 -0.1381554
## 1994  0.0474803420 388.096 5.961253  0.056305138 0.8786834 -0.1293306
## 1995  0.0096750382 396.118 5.981712  0.020459415 0.8882107 -0.1185463
## 1996 -0.0079490297 393.662 5.975493 -0.006219474 0.8897483 -0.1168167
## 1997  0.0039947947 398.265 5.987118  0.011624940 0.8965631 -0.1091866
## 1998  0.0332949019 412.749 6.022840  0.035722047 0.8987419 -0.1067594
## 1999  0.0326140658 425.304 6.052804  0.029964547 0.8963638 -0.1094089
## 2000  0.0270812482 438.500 6.083360  0.030555604 0.8994835 -0.1059346
## 2001 -0.0299030652 423.944 6.049601 -0.033758441 0.8960223 -0.1097900
## 2002 -0.0674006820 394.062 5.976508 -0.073093114 0.8909363 -0.1154824
## 2003 -0.0240929746 384.947 5.953106 -0.023402595 0.8915516 -0.1147920
## 2004  0.0003843883 388.023 5.961065  0.007958954 0.8983303 -0.1072174
## 2005  0.0105842051 392.443 5.972391  0.011326688 0.8989976 -0.1064750
## 2006  0.0787798713 423.515 6.048589  0.076197629 0.8966791 -0.1090572
## 2007  0.0596044681 452.027 6.113742  0.065152980 0.9016682 -0.1035087
## 2008  0.0308174153 463.232 6.138228  0.024486096 0.8959775 -0.1098400
## 2009 -0.0927174775 413.093 6.023673 -0.114555259 0.8766234 -0.1316778
## 2010  0.0615509249 440.692 6.088346  0.064673470 0.8793650 -0.1285552
## 2011  0.0906521999 486.171 6.186560  0.098214195 0.8860399 -0.1209933
## 2012  0.0165848414 497.074 6.208739  0.022178495 0.8910100 -0.1153996
## 2013  0.0029050198 498.245 6.211092  0.002353016 0.8905183 -0.1159516
## 2014  0.0474104307 525.268 6.263909  0.052816685 0.8953457 -0.1105453
## 2015  0.0323286631 541.093 6.293591  0.029682559 0.8929797 -0.1131915
## 2016  0.0490776724 567.747 6.341676  0.048084729 0.8920934 -0.1141844
## 2017  0.0452626959 592.732 6.384742  0.043066461 0.8901363 -0.1163806
## 2018  0.0609241323 628.179 6.442825  0.058082800 0.8876108 -0.1192220
##              Ips_dl        I      I_l         I_dl          r       r_l
## 1993 -0.00008263553 425.1573 6.052459 -0.046529217  2.5255730 1.7717426
## 1994  0.00882479639 444.2599 6.096410  0.043950355  4.7278219 2.0898053
## 1995  0.01078437679 448.2157 6.105275  0.008865002  4.7644388 2.0943250
## 1996  0.00172955609 447.0507 6.102672 -0.002602605  5.5999368 2.1922630
## 1997  0.00763014505 452.8108 6.115474  0.012802375  5.3437592 2.1632401
## 1998  0.00242714528 472.1548 6.157307  0.041832377  3.8602013 1.9762621
## 1999 -0.00264951847 491.1105 6.196669  0.039362256  4.1374856 2.0139699
## 2000  0.00347435628 503.1208 6.220830  0.024161199  5.7598662 2.2099637
## 2001 -0.00385537557 488.0458 6.190409 -0.030421022  3.4665297 1.9201599
## 2002 -0.00569243171 455.7454 6.121934 -0.068474841  3.3551269 1.9036953
## 2003  0.00069037979 448.6591 6.106263 -0.015671141  2.6990242 1.8008090
## 2004  0.00757456546 450.1107 6.109494  0.003230380  2.9072179 1.8346174
## 2005  0.00074248238 454.4762 6.119145  0.009651836  2.9228396 1.8371087
## 2006 -0.00258224246 487.4255 6.189138  0.069992052  3.3475666 1.9025680
## 2007  0.00554851192 507.8395 6.230166  0.041027999  2.4146943 1.7527092
## 2008 -0.00633131939 512.6151 6.239525  0.009359823  3.0454352 1.8564472
## 2009 -0.02183778178 454.1076 6.118334 -0.121191225  1.3496211 1.5486557
## 2010  0.00312254464 479.5590 6.172867  0.054532729  2.0803991 1.6930285
## 2011  0.00756199521 518.9022 6.251715  0.078848571  1.5231802 1.5848787
## 2012  0.00559365308 520.6251 6.255030  0.003314753  0.0045085 1.2119493
## 2013 -0.00055200423 513.6467 6.241536 -0.013494521 -0.3911804 1.0866541
## 2014  0.00540625391 533.1410 6.278786  0.037250183 -0.6890209 0.9807663
## 2015 -0.00264610372 541.0930 6.293591  0.014805325 -1.2150954 0.7610040
## 2016 -0.00099294344 561.0972 6.329894  0.036302908 -1.0743615 0.8246833
## 2017 -0.00219623535 573.5662 6.351873  0.021979298 -0.7197912 0.9691596
## 2018 -0.00284133212 591.6775 6.382962  0.031088376 -1.0954619 0.8153903
##              r_dl         P      P_l         P_dl        Pm     Pm_l
## 1993  0.019647839  78.28724 4.360385  0.038126617  91.61958 4.517645
## 1994  0.318062778  79.88859 4.380633  0.020248330  91.45985 4.515900
## 1995  0.004519692  81.47894 4.400345  0.019711592  91.25540 4.513662
## 1996  0.097937969  81.95737 4.406199  0.005854642  91.20712 4.513133
## 1997 -0.029022874  82.18784 4.409007  0.002808187  93.46776 4.537617
## 1998 -0.186978022  82.74953 4.415818  0.006810927  90.98120 4.510653
## 1999  0.037707841  83.02964 4.419198  0.003379371  89.61361 4.495507
## 2000  0.195993788  82.63721 4.414460 -0.004737631  96.21858 4.566623
## 2001 -0.289803822  83.70223 4.427266  0.012805596  96.82084 4.572862
## 2002 -0.016464616  84.85617 4.440958  0.013692023  94.33082 4.546808
## 2003 -0.102886264  85.98895 4.454219  0.013261134  92.04352 4.522262
## 2004  0.033808358  86.93550 4.465166  0.010947655  91.76168 4.519195
## 2005  0.002491283  87.29631 4.469308  0.004141709  94.33200 4.546820
## 2006  0.065459375  87.64469 4.473291  0.003982800  96.96658 4.574366
## 2007 -0.149858896  89.18964 4.490765  0.017473848  97.10139 4.575756
## 2008  0.103738016  89.99854 4.499793  0.009028564  99.79167 4.603085
## 2009 -0.307791490  91.65943 4.518080  0.018286497  93.14385 4.534145
## 2010  0.144372863  92.25170 4.524521  0.006440796  97.48761 4.579725
## 2011 -0.108149790  93.23927 4.535169  0.010648245 102.69699 4.631783
## 2012 -0.372929413  94.63359 4.550012  0.014843528 104.71460 4.651239
## 2013 -0.125295196  96.49681 4.569510  0.019497505 103.01817 4.634905
## 2014 -0.105887877  98.29344 4.587957  0.018447292 101.49204 4.619980
## 2015 -0.219762230 100.00000 4.605170  0.017212922 100.00000 4.605170
## 2016  0.063679219 101.17701 4.616872  0.011701340  97.54992 4.580364
## 2017  0.144476324 102.23666 4.627290  0.010418833 100.08611 4.606031
## 2018 -0.153769232 103.78251 4.642297  0.015007084 101.92786 4.624265
##              Pm_dl        Px     Px_l         Px_dl        X      X_l
## 1993 -0.0162086032  89.77044 4.497256  0.0008658668  396.195 5.981907
## 1994 -0.0017449622  90.33229 4.503495  0.0062392029  427.567 6.058111
## 1995 -0.0022378766  91.41958 4.515460  0.0119647855  455.816 6.122089
## 1996 -0.0005291717  91.03108 4.511201 -0.0042587611  482.503 6.178987
## 1997  0.0244835467  91.81364 4.519761  0.0085599254  541.698 6.294709
## 1998 -0.0269636191  91.19735 4.513026 -0.0067349945  583.291 6.368686
## 1999 -0.0151457670  90.41270 4.504385 -0.0086411922  614.095 6.420150
## 2000  0.0711153656  93.09772 4.533650  0.0292650414  698.842 6.549425
## 2001  0.0062397333  93.68834 4.539974  0.0063239609  738.447 6.604549
## 2002 -0.0260542336  93.08109 4.533471 -0.0065026826  769.677 6.645971
## 2003 -0.0245465001  92.53942 4.527635 -0.0058363395  784.157 6.664609
## 2004 -0.0030667590  92.38954 4.526014 -0.0016208898  874.582 6.773746
## 2005  0.0276257236  93.33961 4.536245  0.0102307322  933.067 6.838477
## 2006  0.0275459505  94.31570 4.546648  0.0104031537 1047.766 6.954416
## 2007  0.0013892176  94.91499 4.552982  0.0063339389 1140.888 7.039562
## 2008  0.0273290527  95.89941 4.563300  0.0103182165 1163.033 7.058787
## 2009 -0.0689396799  93.51656 4.538139 -0.0251613266  996.946 6.904697
## 2010  0.0455802608  95.69917 4.561210  0.0230711621 1140.604 7.039313
## 2011  0.0520575387  98.19119 4.586917  0.0257068465 1235.998 7.119634
## 2012  0.0194556964  99.96097 4.604780  0.0178632970 1271.770 7.148165
## 2013 -0.0163331840  99.40304 4.599183 -0.0055971483 1284.546 7.158161
## 2014 -0.0149249335  99.20644 4.597203 -0.0019797138 1346.155 7.205008
## 2015 -0.0148102153 100.00000 4.605170  0.0079672363 1419.545 7.258092
## 2016 -0.0248059298  99.22943 4.597435 -0.0077355191 1453.614 7.281808
## 2017  0.0256666702 100.88225 4.613954  0.0165193045 1524.591 7.329481
## 2018  0.0182343699 101.83203 4.623325  0.0093707257 1557.241 7.350671
##              X_dl        M      M_l         M_dl      rulc     rulc_l
## 1993 -0.061151407  387.240 5.959045 -0.068891637 0.6010750 -0.5090356
## 1994  0.076204487  419.024 6.037928  0.078883542 0.5906495 -0.5265326
## 1995  0.063978218  448.189 6.105215  0.067286821 0.5907893 -0.5262959
## 1996  0.056897919  466.522 6.145305  0.040090160 0.5890438 -0.5292548
## 1997  0.115721512  509.495 6.233420  0.088114860 0.5814214 -0.5422794
## 1998  0.073977554  557.469 6.323407  0.089986857 0.5779440 -0.5482783
## 1999  0.051463435  606.871 6.408316  0.084909351 0.5815453 -0.5420664
## 2000  0.129275040  672.463 6.510947  0.102630843 0.5905571 -0.5266889
## 2001  0.055124653  678.058 6.519233  0.008285739 0.5829081 -0.5397258
## 2002  0.041421614  660.439 6.492905 -0.026328065 0.5801750 -0.5444254
## 2003  0.018638309  697.699 6.547788  0.054883012 0.5803792 -0.5440737
## 2004  0.109136803  752.339 6.623187  0.075399243 0.5706860 -0.5609160
## 2005  0.064730952  797.099 6.680979  0.057791867 0.5657947 -0.5695240
## 2006  0.115938548  885.903 6.786607  0.105628577 0.5522863 -0.5936888
## 2007  0.085146628  940.900 6.846837  0.060229400 0.5417765 -0.6129017
## 2008  0.019224341  962.685 6.869726  0.022889391 0.5511427 -0.5957615
## 2009 -0.154089921  869.356 6.767753 -0.101973548 0.5732934 -0.5563577
## 2010  0.134616620  981.255 6.888832  0.121079657 0.5635063 -0.5735767
## 2011  0.080320794 1053.037 6.959434  0.070601285 0.5594630 -0.5807779
## 2012  0.028530890 1054.108 6.960450  0.001016541 0.5695914 -0.5628360
## 2013  0.009995718 1082.321 6.986863  0.026412898 0.5700502 -0.5620309
## 2014  0.046847032 1124.937 7.025482  0.038619225 0.5671127 -0.5671972
## 2015  0.053084017 1190.410 7.082053  0.056570752 0.5674418 -0.5666170
## 2016  0.023716472 1242.074 7.124538  0.042484777 0.5675943 -0.5663484
## 2017  0.047673308 1306.475 7.175088  0.050550108 0.5693872 -0.5631945
## 2018  0.021189488 1353.615 7.210534  0.035446121 0.5749054 -0.5535497
##            rulc_dl      ulc    ulc_l        ulc_dl       Tau    Tau_l
## 1993 -0.0037108953 47.05650 3.851349  0.0344157216  89.02085 4.488871
## 1994 -0.0174969406 47.18615 3.854100  0.0027513898  90.20580 4.502094
## 1995  0.0002367225 48.13688 3.874049  0.0199483142  90.50950 4.505455
## 1996 -0.0029589364 48.27648 3.876944  0.0028957060  90.46379 4.504950
## 1997 -0.0130246344 47.78577 3.866728 -0.0102164471  91.37842 4.515009
## 1998 -0.0059988948 47.82459 3.867540  0.0008120318  91.82324 4.519865
## 1999  0.0062119090 48.28550 3.877131  0.0095912800  91.89869 4.520687
## 2000  0.0153775433 48.80200 3.887771  0.0106399121  92.61835 4.528487
## 2001 -0.0130368914 48.79071 3.887540 -0.0002312955  93.72832 4.540400
## 2002 -0.0046996573 49.23143 3.896532  0.0089923653  93.42165 4.537123
## 2003  0.0003517594 49.90620 3.910145  0.0136128931  93.04251 4.533056
## 2004 -0.0168423853 49.61288 3.904250 -0.0058947301  93.71806 4.540291
## 2005 -0.0086079137 49.39179 3.899784 -0.0044662049  94.21847 4.545616
## 2006 -0.0241648194 48.40496 3.879602 -0.0201820199  97.00463 4.574759
## 2007 -0.0192129625 48.32085 3.877863 -0.0017391147  98.48008 4.589854
## 2008  0.0171402623 49.60204 3.904032  0.0261688258  98.20749 4.587082
## 2009  0.0394038055 52.54775 3.961722  0.0576903028  92.42876 4.526438
## 2010 -0.0172190028 51.98442 3.950944 -0.0107782067  95.88932 4.563195
## 2011 -0.0072012166 52.16392 3.954391  0.0034470286  98.59086 4.590979
## 2012  0.0179418900 53.90248 3.987176  0.0327854182  98.03696 4.585345
## 2013  0.0008051127 55.00802 4.007479  0.0203026173  97.76457 4.582562
## 2014 -0.0051663393 55.74346 4.020760  0.0132809531  99.13339 4.596466
## 2015  0.0005802058 56.74418 4.038553  0.0177931278 100.00000 4.605170
## 2016  0.0002686188 57.42749 4.050523  0.0119699583 101.12504 4.616358
## 2017  0.0031538808 58.21225 4.064096  0.0135727134 102.40745 4.628959
## 2018  0.0096448271 59.66513 4.088748  0.0246519111 102.70404 4.631851
##             Tau_dl         dPxdPm        dPdPm     Trade
## 1993 -0.0122790754  0.01707447003  0.054335220 0.3502959
## 1994  0.0132230832  0.00798416512  0.021993293 0.3696699
## 1995  0.0033610932  0.01420266210  0.021949468 0.3887732
## 1996 -0.0005051033 -0.00372958936  0.006383814 0.4048111
## 1997  0.0100596575 -0.01592362131 -0.021675359 0.4405338
## 1998  0.0048560267  0.02022862455  0.033774546 0.4686082
## 1999  0.0008213685  0.00650457479  0.018525138 0.4922426
## 2000  0.0078005613 -0.04185032420 -0.075852997 0.5372972
## 2001  0.0119130299  0.00008422759  0.006565863 0.5457420
## 2002 -0.0032772282  0.01955155103  0.039746256 0.5520816
## 2003 -0.0040666907  0.01871016062  0.037807634 0.5761665
## 2004  0.0072344582  0.00144586916  0.014014414 0.6251313
## 2005  0.0053253870 -0.01739499146 -0.023484015 0.6600377
## 2006  0.0291424322 -0.01714279684 -0.023563151 0.7105665
## 2007  0.0150956133  0.00494472124  0.016084630 0.7428293
## 2008 -0.0027718841 -0.01701083618 -0.018300489 0.7512754
## 2009 -0.0606442363  0.04377835336  0.087226177 0.6994401
## 2010  0.0367563659 -0.02250909869 -0.039139465 0.7633174
## 2011  0.0277839630 -0.02635069220 -0.041409294 0.7923637
## 2012 -0.0056340154 -0.00159239941 -0.004612168 0.8017535
## 2013 -0.0027822364  0.01073603574  0.035830689 0.8124038
## 2014  0.0139040477  0.01294521968  0.033372226 0.8297111
## 2015  0.0087038539  0.02277745164  0.032023137 0.8613514
## 2016  0.0111876047  0.01707041066  0.036507269 0.8702390
## 2017  0.0126016331 -0.00914736575 -0.015247838 0.8919558
## 2018  0.0028919893 -0.00886364422 -0.003227286 0.9032971

Adjusted Dickey-fuller testet I(0)

adf.DEU.WS <- adf.test((DEU$WS), alternative = c("stationary"), k = 2)
adf.DEU.PS <- adf.test((DEU$PS), alternative = c("stationary"), k = 2)
adf.DEU.Y <- adf.test((DEU$Y), alternative = c("stationary"), k = 2)
adf.DEU.Yrw <- adf.test((DEU$Yrw), alternative = c("stationary"), k = 2)
adf.DEU.r <- adf.test((DEU$r), alternative = c("stationary"), k = 2)
adf.DEU.R <- adf.test((DEU$R), alternative = c("stationary"), k = 2)
adf.DEU.Tau <- adf.test((DEU$Tau), alternative = c("stationary"), k = 2)
adf.DEU.rulc <- adf.test((DEU$rulc), alternative = c("stationary"), k = 2)
adf.DEU.ulc <- adf.test((DEU$ulc), alternative = c("stationary"), k = 2)
adf.DEU.P <- adf.test((DEU$P), alternative = c("stationary"), k = 2)
adf.DEU.Pm <- adf.test((DEU$Pm), alternative = c("stationary"), k = 2)
adf.DEU.Px <- adf.test((DEU$Px), alternative = c("stationary"), k = 2)
adf.DEU.X <- adf.test((DEU$X), alternative = c("stationary"), k = 2)
adf.DEU.M <- adf.test((DEU$M), alternative = c("stationary"), k = 2)
adf.DEU.I <- adf.test((DEU$I), alternative = c("stationary"), k = 2)
adf.DEU.C <- adf.test((DEU$C), alternative = c("stationary"), k = 2)
adf.DEU.Ipr <- adf.test((DEU$Ipr), alternative = c("stationary"), k = 2)
adf.DEU.Ips <- adf.test((DEU$Ips), alternative = c("stationary"), k = 2)
adf.DEU.It <- adf.test((DEU$It), alternative = c("stationary"), k = 2)
adf.DEU.Itcurr <- adf.test((DEU$Itcurr), alternative = c("stationary"), k = 2)
adf.DEU.Yf <- adf.test((DEU$Yf), alternative = c("stationary"), k = 2)
adf.DEU.W <- adf.test((DEU$W), alternative = c("stationary"), k = 2)

adf.DEU.WS.pval <- adf.DEU.WS$p.value
adf.DEU.PS.pval <- adf.DEU.PS$p.value
adf.DEU.Y.pval <- adf.DEU.Y$p.value
adf.DEU.Yrw.pval <- adf.DEU.Yrw$p.value
adf.DEU.r.pval <- adf.DEU.r$p.value
adf.DEU.R.pval <- adf.DEU.R$p.value
adf.DEU.Tau.pval <- adf.DEU.Tau$p.value
adf.DEU.rulc.pval <- adf.DEU.rulc$p.value
adf.DEU.ulc.pval <- adf.DEU.ulc$p.value
adf.DEU.P.pval <- adf.DEU.P$p.value
adf.DEU.Pm.pval <- adf.DEU.Pm$p.value
adf.DEU.Px.pval <- adf.DEU.Px$p.value
adf.DEU.X.pval <- adf.DEU.X$p.value
adf.DEU.M.pval <- adf.DEU.M$p.value
adf.DEU.I.pval <- adf.DEU.I$p.value
adf.DEU.C.pval <- adf.DEU.C$p.value
adf.DEU.Ipr.pval <- adf.DEU.Ipr$p.value
adf.DEU.Ips.pval <- adf.DEU.Ips$p.value
adf.DEU.It.pval <- adf.DEU.It$p.value
adf.DEU.Itcurr.pval <- adf.DEU.Itcurr$p.value
adf.DEU.Yf.pval <- adf.DEU.Yf$p.value
adf.DEU.W.pval <- adf.DEU.W$p.value

adf.DEU_non <- rbind(adf.DEU.WS.pval,adf.DEU.PS.pval,adf.DEU.Y.pval,adf.DEU.Yrw.pval,adf.DEU.r.pval,adf.DEU.R.pval,adf.DEU.Tau.pval,adf.DEU.rulc.pval,adf.DEU.ulc.pval,adf.DEU.P.pval,adf.DEU.Pm.pval,adf.DEU.Px.pval,adf.DEU.X.pval,adf.DEU.M.pval,adf.DEU.I.pval,adf.DEU.C.pval,adf.DEU.Ipr.pval,adf.DEU.Ips.pval,adf.DEU.It.pval,adf.DEU.Itcurr.pval,adf.DEU.Yf.pval,adf.DEU.W.pval)


colnames(adf.DEU_non) <- c("DEU")
rownames(adf.DEU_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.DEU_non
##               DEU
## WS     0.86004899
## PS     0.86004899
## Y      0.59119652
## Yrw    0.62089914
## r      0.15288052
## R      0.50575957
## Tau    0.16361264
## rulc   0.89259978
## ulc    0.97908107
## P      0.91190501
## Pm     0.09626546
## Px     0.43832145
## X      0.08623035
## M      0.26789207
## I      0.77607299
## C      0.79563835
## Ipr    0.99000000
## Ips    0.29185817
## It     0.84047659
## Itcurr 0.99000000
## Yf     0.45192503
## W      0.95953492

Adjusted Dickey-fuller testet I(1)

adf.DEU.WS_dl <- adf.test((DEU$WS_dl), alternative = c("stationary"), k = 2)
adf.DEU.PS_dl <- adf.test((DEU$PS_dl), alternative = c("stationary"), k = 2)
adf.DEU.Y_dl <- adf.test((DEU$Y_dl), alternative = c("stationary"), k = 2)
adf.DEU.Yrw_dl <- adf.test((DEU$Yrw_dl), alternative = c("stationary"), k = 2)
adf.DEU.r_dl <- adf.test((DEU$r_dl), alternative = c("stationary"), k = 2)
adf.DEU.R_dl <- adf.test((DEU$R_dl), alternative = c("stationary"), k = 2)
adf.DEU.Tau_dl <- adf.test((DEU$Tau_dl), alternative = c("stationary"), k = 2)
adf.DEU.rulc_dl <- adf.test((DEU$rulc_dl), alternative = c("stationary"), k = 2)
adf.DEU.ulc_dl <- adf.test((DEU$ulc_dl), alternative = c("stationary"), k = 2)
adf.DEU.P_dl <- adf.test((DEU$P_dl), alternative = c("stationary"), k = 2)
adf.DEU.Pm_dl <- adf.test((DEU$Pm_dl), alternative = c("stationary"), k = 2)
adf.DEU.Px_dl <- adf.test((DEU$Px_dl), alternative = c("stationary"), k = 2)
adf.DEU.X_dl <- adf.test((DEU$X_dl), alternative = c("stationary"), k = 2)
adf.DEU.M_dl <- adf.test((DEU$M_dl), alternative = c("stationary"), k = 2)
adf.DEU.I_dl <- adf.test((DEU$I_dl), alternative = c("stationary"), k = 2)
adf.DEU.C_dl <- adf.test((DEU$C_dl), alternative = c("stationary"), k = 2)
adf.DEU.Ipr_dl <- adf.test((DEU$Ipr_dl), alternative = c("stationary"), k = 2)
adf.DEU.Ips_dl <- adf.test((DEU$Ips_dl), alternative = c("stationary"), k = 2)
adf.DEU.It_dl <- adf.test((DEU$It_dl), alternative = c("stationary"), k = 2)
adf.DEU.Itcurr_dl <- adf.test((DEU$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.DEU.Yf_dl <- adf.test((DEU$Yf_dl), alternative = c("stationary"), k = 2)
adf.DEU.W_dl <- adf.test((DEU$W_dl), alternative = c("stationary"), k = 2)

adf.DEU.WS_dl.pval <- adf.DEU.WS_dl$p.value
adf.DEU.PS_dl.pval <- adf.DEU.PS_dl$p.value
adf.DEU.Y_dl.pval <- adf.DEU.Y_dl$p.value
adf.DEU.Yrw_dl.pval <- adf.DEU.Yrw_dl$p.value
adf.DEU.r_dl.pval <- adf.DEU.r_dl$p.value
adf.DEU.R_dl.pval <- adf.DEU.R_dl$p.value
adf.DEU.Tau_dl.pval <- adf.DEU.Tau_dl$p.value
adf.DEU.rulc_dl.pval <- adf.DEU.rulc_dl$p.value
adf.DEU.ulc_dl.pval <- adf.DEU.ulc_dl$p.value
adf.DEU.P_dl.pval <- adf.DEU.P_dl$p.value
adf.DEU.Pm_dl.pval <- adf.DEU.Pm_dl$p.value
adf.DEU.Px_dl.pval <- adf.DEU.Px_dl$p.value
adf.DEU.X_dl.pval <- adf.DEU.X_dl$p.value
adf.DEU.M_dl.pval <- adf.DEU.M_dl$p.value
adf.DEU.I_dl.pval <- adf.DEU.I_dl$p.value
adf.DEU.C_dl.pval <- adf.DEU.C_dl$p.value
adf.DEU.Ipr_dl.pval <- adf.DEU.Ipr_dl$p.value
adf.DEU.Ips_dl.pval <- adf.DEU.Ips_dl$p.value
adf.DEU.It_dl.pval <- adf.DEU.It_dl$p.value
adf.DEU.Itcurr_dl.pval <- adf.DEU.Itcurr_dl$p.value
adf.DEU.Yf_dl.pval <- adf.DEU.Yf_dl$p.value
adf.DEU.W_dl.pval <- adf.DEU.W_dl$p.value

adf.DEU_dl <- rbind(adf.DEU.WS_dl.pval,adf.DEU.PS_dl.pval,adf.DEU.Y_dl.pval,adf.DEU.Yrw_dl.pval,adf.DEU.r_dl.pval,adf.DEU.R_dl.pval,adf.DEU.Tau_dl.pval,adf.DEU.rulc_dl.pval,adf.DEU.ulc_dl.pval,adf.DEU.P_dl.pval,adf.DEU.Pm_dl.pval,adf.DEU.Px_dl.pval,adf.DEU.X_dl.pval,adf.DEU.M_dl.pval,adf.DEU.I_dl.pval,adf.DEU.C_dl.pval,adf.DEU.Ipr_dl.pval,adf.DEU.Ips_dl.pval,adf.DEU.It_dl.pval,adf.DEU.Itcurr_dl.pval,adf.DEU.Yf_dl.pval,adf.DEU.W_dl.pval)
colnames(adf.DEU_dl) <- c("DEU")
rownames(adf.DEU_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.DEU_dl
##                     DEU
## dlog(WS)     0.22110748
## dlog(PS)     0.21171932
## dlog(Y)      0.01613985
## dlog(Yrw)    0.18899723
## dlog(r)      0.38297983
## dlog(R)      0.02636520
## dlog(Tau)    0.01000000
## dlog(rulc)   0.30287079
## dlog(ulc)    0.04039743
## dlog(P)      0.01000000
## dlog(Pm)     0.01725213
## dlog(Px)     0.01005472
## dlog(X)      0.01804490
## dlog(M)      0.04808087
## dlog(I)      0.04299713
## dlog(C)      0.27225115
## dlog(Ipr)    0.08894074
## dlog(Ips)    0.32749349
## dlog(It)     0.03505028
## dlog(Itcurr) 0.08052713
## dlog(Yf)     0.01236768
## dlog(W)      0.21978930
adf.DEU <- NULL
adf.DEU <- rbind(adf.DEU_non,adf.DEU_dl)

Økonometriske test

#Consumption (C)
DEU_consumption <- dynlm(DEU$C_dl~DEU$R_dl+DEU$W_dl)
DEU_CR <- summary(DEU_consumption)$coefficients["DEU$R_dl","Estimate"]
DEU_CR <- 0
DEU_CW <- summary(DEU_consumption)$coefficients["DEU$W_dl","Estimate"]
DEU_Ceffekt <- (DEU_CR*mean(DEU$C/DEU$R))-(DEU_CW*mean(DEU$C/DEU$W))
summary(DEU_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$C_dl ~ DEU$R_dl + DEU$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.017456 -0.002183  0.001133  0.003859  0.011117 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)   
## (Intercept) 0.005785   0.001747   3.311  0.00305 **
## DEU$R_dl    0.006351   0.034649   0.183  0.85616   
## DEU$W_dl    0.353144   0.097550   3.620  0.00144 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.006948 on 23 degrees of freedom
## Multiple R-squared:  0.3967, Adjusted R-squared:  0.3442 
## F-statistic: 7.561 on 2 and 23 DF,  p-value: 0.002995
#Investments (I)
DEU_investment <- dynlm(DEU$I_dl~DEU$PS_dl+DEU$Y_l)
DEU_iPS <- summary(DEU_investment)$coefficients["DEU$PS_dl","Estimate"]
DEU_iPS <- 0
DEU_Ieffekt <- DEU_iPS*mean(DEU$I/DEU$R)
summary(DEU_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$I_dl ~ DEU$PS_dl + DEU$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.080739 -0.013879  0.003975  0.018308  0.059330 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)   
## (Intercept) -1.11594    0.55219  -2.021  0.05508 . 
## DEU$PS_dl    0.97991    0.28654   3.420  0.00234 **
## DEU$Y_l      0.14268    0.06994   2.040  0.05300 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03548 on 23 degrees of freedom
## Multiple R-squared:  0.3733, Adjusted R-squared:  0.3188 
## F-statistic: 6.849 on 2 and 23 DF,  p-value: 0.004639
#Price deflator (P)
DEU_deflator <- dynlm(DEU$P_dl~L(DEU$ulc_dl)+DEU$Pm_dl)
DEU_ePULC <- summary(DEU_deflator)$coefficients["L(DEU$ulc_dl)","Estimate"]
summary(DEU_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$P_dl ~ L(DEU$ulc_dl) + DEU$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0107634 -0.0035730 -0.0002309  0.0032898  0.0193942 
## 
## Coefficients:
##                Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)    0.010634   0.001692   6.284 0.00000206 ***
## L(DEU$ulc_dl)  0.191310   0.091804   2.084     0.0485 *  
## DEU$Pm_dl     -0.093423   0.050778  -1.840     0.0787 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.006756 on 23 degrees of freedom
## Multiple R-squared:  0.3821, Adjusted R-squared:  0.3284 
## F-statistic: 7.112 on 2 and 23 DF,  p-value: 0.003938
#Export price deflator (Px)
DEU_exportdeflator <- dynlm(DEU$Px_dl~DEU$ulc_dl+DEU$Pm_dl)
DEU_ePX <- summary(DEU_exportdeflator)$coefficients["DEU$ulc_dl","Estimate"]
DEU_ePX <- 0
summary(DEU_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$Px_dl ~ DEU$ulc_dl + DEU$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0068596 -0.0030547  0.0003621  0.0022479  0.0098626 
## 
## Coefficients:
##             Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) 0.002564   0.001094   2.344          0.0281 *  
## DEU$ulc_dl  0.086882   0.059349   1.464          0.1567    
## DEU$Pm_dl   0.405470   0.032827  12.352 0.0000000000124 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.004368 on 23 degrees of freedom
## Multiple R-squared:  0.8837, Adjusted R-squared:  0.8736 
## F-statistic: 87.41 on 2 and 23 DF,  p-value: 0.00000000001789
#Exports (X)
DEU_exports <- dynlm(DEU$X_dl~L(DEU$dPxdPm)+DEU$Yrw_dl)
DEU_eXP <- summary(DEU_exports)$coefficients["L(DEU$dPxdPm)","Estimate"]
DEU_Xeffekt <- -(DEU_eXP*DEU_ePX*(1/(1-DEU_ePULC))*mean(DEU$Yf/DEU$Y)*(mean(DEU$X/DEU$Y)/mean(DEU$rulc)))
summary(DEU_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$X_dl ~ L(DEU$dPxdPm) + DEU$Yrw_dl)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.05381 -0.01432  0.00210  0.01311  0.03721 
## 
## Coefficients:
##                Estimate Std. Error t value     Pr(>|t|)    
## (Intercept)   -0.014232   0.008728  -1.631       0.1166    
## L(DEU$dPxdPm) -0.602713   0.286547  -2.103       0.0466 *  
## DEU$Yrw_dl     3.357465   0.377336   8.898 0.0000000066 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02197 on 23 degrees of freedom
## Multiple R-squared:  0.8755, Adjusted R-squared:  0.8647 
## F-statistic: 80.87 on 2 and 23 DF,  p-value: 0.00000000003932
#Imports (M)
DEU_imports <- dynlm(DEU$M_dl~DEU$dPdPm+DEU$Y_dl)
DEU_eMP <- summary(DEU_imports)$coefficients["DEU$dPdPm","Estimate"]
DEU_eMP <- 0
DEU_Meffekt <- -(DEU_eMP*DEU_ePULC*(1/(1-DEU_ePULC))*mean(DEU$Yf/DEU$Y)*(mean(DEU$M/DEU$Y)/mean(DEU$rulc)))
summary(DEU_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$M_dl ~ DEU$dPdPm + DEU$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.059453 -0.019706  0.006085  0.017786  0.055710 
## 
## Coefficients:
##              Estimate Std. Error t value  Pr(>|t|)    
## (Intercept)  0.020866   0.009093   2.295    0.0312 *  
## DEU$dPdPm   -0.207281   0.227779  -0.910    0.3723    
## DEU$Y_dl     1.934922   0.405943   4.766 0.0000833 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02914 on 23 degrees of freedom
## Multiple R-squared:  0.7044, Adjusted R-squared:  0.6787 
## F-statistic:  27.4 on 2 and 23 DF,  p-value: 0.00000082
names(DEU_consumption$coefficients) <- sub("DEU$","",names(DEU_consumption$coefficients),fixed=TRUE)
names(DEU_investment$coefficients) <- sub("DEU$","",names(DEU_investment$coefficients),fixed=TRUE)
names(DEU_deflator$coefficients) <- sub("DEU$","",names(DEU_deflator$coefficients),fixed=TRUE)
names(DEU_exportdeflator$coefficients) <- sub("DEU$","",names(DEU_exportdeflator$coefficients),fixed=TRUE)
names(DEU_exports$coefficients) <- sub("DEU$","",names(DEU_exports$coefficients),fixed=TRUE)
names(DEU_imports$coefficients) <- sub("DEU$","",names(DEU_imports$coefficients),fixed=TRUE)

DEU_Xeffekt
## [1] 0
DEU_Meffekt
## [1] 0
#Nettoeksport (NX)
DEU_NXeffekt <- DEU_Xeffekt - DEU_Meffekt

DEU_NXeffekt
## [1] 0
#Nettoeffekten
DEU_Neteffekt = DEU_Ceffekt + DEU_Ieffekt + DEU_NXeffekt

DEU_Neteffekt
## [1] -0.3391751
DEU_Lukket <- DEU_Ceffekt + DEU_Ieffekt
DEU_Lukket_Konklusion <- ifelse(DEU_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
DEU_Lukket_Konklusion
## [1] "Wage-led domestic"
DEU_Def <- ifelse(DEU_Neteffekt > 0, "Profit-led", "Wage-led")
DEU_Def
## [1] "Wage-led"

Kointegrations-test

summary(ur.df(y=DEU_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -2.8420         NA      NA       NA
## z.diff.lag1    1.7193         NA      NA       NA
## z.diff.lag2    1.0481         NA      NA       NA
## z.diff.lag3    1.8394         NA      NA       NA
## z.diff.lag4    1.8386         NA      NA       NA
## z.diff.lag5    1.7780         NA      NA       NA
## z.diff.lag6    1.6775         NA      NA       NA
## z.diff.lag7    2.2211         NA      NA       NA
## z.diff.lag8    2.1873         NA      NA       NA
## z.diff.lag9    1.2132         NA      NA       NA
## z.diff.lag10   1.2046         NA      NA       NA
## z.diff.lag11   1.1508         NA      NA       NA
## z.diff.lag12   0.6576         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DEU_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -0.2508         NA      NA       NA
## z.diff.lag1   -0.2319         NA      NA       NA
## z.diff.lag2    0.9238         NA      NA       NA
## z.diff.lag3    0.5585         NA      NA       NA
## z.diff.lag4    0.2566         NA      NA       NA
## z.diff.lag5    0.5581         NA      NA       NA
## z.diff.lag6    0.2641         NA      NA       NA
## z.diff.lag7    0.1781         NA      NA       NA
## z.diff.lag8    0.7104         NA      NA       NA
## z.diff.lag9    0.3543         NA      NA       NA
## z.diff.lag10  -0.4948         NA      NA       NA
## z.diff.lag11   0.3951         NA      NA       NA
## z.diff.lag12   0.8092         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DEU_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1        0.6099         NA      NA       NA
## z.diff.lag1   -1.1062         NA      NA       NA
## z.diff.lag2   -0.9819         NA      NA       NA
## z.diff.lag3   -1.6845         NA      NA       NA
## z.diff.lag4   -1.5306         NA      NA       NA
## z.diff.lag5   -1.1819         NA      NA       NA
## z.diff.lag6   -1.6295         NA      NA       NA
## z.diff.lag7   -2.4738         NA      NA       NA
## z.diff.lag8   -2.1386         NA      NA       NA
## z.diff.lag9   -1.9101         NA      NA       NA
## z.diff.lag10  -1.5539         NA      NA       NA
## z.diff.lag11  -0.8103         NA      NA       NA
## z.diff.lag12  -0.4501         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DEU_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
## 
## ############################################### 
## # Augmented Dickey-Fuller Test Unit Root Test # 
## ############################################### 
## 
## Test regression none 
## 
## 
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
## 
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## z.lag.1       -1.6051         NA      NA       NA
## z.diff.lag1    0.6201         NA      NA       NA
## z.diff.lag2    0.6269         NA      NA       NA
## z.diff.lag3    0.8004         NA      NA       NA
## z.diff.lag4    0.8292         NA      NA       NA
## z.diff.lag5    0.8985         NA      NA       NA
## z.diff.lag6    0.9448         NA      NA       NA
## z.diff.lag7    1.0200         NA      NA       NA
## z.diff.lag8    0.7198         NA      NA       NA
## z.diff.lag9    0.3970         NA      NA       NA
## z.diff.lag10   0.6986         NA      NA       NA
## z.diff.lag11   0.2426         NA      NA       NA
## z.diff.lag12   0.4112         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 13 and 0 DF,  p-value: NA
## 
## 
## Value of test-statistic is: NaN 
## 
## Critical values for test statistics: 
##       1pct  5pct 10pct
## tau1 -2.62 -1.95 -1.61

Test plots

plot(DEU_consumption)

plot(DEU_investment)

plot(DEU_deflator)

plot(DEU_exportdeflator)

plot(DEU_exports)

plot(DEU_imports)

bptest(DEU_consumption)
## 
##  studentized Breusch-Pagan test
## 
## data:  DEU_consumption
## BP = 0.025729, df = 2, p-value = 0.9872
bptest(DEU_investment)
## 
##  studentized Breusch-Pagan test
## 
## data:  DEU_investment
## BP = 2.2964, df = 2, p-value = 0.3172
bptest(DEU_deflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  DEU_deflator
## BP = 3.4635, df = 2, p-value = 0.177
bptest(DEU_exportdeflator)
## 
##  studentized Breusch-Pagan test
## 
## data:  DEU_exportdeflator
## BP = 1.5306, df = 2, p-value = 0.4652
bptest(DEU_exports)
## 
##  studentized Breusch-Pagan test
## 
## data:  DEU_exports
## BP = 0.39097, df = 2, p-value = 0.8224
bptest(DEU_imports)
## 
##  studentized Breusch-Pagan test
## 
## data:  DEU_imports
## BP = 2.2136, df = 2, p-value = 0.3306
resettest(DEU_consumption)
## 
##  RESET test
## 
## data:  DEU_consumption
## RESET = 0.70079, df1 = 2, df2 = 21, p-value = 0.5074
resettest(DEU_investment)
## 
##  RESET test
## 
## data:  DEU_investment
## RESET = 3.8753, df1 = 2, df2 = 21, p-value = 0.03694
resettest(DEU_deflator)
## 
##  RESET test
## 
## data:  DEU_deflator
## RESET = 2.1836, df1 = 2, df2 = 21, p-value = 0.1375
resettest(DEU_exportdeflator)
## 
##  RESET test
## 
## data:  DEU_exportdeflator
## RESET = 1.0282, df1 = 2, df2 = 21, p-value = 0.375
resettest(DEU_exports)
## 
##  RESET test
## 
## data:  DEU_exports
## RESET = 0.81423, df1 = 2, df2 = 21, p-value = 0.4565
resettest(DEU_imports)
## 
##  RESET test
## 
## data:  DEU_imports
## RESET = 0.38484, df1 = 2, df2 = 21, p-value = 0.6853

Resultater

DEU_regtab <- matrix(c(DEU_Ceffekt, DEU_Ieffekt, DEU_Lukket, DEU_Xeffekt, DEU_Meffekt, DEU_NXeffekt, DEU_Neteffekt,DEU_Lukket_Konklusion, DEU_Def),ncol=9,byrow=TRUE)
colnames(DEU_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(DEU_regtab) <- c("DEU")
DEU_regtab <- as.table(DEU_regtab)
DEU_regtab
##     consumption        investment Lukket neteffekt   exports imports
## DEU -0.339175051515256 0          -0.339175051515256 0       0      
##     netexports neteffect          Lukket konklusion Konklusion
## DEU 0          -0.339175051515256 Wage-led domestic Wage-led
DEU_smoke <- matrix(c(mean(DEU$C/DEU$R), mean(DEU$C/DEU$W), mean(DEU$I/DEU$R), DEU_CR, DEU_CW, DEU_iPS, DEU_ePULC, (1/(1-DEU_ePULC)), DEU_eXP, DEU_ePX, DEU_eMP, mean(DEU$Yf/DEU$Y), mean(DEU$X/DEU$Y), mean(DEU$rulc), (mean(DEU$X/DEU$Y)/mean(DEU$rulc))),ncol=15,byrow=TRUE)
colnames(DEU_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(DEU_smoke) <- c("DEU")
DEU_smoke <- as.table(DEU_smoke)
DEU_smoke
##            C/R        C/W        I/R         CR         CW        iPS
## DEU  1.6729150  0.9604451  0.5553943  0.0000000  0.3531436  0.0000000
##          ePULC  1/1-epulc        eXP        ePX        eMP       Yf/Y
## DEU  0.1913100  1.2365679 -0.6027131  0.0000000  0.0000000  0.9031965
##            X/Y       RULC (X/Y)/rulc
## DEU  0.3453776  0.5734815  0.6022470

Summary af regressioner

summary(DEU_consumption)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$C_dl ~ DEU$R_dl + DEU$W_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.017456 -0.002183  0.001133  0.003859  0.011117 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)   
## (Intercept) 0.005785   0.001747   3.311  0.00305 **
## R_dl        0.006351   0.034649   0.183  0.85616   
## W_dl        0.353144   0.097550   3.620  0.00144 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.006948 on 23 degrees of freedom
## Multiple R-squared:  0.3967, Adjusted R-squared:  0.3442 
## F-statistic: 7.561 on 2 and 23 DF,  p-value: 0.002995
summary(DEU_investment)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$I_dl ~ DEU$PS_dl + DEU$Y_l)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.080739 -0.013879  0.003975  0.018308  0.059330 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)   
## (Intercept) -1.11594    0.55219  -2.021  0.05508 . 
## PS_dl        0.97991    0.28654   3.420  0.00234 **
## Y_l          0.14268    0.06994   2.040  0.05300 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03548 on 23 degrees of freedom
## Multiple R-squared:  0.3733, Adjusted R-squared:  0.3188 
## F-statistic: 6.849 on 2 and 23 DF,  p-value: 0.004639
summary(DEU_deflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$P_dl ~ L(DEU$ulc_dl) + DEU$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0107634 -0.0035730 -0.0002309  0.0032898  0.0193942 
## 
## Coefficients:
##              Estimate Std. Error t value   Pr(>|t|)    
## (Intercept)  0.010634   0.001692   6.284 0.00000206 ***
## L(ulc_dl)    0.191310   0.091804   2.084     0.0485 *  
## Pm_dl       -0.093423   0.050778  -1.840     0.0787 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.006756 on 23 degrees of freedom
## Multiple R-squared:  0.3821, Adjusted R-squared:  0.3284 
## F-statistic: 7.112 on 2 and 23 DF,  p-value: 0.003938
summary(DEU_exportdeflator)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$Px_dl ~ DEU$ulc_dl + DEU$Pm_dl)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0068596 -0.0030547  0.0003621  0.0022479  0.0098626 
## 
## Coefficients:
##             Estimate Std. Error t value        Pr(>|t|)    
## (Intercept) 0.002564   0.001094   2.344          0.0281 *  
## ulc_dl      0.086882   0.059349   1.464          0.1567    
## Pm_dl       0.405470   0.032827  12.352 0.0000000000124 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.004368 on 23 degrees of freedom
## Multiple R-squared:  0.8837, Adjusted R-squared:  0.8736 
## F-statistic: 87.41 on 2 and 23 DF,  p-value: 0.00000000001789
summary(DEU_exports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$X_dl ~ L(DEU$dPxdPm) + DEU$Yrw_dl)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.05381 -0.01432  0.00210  0.01311  0.03721 
## 
## Coefficients:
##              Estimate Std. Error t value     Pr(>|t|)    
## (Intercept) -0.014232   0.008728  -1.631       0.1166    
## L(dPxdPm)   -0.602713   0.286547  -2.103       0.0466 *  
## Yrw_dl       3.357465   0.377336   8.898 0.0000000066 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02197 on 23 degrees of freedom
## Multiple R-squared:  0.8755, Adjusted R-squared:  0.8647 
## F-statistic: 80.87 on 2 and 23 DF,  p-value: 0.00000000003932
summary(DEU_imports)
## 
## Time series regression with "numeric" data:
## Start = 1, End = 26
## 
## Call:
## dynlm(formula = DEU$M_dl ~ DEU$dPdPm + DEU$Y_dl)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.059453 -0.019706  0.006085  0.017786  0.055710 
## 
## Coefficients:
##              Estimate Std. Error t value  Pr(>|t|)    
## (Intercept)  0.020866   0.009093   2.295    0.0312 *  
## dPdPm       -0.207281   0.227779  -0.910    0.3723    
## Y_dl         1.934922   0.405943   4.766 0.0000833 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.02914 on 23 degrees of freedom
## Multiple R-squared:  0.7044, Adjusted R-squared:  0.6787 
## F-statistic:  27.4 on 2 and 23 DF,  p-value: 0.00000082

Resultater

Tabeller

AUT_Trade <- AUT$Trade %>% mean()
BEL_Trade <- BEL$Trade %>% mean()
DNK_Trade <- DNK$Trade %>% mean()
FIN_Trade <- FIN$Trade %>% mean()
FRA_Trade <- FRA$Trade %>% mean()
GRC_Trade <- GRC$Trade %>% mean()
IRL_Trade <- IRL$Trade %>% mean()
ITA_Trade <- ITA$Trade %>% mean()
LUX_Trade <- LUX$Trade %>% mean()
NLD_Trade <- NLD$Trade %>% mean()
PRT_Trade <- PRT$Trade %>% mean()
ESP_Trade <- ESP$Trade %>% mean()
SWE_Trade <- SWE$Trade %>% mean()
GBR_Trade <- GBR$Trade %>% mean()
USA_Trade <- USA$Trade %>% mean()
DEU_Trade <- DEU$Trade %>% mean()

tradereg <- rbind(AUT_Trade,BEL_Trade,DNK_Trade,FIN_Trade,FRA_Trade,GRC_Trade,IRL_Trade,ITA_Trade,LUX_Trade,NLD_Trade,PRT_Trade,ESP_Trade,SWE_Trade,GBR_Trade,USA_Trade,DEU_Trade)
tradetotal <- cbind(Lande,tradereg)
tradetotal <- as.data.frame(tradetotal)
colnames(tradetotal) <- c("lande","meantrade")
tradetotal2 <- tradetotal[order(tradetotal$meantrade),]
tradetotal2 %>% head(16)
##           lande         meantrade
## USA_Trade   USA 0.160309515316253
## FRA_Trade   FRA 0.355156077520868
## ITA_Trade   ITA 0.390994908995643
## GBR_Trade   GBR 0.398810550447995
## ESP_Trade   ESP 0.443170969223464
## FIN_Trade   FIN 0.461944783048263
## GRC_Trade   GRC 0.507123102324045
## PRT_Trade   PRT 0.555723033113101
## SWE_Trade   SWE 0.585438313975627
## AUT_Trade   AUT 0.646891269856967
## DEU_Trade   DEU  0.64776519696279
## DNK_Trade   DNK 0.670594855088332
## NLD_Trade   NLD 0.944666853509354
## BEL_Trade   BEL     1.10885057961
## IRL_Trade   IRL  1.17031474100036
## LUX_Trade   LUX  2.96500473904317
write.csv(tradetotal2,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/tradetotal2.csv", row.names = FALSE)

Her ses en samling over alle vores resultat-tabeller

regtabtotal <- rbind(AUT_regtab,BEL_regtab,DNK_regtab,FIN_regtab,FRA_regtab,GRC_regtab,IRL_regtab,ITA_regtab,LUX_regtab,NLD_regtab,PRT_regtab,ESP_regtab,SWE_regtab,GBR_regtab,USA_regtab,DEU_regtab)
regtabtotal
##     consumption           investment           Lukket neteffekt     
## AUT "-0.307975667166831"  "0.358728098156485"  "0.0507524309896539" 
## BEL "-0.164150578239597"  "0.366380487752166"  "0.202229909512569"  
## DNK "-0.164202968964362"  "0.51494110594295"   "0.350738136978588"  
## FIN "-0.212002599652354"  "0.0628502571301414" "-0.149152342522213" 
## FRA "-0.253128693895561"  "0.166737862622821"  "-0.0863908312727399"
## GRC "-0.466609515873891"  "0"                  "-0.466609515873891" 
## IRL "-0.30621615726918"   "0.381316630290997"  "0.0751004730218173" 
## ITA "-0.307364904852754"  "0.405997101186717"  "0.0986321963339636" 
## LUX "-0.0332165846869567" "0.415157606845512"  "0.381941022158556"  
## NLD "-0.328292807643207"  "0.206276261116581"  "-0.122016546526626" 
## PRT "-0.251598745040635"  "0"                  "-0.251598745040635" 
## ESP "-0.291119919577315"  "0"                  "-0.291119919577315" 
## SWE "-0.292965118668464"  "-0.331418305062981" "-0.624383423731445" 
## GBR "-0.280552719300364"  "0.158193849731167"  "-0.122358869569198" 
## USA "-0.097647639083685"  "0"                  "-0.097647639083685" 
## DEU "-0.339175051515256"  "0"                  "-0.339175051515256" 
##     exports               imports              netexports           
## AUT "0.284560572664439"   "0.443770696791004"  "-0.159210124126565" 
## BEL "0"                   "0"                  "0"                  
## DNK "-0.0182209156862252" "0"                  "-0.0182209156862252"
## FIN "0.0793218499803654"  "0"                  "0.0793218499803654" 
## FRA "0.290398542502207"   "0"                  "0.290398542502207"  
## GRC "0.187152498813869"   "0.478291615604291"  "-0.291139116790422" 
## IRL "0"                   "-0.227602497215577" "0.227602497215577"  
## ITA "0.303108219521421"   "-0.38189092697295"  "0.684999146494371"  
## LUX "0"                   "0"                  "0"                  
## NLD "0"                   "0"                  "0"                  
## PRT "0"                   "-0.357798545960897" "0.357798545960897"  
## ESP "0.427343778194796"   "-0.500882998472134" "0.92822677666693"   
## SWE "0.109135915707448"   "0"                  "0.109135915707448"  
## GBR "0.199212536911048"   "0"                  "0.199212536911048"  
## USA "0.0684110478031558"  "0"                  "0.0684110478031558" 
## DEU "0"                   "0"                  "0"                  
##     neteffect             Lukket konklusion     Konklusion  
## AUT "-0.108457693136911"  "Profit-led domestic" "Wage-led"  
## BEL "0.202229909512569"   "Profit-led domestic" "Profit-led"
## DNK "0.332517221292363"   "Profit-led domestic" "Profit-led"
## FIN "-0.0698304925418476" "Wage-led domestic"   "Wage-led"  
## FRA "0.204007711229467"   "Wage-led domestic"   "Profit-led"
## GRC "-0.757748632664313"  "Wage-led domestic"   "Wage-led"  
## IRL "0.302702970237394"   "Profit-led domestic" "Profit-led"
## ITA "0.783631342828335"   "Profit-led domestic" "Profit-led"
## LUX "0.381941022158556"   "Profit-led domestic" "Profit-led"
## NLD "-0.122016546526626"  "Wage-led domestic"   "Wage-led"  
## PRT "0.106199800920262"   "Wage-led domestic"   "Profit-led"
## ESP "0.637106857089615"   "Wage-led domestic"   "Profit-led"
## SWE "-0.515247508023996"  "Wage-led domestic"   "Wage-led"  
## GBR "0.0768536673418502"  "Wage-led domestic"   "Profit-led"
## USA "-0.0292365912805291" "Wage-led domestic"   "Wage-led"  
## DEU "-0.339175051515256"  "Wage-led domestic"   "Wage-led"
smoketotal <- rbind(AUT_smoke,BEL_smoke,DNK_smoke,FIN_smoke,FRA_smoke,GRC_smoke,IRL_smoke,ITA_smoke,LUX_smoke,NLD_smoke,PRT_smoke,ESP_smoke,SWE_smoke,GBR_smoke,USA_smoke,DEU_smoke)
smoketotal
##           C/R       C/W       I/R        CR        CW         iPS
## AUT 1.9261097 0.9184808 0.7100548 0.1419816 0.6330538  0.50521182
## BEL 1.8771665 0.8552613 0.6643603 0.1396306 0.4983981  0.55147864
## DNK 1.6483727 0.8331795 0.5125213 0.2574956 0.7065125  1.00472140
## FIN 1.7721851 0.8473726 0.6968785 0.1856743 0.6385052  0.09018825
## FRA 1.9681887 0.8626101 0.6693664 0.1536958 0.6441277  0.24909806
## GRC 1.8026390 1.3569940 0.3634173 0.2322642 0.6523965  0.00000000
## IRL 1.4196922 0.8717130 0.5365411 0.1662901 0.6221049  0.71069415
## ITA 1.7474412 1.0298775 0.5286747 0.1914205 0.6232401  0.76795257
## LUX 0.8709657 0.6300752 0.3671491 0.1181951 0.2161019  1.13076015
## NLD 1.7450832 0.8046459 0.5586767 0.1925828 0.8256623  0.36922297
## PRT 2.0352530 1.1131361 0.5422046 0.2772657 0.7329783  0.00000000
## ESP 1.9002515 1.0408302 0.5112398 0.2600981 0.7545627  0.00000000
## SWE 1.5013259 0.8770756 0.5806044 0.1080935 0.5190529 -0.57081600
## GBR 1.8063573 1.0126717 0.4640836 0.2234315 0.6755890  0.34087364
## USA 1.8791605 1.0364496 0.4307388 0.2363488 0.5227317  0.00000000
## DEU 1.6729150 0.9604451 0.5553943 0.0000000 0.3531436  0.00000000
##         ePULC 1/1-epulc        eXP         ePX        eMP      Yf/Y
## AUT 0.5453441  2.199465 -1.6008133  0.17062549 -0.7644633 0.9048058
## BEL 0.5896183  2.436756  0.0000000 -0.05684191  0.0000000 0.9100708
## DNK 0.6612738  2.952237 -0.5981608 -0.01877693  0.0000000 0.8892996
## FIN 0.5349219  2.150177 -0.7168953  0.15325921  0.0000000 0.9240691
## FRA 0.8240505  5.683447 -0.5620236  0.35332847  0.0000000 0.9070664
## GRC 0.6427698  2.799315 -1.2498936  0.13526318 -0.5362425 0.8810981
## IRL 0.4753653  1.906088  0.0000000  0.15033871  0.2702690 0.9219420
## ITA 0.8642218  7.364954 -0.3009952  0.43124911  0.1987966 0.9234565
## LUX 0.0000000  1.000000 -0.1517531  0.00000000 -0.6877307 0.9040526
## NLD 0.5830374  2.398297  0.0000000  0.70959666  0.0000000 0.9206594
## PRT 0.7793232  4.531515  0.0000000  0.26163388  0.2234085 0.8955345
## ESP 0.8819825  8.473321 -0.3655447  0.40086786  0.1958202 0.9262527
## SWE 0.6363445  2.749855 -0.5175607  0.16341801  0.0000000 0.8582063
## GBR 0.7509329  4.014983 -0.5341795  0.29293439  0.0000000 0.9335395
## USA 0.7590974  4.151055 -0.6561925  0.22558618  0.0000000 0.9580389
## DEU 0.1913100  1.236568 -0.6027131  0.00000000  0.0000000 0.9031965
##            X/Y      RULC (X/Y)/rulc
## AUT 0.31996727 0.6112065  0.5348831
## BEL 0.55791853 0.6246805  0.8931262
## DNK 0.36493793 0.5905960  0.6179147
## FIN 0.22657610 0.6235657  0.3633556
## FRA 0.17894256 0.6308169  0.2836680
## GRC 0.22503547 0.5013997  0.4488145
## IRL 0.61183243 0.5539909  1.1044089
## ITA 0.20031416 0.5834293  0.3433392
## LUX 1.63756860 0.5246002  3.1215554
## NLD 0.49853152 0.6274543  0.7945304
## PRT 0.26271636 0.5786048  0.4540515
## ESP 0.22220206 0.5979923  0.3715801
## SWE 0.29646609 0.5422133  0.5467703
## GBR 0.20308280 0.5979027  0.3396586
## USA 0.07186168 0.6183814  0.1162093
## DEU 0.34537755 0.5734815  0.6022470
write.table(regtabtotal, "D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/regtab.txt", sep="\t")
write.table(smoketotal, "D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/smoke.txt", sep="\t")

reggie <- as.data.frame(regtabtotal)
reggie$consumption <- round(as.numeric(as.character(reggie$consumption)),digits=3)
reggie$investment <- round(as.numeric(as.character(reggie$investment)),digits=3)
reggie$`Lukket neteffekt` <- round(as.numeric(as.character(reggie$`Lukket neteffekt`)),digits=3)
reggie$exports <- round(as.numeric(as.character(reggie$exports)),digits=3)
reggie$imports <- round(as.numeric(as.character(reggie$imports)),digits=3)
reggie$netexports <- round(as.numeric(as.character(reggie$netexports)),digits=3)
reggie$neteffect <- round(as.numeric(as.character(reggie$neteffect)),digits=3)
reggie %>% glimpse()
## Observations: 16
## Variables: 9
## $ consumption         <dbl> -0.308, -0.164, -0.164, -0.212, -0.253, -0...
## $ investment          <dbl> 0.359, 0.366, 0.515, 0.063, 0.167, 0.000, ...
## $ `Lukket neteffekt`  <dbl> 0.051, 0.202, 0.351, -0.149, -0.086, -0.46...
## $ exports             <dbl> 0.285, 0.000, -0.018, 0.079, 0.290, 0.187,...
## $ imports             <dbl> 0.444, 0.000, 0.000, 0.000, 0.000, 0.478, ...
## $ netexports          <dbl> -0.159, 0.000, -0.018, 0.079, 0.290, -0.29...
## $ neteffect           <dbl> -0.108, 0.202, 0.333, -0.070, 0.204, -0.75...
## $ `Lukket konklusion` <fct> Profit-led domestic, Profit-led domestic, ...
## $ Konklusion          <fct> Wage-led, Profit-led, Profit-led, Wage-led...
write.table(reggie, "D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/reggie.txt", sep="\t")

Augmented Dickey-Fuller tabel

adf.samlet <- NULL
adf.samlet <- cbind(adf.AUT,adf.BEL,adf.DNK,adf.FIN,adf.FRA,adf.GRC,adf.IRL,adf.ITA,adf.LUX,adf.NLD,adf.PRT,adf.ESP,adf.SWE,adf.GBR,adf.USA,adf.DEU)
adf.samlet
##                     AUT        BEL        DNK        FIN        FRA
## WS           0.56797267 0.01000000 0.39711327 0.51582543 0.84562299
## PS           0.56797267 0.01000000 0.39711327 0.51582543 0.84562299
## Y            0.61684431 0.53894832 0.33064006 0.46868561 0.52177225
## Yrw          0.55316530 0.25380606 0.35939230 0.65547883 0.65886614
## r            0.69033762 0.50252575 0.09894894 0.57210914 0.90497764
## R            0.63869620 0.07927323 0.38753305 0.63376426 0.92275215
## Tau          0.52499587 0.97367662 0.66856713 0.95501094 0.80703511
## rulc         0.67415022 0.01000000 0.62196476 0.52634664 0.88194283
## ulc          0.61913833 0.25709158 0.55645797 0.92161077 0.74780436
## P            0.49494096 0.21906778 0.48747067 0.79241085 0.50430647
## Pm           0.71104497 0.30044120 0.47882822 0.91338003 0.83797221
## Px           0.72036872 0.37287202 0.45573477 0.96761085 0.87312983
## X            0.95115097 0.77070717 0.58168171 0.64936905 0.84943074
## M            0.96495729 0.88923086 0.74546701 0.86781501 0.95451766
## I            0.59288909 0.29362011 0.08314385 0.08568598 0.31948307
## C            0.80293622 0.19275067 0.04154395 0.38240704 0.39824099
## Ipr          0.97209763 0.80350006 0.04382303 0.31201723 0.46065983
## Ips          0.87568474 0.68112925 0.49380137 0.16820610 0.72763400
## It           0.41105158 0.47484493 0.08728796 0.06253567 0.19721763
## Itcurr       0.98979710 0.95680610 0.05562404 0.38158749 0.31631605
## Yf           0.55838297 0.48235124 0.40653066 0.52899586 0.59582599
## W            0.02590657 0.31379140 0.16709002 0.29559460 0.40586531
## dlog(WS)     0.03446441 0.08423274 0.01000000 0.01000000 0.11183116
## dlog(PS)     0.04327349 0.07994039 0.01000000 0.01000000 0.09075478
## dlog(Y)      0.11756054 0.01000000 0.02620517 0.02626102 0.04775760
## dlog(Yrw)    0.01000000 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(r)      0.01000000 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(R)      0.01460777 0.02378420 0.01000000 0.01000000 0.04573899
## dlog(Tau)    0.11853721 0.01000000 0.01907560 0.02018798 0.01174742
## dlog(rulc)   0.02993245 0.05550679 0.01000000 0.01000000 0.15734144
## dlog(ulc)    0.33686442 0.22937945 0.23212349 0.25725272 0.46202034
## dlog(P)      0.13906346 0.06400132 0.44518808 0.24869489 0.47660890
## dlog(Pm)     0.01000000 0.03060071 0.04704967 0.03846620 0.14124860
## dlog(Px)     0.04311749 0.02274642 0.08001424 0.03920176 0.38916518
## dlog(X)      0.01000000 0.01000000 0.01000000 0.01000000 0.02450894
## dlog(M)      0.01000000 0.01000000 0.04148903 0.01000000 0.02291392
## dlog(I)      0.01682294 0.02458770 0.03830831 0.01000000 0.02690750
## dlog(C)      0.02310321 0.01000000 0.04147062 0.04789002 0.07503781
## dlog(Ipr)    0.01000000 0.02213720 0.02755360 0.01199730 0.02382367
## dlog(Ips)    0.03520360 0.02815860 0.04309108 0.01000000 0.01278992
## dlog(It)     0.02699915 0.03248560 0.02795302 0.01000000 0.02525444
## dlog(Itcurr) 0.01000000 0.03812250 0.01882491 0.01184197 0.02435901
## dlog(Yf)     0.14509039 0.01000000 0.03186404 0.03662119 0.10526324
## dlog(W)      0.22787844 0.03033068 0.07633237 0.01000000 0.24240799
##                     GRC        IRL        ITA        LUX        NLD
## WS           0.83008333 0.50378796 0.87363499 0.51935623 0.40353010
## PS           0.83008333 0.50378796 0.87363499 0.51935623 0.40353010
## Y            0.50261041 0.96394273 0.98663492 0.56078934 0.49313925
## Yrw          0.56804789 0.34355301 0.26796207 0.58221481 0.24998779
## r            0.51929450 0.61412880 0.74457126 0.23964411 0.43100905
## R            0.73762465 0.99000000 0.97622334 0.42898513 0.37943212
## Tau          0.43204943 0.83807846 0.96667431 0.79306182 0.84741324
## rulc         0.87295981 0.32821033 0.94281508 0.42597467 0.48193572
## ulc          0.93302436 0.99000000 0.96020679 0.65272447 0.01588127
## P            0.95192476 0.59629271 0.98705517 0.63084399 0.03764604
## Pm           0.42611026 0.24751945 0.55271240 0.01645738 0.04792070
## Px           0.79769457 0.26375212 0.93555892 0.26011782 0.07364182
## X            0.60623606 0.99000000 0.41145838 0.09785622 0.93415077
## M            0.68308597 0.99000000 0.47691907 0.22132829 0.88747325
## I            0.78784504 0.71968803 0.65067459 0.23528469 0.09016174
## C            0.92103175 0.51491722 0.97628150 0.60717388 0.37332516
## Ipr          0.83671259 0.56231224 0.84551141 0.38445246 0.13239125
## Ips          0.32559448 0.19033826 0.55480613 0.38654048 0.54303099
## It           0.74849444 0.63146828 0.68713745 0.18997884 0.16824469
## Itcurr       0.79880642 0.48311390 0.85156153 0.38974675 0.25177920
## Yf           0.47346085 0.98775707 0.96143379 0.59722322 0.53532651
## W            0.45259840 0.34150047 0.64601531 0.47066208 0.37347420
## dlog(WS)     0.12516419 0.02145193 0.01000000 0.04104442 0.01000000
## dlog(PS)     0.11146830 0.01000000 0.01000000 0.03516497 0.01000000
## dlog(Y)      0.60069733 0.30026523 0.03528315 0.36285493 0.09487517
## dlog(Yrw)    0.29602560 0.01000000 0.01000000 0.13486923 0.01000000
## dlog(r)      0.32519406 0.01000000 0.01000000 0.02020395 0.02385848
## dlog(R)      0.60892769 0.01754412 0.01000000 0.04906234 0.01000000
## dlog(Tau)    0.67561756 0.24701188 0.02583018 0.31007311 0.01711845
## dlog(rulc)   0.21957081 0.02076826 0.02622507 0.06859394 0.01000000
## dlog(ulc)    0.45064239 0.14554801 0.34898516 0.33126571 0.39051141
## dlog(P)      0.33812130 0.45566142 0.49900394 0.40769663 0.53520134
## dlog(Pm)     0.02902880 0.08104895 0.06393381 0.01346015 0.04715945
## dlog(Px)     0.05446993 0.21918373 0.07560116 0.01624743 0.07516683
## dlog(X)      0.24254964 0.12778865 0.01000000 0.08821310 0.01000000
## dlog(M)      0.48681335 0.04497963 0.01706094 0.13417461 0.02201279
## dlog(I)      0.64869193 0.03861790 0.05287906 0.01000000 0.01000000
## dlog(C)      0.58848458 0.07557573 0.05525318 0.50501592 0.30924397
## dlog(Ipr)    0.71865586 0.08298669 0.16132067 0.01000000 0.01000000
## dlog(Ips)    0.04156621 0.01000000 0.01000000 0.01490369 0.01000000
## dlog(It)     0.46532393 0.04337843 0.15583112 0.01796396 0.01000000
## dlog(Itcurr) 0.50903601 0.09023967 0.34370203 0.01207158 0.01000000
## dlog(Yf)     0.68728993 0.28598249 0.04700310 0.38175952 0.07408409
## dlog(W)      0.68722124 0.04709417 0.12622009 0.55150119 0.06382843
##                     PRT        ESP        SWE        GBR        USA
## WS           0.50971813 0.01000000 0.55594128 0.50256586 0.14727279
## PS           0.50971813 0.01000000 0.55594128 0.50256586 0.14727279
## Y            0.52845778 0.42427329 0.94008888 0.59894258 0.75063640
## Yrw          0.48090271 0.29251439 0.24597992 0.62081531 0.64619086
## r            0.32791071 0.53039595 0.89241127 0.56394057 0.72717372
## R            0.24365182 0.35450848 0.07988192 0.25798017 0.90110005
## Tau          0.07881049 0.25037330 0.48520648 0.71476222 0.64256632
## rulc         0.46599332 0.01000000 0.81426862 0.53668267 0.09430572
## ulc          0.59499074 0.96465845 0.77220767 0.40154074 0.83164226
## P            0.59757098 0.82246775 0.79102370 0.47452317 0.35795379
## Pm           0.29905806 0.02411503 0.56026960 0.64134215 0.79691168
## Px           0.30749404 0.41888352 0.57393598 0.58467983 0.78904372
## X            0.97445453 0.61445078 0.66490600 0.81239839 0.86446891
## M            0.47280397 0.66484723 0.92955009 0.74367133 0.90638954
## I            0.53869343 0.45001072 0.62743069 0.06132643 0.40754783
## C            0.62907486 0.38961419 0.95415156 0.46999129 0.88874702
## Ipr          0.49489428 0.42210839 0.97585614 0.05740594 0.75205114
## Ips          0.56250103 0.25798347 0.07314448 0.71481404 0.31639286
## It           0.61690375 0.45443342 0.79151686 0.07232361 0.46636119
## Itcurr       0.52601405 0.38143671 0.99000000 0.21137751 0.77863650
## Yf           0.49952653 0.49915364 0.90696403 0.50550390 0.70162132
## W            0.46407123 0.27396630 0.93576868 0.57133761 0.51369211
## dlog(WS)     0.02068038 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(PS)     0.02303049 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(Y)      0.53302850 0.26314884 0.01462179 0.01000000 0.01000000
## dlog(Yrw)    0.07806157 0.03929903 0.01000000 0.01000000 0.01000000
## dlog(r)      0.07551683 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(R)      0.03848169 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(Tau)    0.70194486 0.44288103 0.03952552 0.01000000 0.01000000
## dlog(rulc)   0.01000000 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(ulc)    0.75505073 0.06711822 0.01519439 0.08211543 0.05409671
## dlog(P)      0.73357655 0.69677226 0.18574975 0.31132783 0.29298829
## dlog(Pm)     0.01000000 0.04642549 0.02878673 0.14116250 0.06478720
## dlog(Px)     0.01000000 0.17981606 0.01066969 0.20820023 0.07141159
## dlog(X)      0.04321573 0.53111674 0.01078184 0.01000000 0.01000000
## dlog(M)      0.30445631 0.30092707 0.02289827 0.01000000 0.01000000
## dlog(I)      0.42290877 0.19873184 0.02510804 0.01000000 0.01000000
## dlog(C)      0.48184499 0.22799563 0.12152481 0.04435590 0.01093446
## dlog(Ipr)    0.47293246 0.27334015 0.04288613 0.01164540 0.01000000
## dlog(Ips)    0.01000000 0.01161244 0.04894810 0.01000000 0.01000000
## dlog(It)     0.46009203 0.27148704 0.01741872 0.01000000 0.01000000
## dlog(Itcurr) 0.51302956 0.35872375 0.03416446 0.01041577 0.01000000
## dlog(Yf)     0.40548087 0.20049026 0.01000000 0.01000000 0.01000000
## dlog(W)      0.38307142 0.09432435 0.04768002 0.05527507 0.01000000
##                     DEU
## WS           0.86004899
## PS           0.86004899
## Y            0.59119652
## Yrw          0.62089914
## r            0.15288052
## R            0.50575957
## Tau          0.16361264
## rulc         0.89259978
## ulc          0.97908107
## P            0.91190501
## Pm           0.09626546
## Px           0.43832145
## X            0.08623035
## M            0.26789207
## I            0.77607299
## C            0.79563835
## Ipr          0.99000000
## Ips          0.29185817
## It           0.84047659
## Itcurr       0.99000000
## Yf           0.45192503
## W            0.95953492
## dlog(WS)     0.22110748
## dlog(PS)     0.21171932
## dlog(Y)      0.01613985
## dlog(Yrw)    0.18899723
## dlog(r)      0.38297983
## dlog(R)      0.02636520
## dlog(Tau)    0.01000000
## dlog(rulc)   0.30287079
## dlog(ulc)    0.04039743
## dlog(P)      0.01000000
## dlog(Pm)     0.01725213
## dlog(Px)     0.01005472
## dlog(X)      0.01804490
## dlog(M)      0.04808087
## dlog(I)      0.04299713
## dlog(C)      0.27225115
## dlog(Ipr)    0.08894074
## dlog(Ips)    0.32749349
## dlog(It)     0.03505028
## dlog(Itcurr) 0.08052713
## dlog(Yf)     0.01236768
## dlog(W)      0.21978930

Resultat plots

consumption

barplot_consumption <-ggplot(data=reggie, aes(x=Lande, y=consumption)) + geom_bar(stat="identity", fill="steelblue")
barplot_consumption

investment

barplot_investment <-ggplot(data=reggie, aes(x=Lande, y=investment)) + geom_bar(stat="identity", fill="steelblue")
barplot_investment

neteffekt lukket

barplot_neteffekt_lukket <-ggplot(data=reggie, aes(x=Lande, y=`Lukket neteffekt`)) + geom_bar(stat="identity", fill="steelblue")
barplot_neteffekt_lukket

exports

barplot_exports <-ggplot(data=reggie, aes(x=Lande, y=exports)) + geom_bar(stat="identity", fill="steelblue")
barplot_exports

imports

barplot_imports <-ggplot(data=reggie, aes(x=Lande, y=imports)) + geom_bar(stat="identity", fill="steelblue")
barplot_imports

netexports

barplot_netexports <-ggplot(data=reggie, aes(x=Lande, y=netexports)) + geom_bar(stat="identity", fill="steelblue")
barplot_netexports

neteffekt

barplot_neteffect <-ggplot(data=reggie, aes(x=Lande, y=neteffect)) + geom_bar(stat="identity", fill="steelblue")
barplot_neteffect

konklusion lukket

barplot_konklusion_lukket <- ggplot(data=reggie,aes(x=factor(`Lukket konklusion`)))+
  geom_bar(stat="count", width=0.7, fill="steelblue")
barplot_konklusion_lukket

konklusion

barplot_konklusion <- ggplot(data=reggie,aes(x=factor(Konklusion)))+
  geom_bar(stat="count", width=0.7, fill="steelblue")+
  theme_minimal()
barplot_konklusion

Stargazer

write.csv(AUT,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/AUT.csv", row.names = FALSE)
write.csv(BEL,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/BEL.csv", row.names = FALSE)
write.csv(DNK,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/DNK.csv", row.names = FALSE)
write.csv(FIN,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/FIN.csv", row.names = FALSE)
write.csv(FRA,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/FRA.csv", row.names = FALSE)
write.csv(GRC,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/GRC.csv", row.names = FALSE)
write.csv(IRL,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/IRL.csv", row.names = FALSE)
write.csv(ITA,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/ITA.csv", row.names = FALSE)
write.csv(LUX,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/LUX.csv", row.names = FALSE)
write.csv(NLD,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/NLD.csv", row.names = FALSE)
write.csv(PRT,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/PRT.csv", row.names = FALSE)
write.csv(ESP,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/ESP.csv", row.names = FALSE)
write.csv(SWE,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/SWE.csv", row.names = FALSE)
write.csv(GBR,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/GBR.csv", row.names = FALSE)
write.csv(USA,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/USA.csv", row.names = FALSE)
write.csv(DEU,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/DEU.csv", row.names = FALSE)